Class TSubdivideGridTool

DescriptionHierarchyFieldsMethodsProperties

Unit

frmSubdivideUnit

Declaration

type TSubdivideGridTool = class(TCustomCellSelectionTool)

Description

TSubdivideGridTool is used to subdivide elements in TPhastGrid into multiple columns, rows, and layers.

Hierarchy

Overview

Fields

Protected FFirstSubdivideColumn: integer;
Protected FFirstSubdivideLayer: integer;
Protected FFirstSubdivideRow: integer;
Protected FLastSubdivideColumn: integer;
Protected FLastSubdivideLayer: integer;
Protected FLastSubdivideRow: integer;
Protected FSubdividing: boolean;

Methods

Protected procedure BeginSubdivide(X, Y: Integer);
Protected procedure ContinueSubdivide(X, Y: integer);
Protected procedure DrawSubdividing(const Direction: TViewDirection; const BitMap: TBitmap32);
Protected function GetHint: string; override;
Protected procedure SubdivideFront(X, Y: Integer);
Protected procedure SubdivideSide(X, Y: Integer);
Protected procedure SubdivideTop(X, Y: Integer);
Protected procedure Subdivide(const LastCol, LastRow, LastLayer: integer);
Protected procedure DrawOnBitMap32(Sender: TObject; Buffer: TBitmap32); override;
Public procedure MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); 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;

Properties

Public property FirstSubdivideColumn: integer read FFirstSubdivideColumn;
Public property FirstSubdivideLayer: integer read FFirstSubdivideLayer;
Public property FirstSubdivideRow: integer read FFirstSubdivideRow;
Public property LastSubdivideColumn: integer read FLastSubdivideColumn;
Public property LastSubdivideLayer: integer read FLastSubdivideLayer;
Public property LastSubdivideRow: integer read FLastSubdivideRow;
Public property Subdividing: boolean read FSubdividing write FSubdividing;

Description

Fields

Protected FFirstSubdivideColumn: integer;

FFirstSubdivideColumn: integer; See FirstSubdivideColumn.

Protected FFirstSubdivideLayer: integer;

FFirstSubdivideLayer: integer; See FirstSubdivideLayer.

Protected FFirstSubdivideRow: integer;

FFirstSubdivideRow: integer; See FirstSubdivideRow.

Protected FLastSubdivideColumn: integer;

FLastSubdivideColumn: integer; See LastSubdivideColumn.

Protected FLastSubdivideLayer: integer;

FLastSubdivideLayer: integer; See LastSubdivideLayer.

Protected FLastSubdivideRow: integer;

FLastSubdivideRow: integer; See LastSubdivideRow.

Protected FSubdividing: boolean;

FSubdividing: boolean; See Subdividing.

Methods

Protected procedure BeginSubdivide(X, Y: Integer);

BeginSubdivide is sets FFirstSubdivideColumn, FFirstSubdivideLayer, and FFirstSubdivideRow based on X,Y and ViewDirection.

Parameters
X
X is the X-coordinate of the mouse.
Y
Y is the Y-coordinate of the mouse.
Protected procedure ContinueSubdivide(X, Y: integer);

ContinueSubdivide is sets FLastSubdivideColumn, FLastSubdivideLayer, and FLastSubdivideRow based on X,Y and ViewDirection.

Parameters
X
X is the X-coordinate of the mouse.
Y
Y is the Y-coordinate of the mouse.
Protected procedure DrawSubdividing(const Direction: TViewDirection; const BitMap: TBitmap32);
 
Protected function GetHint: string; override;

Used to define Hint.

Protected procedure SubdivideFront(X, Y: Integer);

SubdivideFront subdivides the selected columns and layers on the front view of the model.

Parameters
X
X is the X-coordinate of the mouse.
Y
Y is the Y-coordinate of the mouse.
Protected procedure SubdivideSide(X, Y: Integer);

SubdivideSide subdivides the selected rows and layers on the side view of the model.

Parameters
X
X is the X-coordinate of the mouse.
Y
Y is the Y-coordinate of the mouse.
Protected procedure SubdivideTop(X, Y: Integer);

SubdivideTop subdivides the selected columns and rows on the top view of the model.

Parameters
X
X is the X-coordinate of the mouse.
Y
Y is the Y-coordinate of the mouse.
Protected procedure Subdivide(const LastCol, LastRow, LastLayer: integer);

Subdivide displays a TfrmSubdivide.

Protected procedure DrawOnBitMap32(Sender: TObject; Buffer: TBitmap32); override;
 
Public procedure MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;

MouseDown calls BeginSubdivide.

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

MouseMove calls ContinueSubdivide.

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

MouseUp calls SubdivideTop, SubdivideFront, or SubdivideSide depending on ViewDirection.

Properties

Public property FirstSubdivideColumn: integer read FFirstSubdivideColumn;

FirstSubdivideColumn draws the selected elements. procedure Draw(const Sender: TObject; const Direction: TViewDirection); override; FirstSubdivideColumn is the first selected column to be subdivided.

Public property FirstSubdivideLayer: integer read FFirstSubdivideLayer;

FirstSubdivideLayer is the first selected layer to be subdivided.

Public property FirstSubdivideRow: integer read FFirstSubdivideRow;

FirstSubdivideRow is the first selected row to be subdivided.

Public property LastSubdivideColumn: integer read FLastSubdivideColumn;

LastSubdivideColumn is the last selected column to be subdivided.

Public property LastSubdivideLayer: integer read FLastSubdivideLayer;

LastSubdivideLayer is the last selected layer to be subdivided.

Public property LastSubdivideRow: integer read FLastSubdivideRow;

LastSubdivideRow is the last selected row to be subdivided.

Public property Subdividing: boolean read FSubdividing write FSubdividing;

Subdividing indicates whether the user is in the process of subdividing grid elements.

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