Class TCreateLineScreenObjectTool

Properties

Unit

InteractiveTools

Declaration

type TCreateLineScreenObjectTool = class(TCustomCreateScreenObjectTool32)

Description

TCreateLineScreenObjectTool is used to create a line or polygon TScreenObject.

Hierarchy

Overview

Fields

	`FStartX: Integer;`
	`FStartY: Integer;`

Methods

	`procedure ContinueLineScreenObject(X, Y: Integer; Shift: TShiftState);`
	`function ShouldClosePolygon(X, Y: integer): boolean; override;`
	`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;`

Description

Fields

	`FStartX: Integer;`

	`FStartY: Integer;`

Methods

	`procedure ContinueLineScreenObject(X, Y: Integer; Shift: TShiftState);`
`ContinueLineScreenObject` creates TCustomCreateScreenObjectTool.CurrentScreenObject if it does not exist. It adds a point at X,Y to CurrentScreenObject.

	`function ShouldClosePolygon(X, Y: integer): boolean; override;`

	`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 ContinueLineScreenObject.

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