Class TLassoTool

Properties

Unit

InteractiveTools

Declaration

type TLassoTool = class(TCustomInteractiveTool)

Description

TLassoTool is used to select TScreenObjects by enclosing them with a polygon.

Hierarchy

TComponent
TCustomInteractiveTool
TLassoTool

Overview

Fields

FSelectLine: TLine;

Methods

	`function GetHint: string; override;`
	`function SelectScreenObjectsWithLine(const ToggleSelection: boolean): boolean;`
	`destructor Destroy; override;`
	`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;`
	`procedure Draw(const Sender: TObject; const Direction: TViewDirection); override;`

Description

Fields

	`FSelectLine: TLine;`
`FSelectLine`: TLine; `FSelectLine` is the TLine used to select the TScreenObjects. `FSelectLine` is created in MouseDown.

Methods

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

	`function SelectScreenObjectsWithLine(const ToggleSelection: boolean): boolean;`
`SelectScreenObjectsWithLine` returns `True` if an entire object is selected by being inside FSelectLine. If ToggleSelection is true, TScreenObjects inside FSelectLine are toggled from Selected to not Selected and vice-versa.

	`destructor Destroy; override;`
`Destroy` destroys the current instance of `TLassoTool`. Do not call `Destroy` directly. Call Free instead.

	`procedure MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;`
`MouseDown` creates a new FSelectLine (and frees the old one) and adds a point to it.

	`procedure MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); override;`
`MouseMove` adds points to FSelectLine

	`procedure MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;`
`MouseUp` selects TScreenObjects with FSelectLine.

	`procedure Draw(const Sender: TObject; const Direction: TViewDirection); override;`
`Draw` draws the FSelectLine.

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