Class TZoomOutTool

DescriptionHierarchyFieldsMethodsProperties

Unit

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

Overview

Methods

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

Description

Methods

Protected function GetCursor: TCursor; override;

GetCursor returns the cursor to the class.

Protected function GetHint: string; override;

Used to define Hint

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

MouseUp causes the magnification to decrease by a factor of two.


Generated by PasDoc 0.12.1 on 2013-05-13 15:41:42