Class TCustomStoreVerticesTool

Unit

InteractiveTools

Declaration

type TCustomStoreVerticesTool = class(TCustomInteractiveTool)

Description

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

• TComponent
• TCustomInteractiveTool
• TCustomStoreVerticesTool

Overview

Fields

	FCurrentScreenObject: TScreenObject;
	FShift: TShiftState;
	FViewDirection: TViewDirection;
	FVisibleVertices: TRbwQuadTree;
	FStoredPoints: TList;

Methods

	function FindPointInNearbyScreenObject(const APoint: TPoint; out NearbyPoint: TPoint2D): boolean;
	procedure ClearPoints;
	procedure StorePointsOfOtherObjects(ScreenObject: TScreenObject);
	function GetSnapPoint: TPoint;
	constructor Create(AOwner: TComponent); override;
	destructor Destroy; override;
	procedure Activate; override;

Properties

property CurrentScreenObject: TScreenObject read FCurrentScreenObject write FCurrentScreenObject;

Description

Fields

	FCurrentScreenObject: TScreenObject;
FCurrentScreenObject: TScreenObject; See CurrentScreenObject.

	FShift: TShiftState;

	FViewDirection: TViewDirection;

	FVisibleVertices: TRbwQuadTree;

	FStoredPoints: TList;
FStoredPoints contains instances of TScreenPointStorage. FStoredPoints is created and filled in StorePointsOfOtherObjects.

Methods

	function FindPointInNearbyScreenObject(const APoint: TPoint; out NearbyPoint: TPoint2D): boolean;

	procedure ClearPoints;

	procedure StorePointsOfOtherObjects(ScreenObject: TScreenObject);
Store the screen coordinates of visible objects.

	function GetSnapPoint: TPoint;

	constructor Create(AOwner: TComponent); override;

	destructor Destroy; override;

	procedure Activate; override;

Properties

	property CurrentScreenObject: TScreenObject read FCurrentScreenObject write FCurrentScreenObject;
CurrentScreenObject is the TScreenObject that is being created.