Class TSpacingGridTool

DescriptionHierarchyFieldsMethodsProperties

Unit

frmSetSpacingUnit

Declaration

type TSpacingGridTool = class(TCustomCellSelectionTool)

Description

TSpacingGridTool is used to set the size of selected columns, rows, or layers in TPhastGrid.

Hierarchy

Overview

Fields

Private FSettingSpacing: boolean;
Protected FFirstSpacingColumn: integer;
Protected FFirstSpacingLayer: integer;
Protected FFirstSpacingRow: integer;
Protected FLastSpacingColumn: integer;
Protected FLastSpacingLayer: integer;
Protected FLastSpacingRow: integer;

Methods

Private procedure DrawSetSpacing(const Direction: TViewDirection; const BitMap: TBitmap32);
Protected procedure BeginSetSpacing(X, Y: Integer);
Protected procedure ContinueSetSpacing(X, Y: integer);
Protected function GetHint: string; override;
Protected procedure SetGridSpacing;
Protected procedure SetSpacingFront(X, Y: Integer);
Protected procedure SetSpacingSide(X, Y: Integer);
Protected procedure SetSpacingTop(X, Y: 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 FirstSpacingColumn: integer read FFirstSpacingColumn;
Public property FirstSpacingLayer: integer read FFirstSpacingLayer;
Public property FirstSpacingRow: integer read FFirstSpacingRow;
Public property LastSpacingColumn: integer read FLastSpacingColumn;
Public property LastSpacingLayer: integer read FLastSpacingLayer;
Public property LastSpacingRow: integer read FLastSpacingRow;

Description

Fields

Private FSettingSpacing: boolean;

FSettingSpacing: boolean; FSettingSpacing is used in DrawSetSpacing, MouseMove, and MouseUp to respond differently if the user is in the middle of selecting cells in order to set their spacing.

Protected FFirstSpacingColumn: integer;

FFirstSpacingColumn: integer; See FirstSpacingColumn.

Protected FFirstSpacingLayer: integer;

FFirstSpacingLayer: integer; See FirstSpacingLayer.

Protected FFirstSpacingRow: integer;

FFirstSpacingRow: integer; See FirstSpacingRow.

Protected FLastSpacingColumn: integer;

FLastSpacingColumn: integer; See LastSpacingColumn.

Protected FLastSpacingLayer: integer;

FLastSpacingLayer: integer; See LastSpacingLayer.

Protected FLastSpacingRow: integer;

FLastSpacingRow: integer; See LastSpacingRow.

Methods

Private procedure DrawSetSpacing(const Direction: TViewDirection; const BitMap: TBitmap32);
 
Protected procedure BeginSetSpacing(X, Y: Integer);

BeginSetSpacing sets FSettingSpacing to True and sets FirstSpacingColumn, FirstSpacingLayer, FirstSpacingRow based on X,Y . .

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

ContinueSetSpacing sets LastSpacingColumn, LastSpacingLayer, LastSpacingRow based on X,Y . .

Parameters
X
X is the X-coordinate of the mouse
Y
Y is the Y-coordinate of the mouse
Protected function GetHint: string; override;

Used to define Hint.

Protected procedure SetGridSpacing;

SetGridSpacing shows an instance of TfrmSetSpacing.

Protected procedure SetSpacingFront(X, Y: Integer);

SetSpacingFront sets LastSpacingColumn, LastSpacingLayer, LastSpacingRow based on X,Y on the front view of the model and calls SetGridSpacing. . .

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

SetSpacingSide sets LastSpacingColumn, LastSpacingLayer, LastSpacingRow based on X,Y on the side view of the model and calls SetGridSpacing. . .

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

SetSpacingTop sets LastSpacingColumn, LastSpacingLayer, LastSpacingRow based on X,Y on the top view of the model and calls SetGridSpacing. . .

Parameters
X
X is the X-coordinate of the mouse
Y
Y is the Y-coordinate of the mouse
Protected procedure DrawOnBitMap32(Sender: TObject; Buffer: TBitmap32); override;
 
Public procedure MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;

MouseDown calls BeginSetSpacing.

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

MouseMove calls ContinueSetSpacing.

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

MouseUp calls SetSpacingTop, SetSpacingFront, or SetSpacingSide.

Properties

Public property FirstSpacingColumn: integer read FFirstSpacingColumn;

FirstSpacingColumn draws the selected cells in TPhastGrid. procedure Draw(const Sender: TObject; const Direction: TViewDirection); override; FirstSpacingColumn is the first column in the range of columns that have been selected in order to set their size. See LastSpacingColumn.

Public property FirstSpacingLayer: integer read FFirstSpacingLayer;

FirstSpacingLayer is the first layer in the range of layers that have been selected in order to set their size. See LastSpacingRow.

Public property FirstSpacingRow: integer read FFirstSpacingRow;

FirstSpacingRow is the first row in the range of rows that have been selected in order to set their size. See LastSpacingRow.

Public property LastSpacingColumn: integer read FLastSpacingColumn;

LastSpacingColumn is the last column in the range of columns that have been selected in order to set their size. See FirstSpacingColumn.

Public property LastSpacingLayer: integer read FLastSpacingLayer;

LastSpacingLayer is the last layer in the range of layers that have been selected in order to set their size. See FirstSpacingLayer.

Public property LastSpacingRow: integer read FLastSpacingRow;

LastSpacingRow is the last row in the range of rows that have been selected in order to set their size. See FirstSpacingRow.

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