Class TZoomInTool

Unit

InteractiveTools

Declaration

type TZoomInTool = class(TCustomInteractiveTool)

Description

TZoomInTool is used to zoom in by a factor of 2 at the location where the user clicks the mouse.

Hierarchy

• TComponent
• TCustomInteractiveTool
• TZoomInTool

Overview

Methods

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

Description

Methods

	function GetCursor: TCursor; override;
GetCursor returns the cursor to the class.

	function GetHint: string; override;
Used to define Hint

	procedure MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
MouseUp causes the magnification to increase by a factor of two.