Class TZoomTool

Unit

InteractiveTools

Declaration

type TZoomTool = class(TCustomInteractiveTool)

Description

TZoomTool defines the behavior when the user wants to zoom in on a particular area that has been outlined.

Hierarchy

• TComponent
• TCustomInteractiveTool
• TZoomTool

Overview

Methods

	function GetCursor: TCursor; override;
	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;

Description

Methods

	function GetCursor: TCursor; override;
GetCursor changes the cursor to the appropriate value when the user wants to zoom in on an area.

	function GetHint: string; override;
Used to define Hint

	procedure MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
MouseDown starts the zoom process.

	procedure MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
MouseUp completes the zooming in process.