Class TLassoTool

DescriptionHierarchyFieldsMethodsProperties

Unit

InteractiveTools

Declaration

type TLassoTool = class(TScreenObjectTool)

Description

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

Hierarchy

Overview

Methods

Protected function ScreenObjectInside(AScreenObject: TScreenObject): boolean; override;
Protected function GetHint: string; override;
Protected procedure DrawOnBitMap32(Sender: TObject; Buffer: TBitmap32); override;
Public procedure Activate; override;
Public procedure MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
Public procedure MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); override;
Public procedure MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;

Description

Methods

Protected function ScreenObjectInside(AScreenObject: TScreenObject): boolean; override;
 
Protected function GetHint: string; override;

Used to define Hint

Protected procedure DrawOnBitMap32(Sender: TObject; Buffer: TBitmap32); override;

DrawOnBitMap32 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.

Public procedure Activate; override;
 
Public 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.

Public procedure MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); override;

MouseMove adds points to FSelectLine

Public procedure MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;

MouseUp selects TScreenObjects with FSelectLine.

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