Class TCreateStraightLineScreenObjectTool

Fields

Properties

Unit

type TCreateStraightLineScreenObjectTool = class(TCustomCreateScreenObjectTool32)

TCreateStraightLineScreenObjectTool is used to create a line TScreenObject in which the segments are aligned with the grid.

	`procedure ContinueStraightLineScreenObject(X, Y: Integer; Shift: TShiftState);`
	`procedure GetPointFromCursorPosition(var APoint: TPoint2D; X, Y: Integer; PreviousPoint: TPoint2D);`
	`procedure DrawOnBitMap32(Sender: TObject; Buffer: TBitmap32); override;`
	`function GetHint: string; override;`
	`function GetCursor: TCursor; override;`
	`procedure MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); override;`
	`procedure MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;`

	`procedure ContinueStraightLineScreenObject(X, Y: Integer; Shift: TShiftState);`
`ContinueStraightLineScreenObject` creates TCustomCreateScreenObjectTool.CurrentScreenObject if it does not exist. It adds a point based on X,Y to CurrentScreenObject. The point is added so that the last segment is aligned with the grid.

	`procedure GetPointFromCursorPosition(var APoint: TPoint2D; X, Y: Integer; PreviousPoint: TPoint2D);`

	`procedure DrawOnBitMap32(Sender: TObject; Buffer: TBitmap32); override;`

	`function GetHint: string; override;`
Used to define Hint

	`function GetCursor: TCursor; override;`

	`procedure MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); override;`
`MouseMove` sets the cursor and shows what the TScreenObject would look like if the mouse button was clicked.

	`procedure MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;`
`MouseUp` checks that the cursor has moved from its previous position. If it has, it calls ContinueStraightLineScreenObject.

Generated by PasDoc 0.12.1 on 2013-05-13 15:41:43