Class TAddGridBoundaryTool

DescriptionHierarchyFieldsMethodsProperties

Unit

InteractiveTools

Declaration

type TAddGridBoundaryTool = class(TCustomGridTool)

Description

TAddGridBoundaryTool is used to add column, row, or layer boundaries to the grid at a position where the user clicks the mouse.

Hierarchy

Overview

Methods

Protected procedure AddColumnOrLayer(X, Y: Integer);
Protected procedure AddColumnOrRow(X, Y: Integer);
Protected procedure AddRowOrLayer(X, Y: Integer);
Protected function GetCursor: TCursor; override;
Protected procedure DrawOnBitMap32(Sender: TObject; Buffer: TBitmap32); override;
Public procedure Activate; 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

Protected procedure AddColumnOrLayer(X, Y: Integer);

AddColumnOrLayer adds a column or layer boundary on the front view of the model.

Protected procedure AddColumnOrRow(X, Y: Integer);

AddColumnOrRow adds a column or row boundary on the top view of the model.

Protected procedure AddRowOrLayer(X, Y: Integer);

AddRowOrLayer adds a row or layer boundary on the side view of the model.

Protected function GetCursor: TCursor; override;

GetCursor defines the cursor to use with this TAddGridBoundaryTool.

Protected procedure DrawOnBitMap32(Sender: TObject; Buffer: TBitmap32); override;
 
Public procedure Activate; override;

Activate sets the Hint of TfrmGoPhast.frameTopView, TfrmGoPhast.frameFrontView, and TfrmGoPhast.frameSideView. Each is set to a different value.

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

MouseMove causes ZoomBox.Image32 to be redrawn.

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

MouseUp adds a column, row, or layer boundary.

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