Class TfrmSubdivide

DescriptionHierarchyFieldsMethodsProperties

Unit

frmSubdivideUnit

Declaration

type TfrmSubdivide = class(TfrmCustomGoPhast)

Description

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

Hierarchy

Overview

Fields

Implicit btnCancel: TBitBtn;
Implicit btnHelp: TBitBtn;
Implicit btnOK: TBitBtn;
Implicit lblColumns: TLabel;
Implicit lblFromCol: TLabel;
Implicit lblFromLayer: TLabel;
Implicit lblFromRow: TLabel;
Implicit lblLayers: TLabel;
Implicit lblRows: TLabel;
Implicit lblSubdivideCol: TLabel;
Implicit lblSubdivideLayer: TLabel;
Implicit lblSubdivideRow: TLabel;
Implicit lblThroughCol: TLabel;
Implicit lblThroughLayer: TLabel;
Implicit lblThroughRow: TLabel;
Implicit seCol1: TSpinEdit;
Implicit seCol2: TSpinEdit;
Implicit seColCount: TSpinEdit;
Implicit seLayer1: TSpinEdit;
Implicit seLayer2: TSpinEdit;
Implicit seLayerCount: TSpinEdit;
Implicit seRow1: TSpinEdit;
Implicit seRow2: TSpinEdit;
Implicit seRowCount: TSpinEdit;

Methods

Implicit procedure btnCancelClick(Sender: TObject);
Implicit procedure btnOKClick(Sender: TObject);
Implicit procedure FormCreate(Sender: TObject); override;
Implicit procedure FormDestroy(Sender: TObject);
Implicit procedure seCol1Changed(Sender: TObject; NewValue: Integer);
Implicit procedure seCol2Changed(Sender: TObject; NewValue: Integer);
Implicit procedure seLayer1Changed(Sender: TObject; NewValue: Integer);
Implicit procedure seLayer2Changed(Sender: TObject; NewValue: Integer);
Implicit procedure seRow1Changed(Sender: TObject; NewValue: Integer);
Implicit procedure seRow2Changed(Sender: TObject; NewValue: Integer);
Private procedure SetData;
Public procedure GetData(const ACol, ARow, ALayer: integer);

Description

Fields

Implicit btnCancel: TBitBtn;

btnCancel: TBitBtn; Clicking btnCancel closes TfrmSubdivide without changing anything. See btnCancelClick.

Implicit btnHelp: TBitBtn;

btnHelp: TBitBtn; Clicking btnHelp displays help on TfrmSubdivide.

Implicit btnOK: TBitBtn;

btnOK: TBitBtn; See btnOKClick.

Implicit lblColumns: TLabel;

lblColumns: TLabel; lblColumns displays "columns".

Implicit lblFromCol: TLabel;

lblFromCol: TLabel; lblFromCol displays "From &column ".

Implicit lblFromLayer: TLabel;

lblFromLayer: TLabel; lblFromLayer displays "From &layer".

Implicit lblFromRow: TLabel;

lblFromRow: TLabel; lblFromRow displays "From &row".

Implicit lblLayers: TLabel;

lblLayers: TLabel; lblLayers displays "layers".

Implicit lblRows: TLabel;

lblRows: TLabel; lblRows displays "rows".

Implicit lblSubdivideCol: TLabel;

lblSubdivideCol: TLabel; lblSubdivideCol displays "subdivide each column into".

Implicit lblSubdivideLayer: TLabel;

lblSubdivideLayer: TLabel; lblSubdivideLayer displays "subdivide each layer into".

Implicit lblSubdivideRow: TLabel;

lblSubdivideRow: TLabel; lblSubdivideRow displays "subdivide each row into".

Implicit lblThroughCol: TLabel;

lblThroughCol: TLabel; lblThroughCol displays "through column".

Implicit lblThroughLayer: TLabel;

lblThroughLayer: TLabel; lblThroughLayer displays "through layer".

Implicit lblThroughRow: TLabel;

lblThroughRow: TLabel; lblThroughRow displays "through row".

Implicit seCol1: TSpinEdit;

seCol1: TSpinEdit; seCol1 specifies the first column to subdivide.

Implicit seCol2: TSpinEdit;

seCol2: TSpinEdit; seCol2 specifies the last column to subdivide.

Implicit seColCount: TSpinEdit;

seColCount: TSpinEdit; seColCount specifies how many columns each selected column will be divided into.

Implicit seLayer1: TSpinEdit;

seLayer1: TSpinEdit; seLayer1 specifies the first layer to subdivide.

Implicit seLayer2: TSpinEdit;

seLayer2: TSpinEdit; seLayer2 specifies the last layer to subdivide.

Implicit seLayerCount: TSpinEdit;

seLayerCount: TSpinEdit; seLayerCount specifies how many layers each selected layer will be divided into.

Implicit seRow1: TSpinEdit;

seRow1: TSpinEdit; seRow1 specifies the first row to subdivide.

Implicit seRow2: TSpinEdit;

seRow2: TSpinEdit; seRow2 specifies the first row to subdivide.

Implicit seRowCount: TSpinEdit;

seRowCount: TSpinEdit; seRowCount specifies how many rows each selected row will be divided into.

Methods

Implicit procedure btnCancelClick(Sender: TObject);

btnCancelClick sets SubdivideGridTool.FSubdividing to False and closes TfrmSubdivide.

Implicit procedure btnOKClick(Sender: TObject);

btnOKClick calls SetData.

Implicit procedure FormCreate(Sender: TObject); override;

FormCreate initializes TfrmSubdivide.

Implicit procedure FormDestroy(Sender: TObject);

FormDestroy causes the view of the grid to be redrawn.

Implicit procedure seCol1Changed(Sender: TObject; NewValue: Integer);

seCol1Changed updates SubdivideGridTool and causes the grid to be redrawn.

Implicit procedure seCol2Changed(Sender: TObject; NewValue: Integer);

seCol2Changed updates SubdivideGridTool and causes the grid to be redrawn.

Implicit procedure seLayer1Changed(Sender: TObject; NewValue: Integer);

seLayer1Changed updates SubdivideGridTool and causes the grid to be redrawn.

Implicit procedure seLayer2Changed(Sender: TObject; NewValue: Integer);

seLayer2Changed updates SubdivideGridTool and causes the grid to be redrawn.

Implicit procedure seRow1Changed(Sender: TObject; NewValue: Integer);

seRow1Changed updates SubdivideGridTool and causes the grid to be redrawn.

Implicit procedure seRow2Changed(Sender: TObject; NewValue: Integer);

seRow2Changed updates SubdivideGridTool and causes the grid to be redrawn.

Private procedure SetData;

SetData subdivides the selected grid cells using a TUndoSubdivide.

Public procedure GetData(const ACol, ARow, ALayer: integer);

GetData gets the selected columns, rows, and layers to subdivide.

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