Class TCustomModifyGeometryTool

Fields

Properties

Unit

InteractiveTools

Declaration

type TCustomModifyGeometryTool = class(TCustomEditScreenObjectTool)

Description

TCustomModifyGeometryTool is meant to be the abstract ancestor of tools that need to edit TScreenObjects .

Hierarchy

Overview

Methods

	`function GetEdge(const X, Y: integer): integer;`
	`procedure DoEdit(const X,Y: integer); virtual; abstract;`
	`procedure SetCursorAtLocation(const X, Y: Integer); virtual; abstract;`
	`procedure MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); 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

	`function GetEdge(const X, Y: integer): integer;`
`GetEdge` returns an index to the edge of the selected TScreenObject that is at X,Y. If there isn't an edge at X,Y, `GetEdge` returns -1.

	`procedure DoEdit(const X,Y: integer); virtual; abstract;`
In descendants, `DoEdit` is used to edit a TScreenObject.

	`procedure SetCursorAtLocation(const X, Y: Integer); virtual; abstract;`
In descendants, `SetCursorAtLocation` is used to set a different cursor at different locations.

	`procedure MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;`
`MouseDown` responds to OnMouseDown events by selecting the TScreenObject under the cursor.

	`procedure MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); override;`
`MouseMove` responds to OnMouseMove events by changing the cursor depending on whether or not the mouse is over a TScreenObject or not. See SetCursorAtLocation.

	`procedure MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;`
`MouseUp` responds to OnMouseUp events editing the TScreenObject under the cursor. See DoEdit.

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