Class TSelectScreenObjectTool

DescriptionHierarchyFieldsMethodsProperties

Unit

InteractiveTools

Declaration

type TSelectScreenObjectTool = class(TCustomSelectScreenObjectTool)

Description

TSelectScreenObjectTool is used to select and move one or more TScreenObjects.

Points can be selected in either of two ways. 1. The user clicks on a TScreenObject. 2. The user drags with the mouse button down to select a group of TScreenObject that are completely inside the selection rectangle.

Hierarchy

Overview

Fields

Private FDoubleClicked: boolean;
Private FShouldDrawSelectionRectangle: boolean;

Methods

Private function SelectScreenObjectsWithLine( const ToggleSelection: boolean): boolean;
Private procedure DrawSelectionRectangle;
Protected function GetHint: string; override;
Public procedure Activate; override;
Public procedure Draw(const Sender: TObject; const Direction: TViewDirection); override;
Public procedure DoubleClick(Sender: TObject); 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;

Properties

Public property ShouldDrawSelectionRectangle: boolean read FShouldDrawSelectionRectangle write FShouldDrawSelectionRectangle;

Description

Fields

Private FDoubleClicked: boolean;

FDoubleClicked is set to True when the user double-clicks.

Private FShouldDrawSelectionRectangle: boolean;

FShouldDrawSelectionRectangle indicates that the selection rectangle should be drawn.

Methods

Private function SelectScreenObjectsWithLine( const ToggleSelection: boolean): boolean;

SelectScreenObjectsWithLine selects a TScreenObject by dragging with the mouse.

Private procedure DrawSelectionRectangle;

DrawSelectionRectangle draws a rectangle used to select TScreenObjects.

Protected function GetHint: string; override;

Used to define Hint

Public procedure Activate; override;

Activate sets FShouldDrawSelectionRectangle to True.

Public procedure Draw(const Sender: TObject; const Direction: TViewDirection); override;

Draw draws a selection rectangle in the TCustomInteractiveTool.ZoomBox. See DrawSelectionRectangle

Public procedure DoubleClick(Sender: TObject); override;

DoubleClick responds to OnDoubleClick events by setting FDoubleClicked to true.

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

MouseDown responds to OnMouseDown events by initializing FMovingScreenObjects and TCustomSelectScreenObjectTool.

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

MouseMove responds to OnMouseMove events by redrawing the selection rectangle.

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

MouseUp responds to OnMouseUp events by either selecting or moving TScreenObjects.

Properties

Public property ShouldDrawSelectionRectangle: boolean read FShouldDrawSelectionRectangle write FShouldDrawSelectionRectangle;

ShouldDrawSelectionRectangle indicates that the selection rectangle should be drawn.

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