Class TCreatePointScreenObjectTool

Unit

InteractiveTools

Declaration

type TCreatePointScreenObjectTool = class(TCustomCreateScreenObjectTool)

Description

TCreatePointScreenObjectTool is used to create a point TScreenObject.

Hierarchy

• TComponent
• TCustomInteractiveTool
• TCustomStoreVerticesTool
• TCustomCreateScreenObjectTool
• TCreatePointScreenObjectTool

Overview

Methods

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

Description

Methods

	procedure CreatePointScreenObject(X, Y: Integer; Shift: TShiftState);
CreatePointScreenObject creates the point TScreenObject.

	function GetCursor: TCursor; override;

	function GetHint: string; override;
Used to define Hint

	procedure MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); override;

	procedure MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
MouseUp responds to Mouse-Up events by creating a TScreenObject.