Class TCreateRectangleScreenObjectTool

Fields

Properties

Unit

type TCreateRectangleScreenObjectTool = class(TCustomCreateScreenObjectTool)

TCreateRectangleScreenObjectTool creates a TScreenObject that is shaped like a rectangle aligned with the grid.

	`procedure ContinueRectangle(X, Y: Integer);`
	`function GetHint: string; override;`
	`procedure MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); override;`
	`procedure MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;`

	`procedure ContinueRectangle(X, Y: Integer);`
If TCustomCreateScreenObjectTool.CurrentScreenObject does not exist, `ContinueRectangle` creates it and adds a point at X,Y. If it does already exist, `ContinueRectangle` adds additional points to create a TScreenObject shaped like a rectangle with the point at X,Y at the opposite corner from the first point and with the sides aligned with the grid.

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

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

	`procedure MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;`
`MouseUp` calls ContinueRectangle.

Generated by PasDoc 0.10.0 on 2006-10-31 09:56:39