Class TPanTool

Unit

InteractiveTools

Declaration

type TPanTool = class(TCustomInteractiveTool)

Description

TPanTool is used to move the view of the model.

Hierarchy

• TComponent
• TCustomInteractiveTool
• TPanTool

Overview

Methods

	function GetHint: string; override;
	procedure MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
	procedure MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
	procedure RightClick(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;

Description

Methods

	function GetHint: string; override;
Used to define Hint

	procedure MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
MouseDown starts to move the view of the model.

	procedure MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
MouseUp finishes moving the view of the model.

	procedure RightClick(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
RightClick cancels the panning operation.