Class TCreateStraightLineScreenObjectTool

DescriptionHierarchyFieldsMethodsProperties

Unit

InteractiveTools

Declaration

type TCreateStraightLineScreenObjectTool = class(TCustomCreateScreenObjectTool)

Description

TCreateStraightLineScreenObjectTool is used to create a line TScreenObject in which the segments are aligned with the grid.

Hierarchy

Overview

Methods

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

Description

Methods

Private procedure ContinueStraightLineScreenObject(X, Y: Integer);

ContinueStraightLineScreenObject creates TCustomCreateScreenObjectTool.CurrentScreenObject if it does not exist. It adds a point based on X,Y to CurrentScreenObject. The point is added so that the last segment is aligned with the grid.

Protected function GetHint: string; override;

Used to define Hint

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

MouseMove sets the cursor and shows what the TScreenObject would look like if the mouse button was clicked.

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

MouseUp checks that the cursor has moved from its previous position. If it has, it calls ContinueStraightLineScreenObject.

Generated by PasDoc 0.10.0 on 2006-10-31 09:56:39