Class TRulerTool

Unit

InteractiveTools

Declaration

type TRulerTool = 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
• TRulerTool

Overview

Fields

	FLine: TSimpleLine;
	FDoubleClicked: Boolean;
	FRect: TRect;

Methods

	procedure ShowHint;
	procedure DrawOnBitMap32(Sender: TObject; Buffer: TBitmap32); override;
	function GetHint: string; override;
	procedure Activate; override;
	procedure Deactivate; override;
	Destructor Destroy; override;
	procedure DoubleClick(Sender: TObject); override;
	procedure MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); override;
	procedure MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
	procedure DeleteLastSavedPoint;

Description

Fields

	FLine: TSimpleLine;

	FDoubleClicked: Boolean;

	FRect: TRect;

Methods

	procedure ShowHint;

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

	function GetHint: string; override;

	procedure Activate; override;

	procedure Deactivate; override;

	Destructor Destroy; override;

	procedure DoubleClick(Sender: TObject); override;

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

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

	procedure DeleteLastSavedPoint;