Class TZoomOutTool

Unit

InteractiveTools

Declaration

type TZoomOutTool = class(TCustomInteractiveTool)

Description

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

Hierarchy

• TComponent
• TCustomInteractiveTool
• TZoomOutTool

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 decrease by a factor of two.