Class TCreateLineScreenObjectTool

Fields

Properties

Unit

InteractiveTools

Declaration

type TCreateLineScreenObjectTool = class(TCustomCreateScreenObjectTool)

Description

TCreateLineScreenObjectTool is used to create a line or polygon TScreenObject.

Hierarchy

TComponent
TCustomInteractiveTool
TCustomCreateScreenObjectTool
TCreateLineScreenObjectTool

Overview

Methods

	`procedure ContinueLineScreenObject(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;`

Description

Methods

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

	`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 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.10.0 on 2006-10-31 09:56:39