Class TMoveSutraNodesTool

DescriptionHierarchyFieldsMethodsProperties

Unit

Declaration

type TMoveSutraNodesTool = class(TCustomInteractiveTool)

Description

no description available, TCustomInteractiveTool description follows

TCustomInteractiveTool is an abstract base class. Its descendants (mainly in InteractiveTools) handle on-screen interaction between the user and the grid or TScreenObjects.

The main procedures in which the interaction is handled are MouseDown, MouseMove and MouseUp. These are called in TframeView.ZoomBoxImage32MouseDown, TframeView.ZoomBoxImage32MouseMove, and TframeView.ZoomBoxImage32MouseUp.

The hints in TfrmGoPhast.frameTopView, TfrmGoPhast.frameFrontView, and TfrmGoPhast.frameSideView are set by the current tool via GetHint, Activate, and Deactivate.

See also
CurrentTool
CurrentTool is the TCustomInteractiveTool that is currently being used to handle the user interaction with TframeView.ZoomBox.

Hierarchy

Overview

Fields

Private FSelectedNodes: TSutraNode2D_List;
Private FSelectedElements: TSutraElement2D_List;
Private FNodeQuadTree: TRbwQuadTree;
Private FStartX: Integer;
Private FStartY: Integer;

Methods

Private procedure UpdateQuadTree;
Protected function GetCursor: TCursor; override;
Public constructor Create(AOwner: TComponent); override;
Public destructor Destroy; override;
Public procedure DeleteSelectedNodesOrElements;
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

Fields

Private FSelectedNodes: TSutraNode2D_List;
 
Private FSelectedElements: TSutraElement2D_List;
 
Private FNodeQuadTree: TRbwQuadTree;
 
Private FStartX: Integer;
 
Private FStartY: Integer;
 

Methods

Private procedure UpdateQuadTree;
 
Protected function GetCursor: TCursor; override;
 
Public constructor Create(AOwner: TComponent); override;
 
Public destructor Destroy; override;
 
Public procedure DeleteSelectedNodesOrElements;
 
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;
 

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