Class TfrmSubdivide

Description

Hierarchy

Fields

Methods

Properties

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

TForm
TfrmCustomGoPhast
TfrmSubdivide

Overview

Fields

	`btnCancel: TBitBtn;`
	`btnHelp: TBitBtn;`
	`btnOK: TBitBtn;`
	`lblFromRow: TLabel;`
	`lblRows: TLabel;`
	`lblSubdivideRow: TLabel;`
	`lblThroughRow: TLabel;`
	`seRow1: TJvSpinEdit;`
	`seRow2: TJvSpinEdit;`
	`seRowCount: TJvSpinEdit;`
	`GroupBox1: TGroupBox;`
	`lblFromCol: TLabel;`
	`seCol1: TJvSpinEdit;`
	`lblThroughCol: TLabel;`
	`seCol2: TJvSpinEdit;`
	`lblSubdivideCol: TLabel;`
	`seColCount: TJvSpinEdit;`
	`lblColumns: TLabel;`
	`GroupBox2: TGroupBox;`
	`GroupBox3: TGroupBox;`
	`lblFromLayer: TLabel;`
	`seLayer1: TJvSpinEdit;`
	`lblThroughLayer: TLabel;`
	`seLayer2: TJvSpinEdit;`
	`lblSubdivideLayer: TLabel;`
	`seLayerCount: TJvSpinEdit;`
	`lblLayers: TLabel;`
	`FGettingData: Boolean;`

Methods

	`procedure btnOKClick(Sender: TObject);`
	`procedure FormCreate(Sender: TObject); override;`
	`procedure FormDestroy(Sender: TObject); override;`
	`procedure seCol1Changed(Sender: TObject);`
	`procedure seCol2Changed(Sender: TObject);`
	`procedure seLayer1Changed(Sender: TObject);`
	`procedure seLayer2Changed(Sender: TObject);`
	`procedure seRow1Changed(Sender: TObject);`
	`procedure seRow2Changed(Sender: TObject);`
	`procedure FormShow(Sender: TObject);`
	`procedure FormClose(Sender: TObject; var Action: TCloseAction);`
	`procedure SetData;`
	`procedure GetData(const ACol, ARow, ALayer: integer);`

Description

Fields

	`btnCancel: TBitBtn;`
Clicking `btnCancel` closes `TfrmSubdivide` without changing anything.

	`btnHelp: TBitBtn;`
Clicking `btnHelp` displays help on `TfrmSubdivide`.

	`btnOK: TBitBtn;`
See btnOKClick.

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

	`lblRows: TLabel;`
`lblRows` displays "rows".

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

	`lblThroughRow: TLabel;`
`lblThroughRow` displays "through row".

	`seRow1: TJvSpinEdit;`
`seRow1` specifies the first row to subdivide.

	`seRow2: TJvSpinEdit;`
`seRow2` specifies the first row to subdivide.

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

	`GroupBox1: TGroupBox;`

	`lblFromCol: TLabel;`

	`seCol1: TJvSpinEdit;`

	`lblThroughCol: TLabel;`

	`seCol2: TJvSpinEdit;`

	`lblSubdivideCol: TLabel;`

	`seColCount: TJvSpinEdit;`

	`lblColumns: TLabel;`

	`GroupBox2: TGroupBox;`

	`GroupBox3: TGroupBox;`

	`lblFromLayer: TLabel;`

	`seLayer1: TJvSpinEdit;`

	`lblThroughLayer: TLabel;`

	`seLayer2: TJvSpinEdit;`

	`lblSubdivideLayer: TLabel;`

	`seLayerCount: TJvSpinEdit;`

	`lblLayers: TLabel;`

	`FGettingData: Boolean;`

Methods

	`procedure btnOKClick(Sender: TObject);`
`btnOKClick` calls SetData.

	`procedure FormCreate(Sender: TObject); override;`
`FormCreate` initializes `TfrmSubdivide`.

	`procedure FormDestroy(Sender: TObject); override;`
`FormDestroy` causes the view of the grid to be redrawn.

	`procedure seCol1Changed(Sender: TObject);`
`seCol1Changed` updates SubdivideGridTool and causes the grid to be redrawn.

	`procedure seCol2Changed(Sender: TObject);`
`seCol2Changed` updates SubdivideGridTool and causes the grid to be redrawn.

	`procedure seLayer1Changed(Sender: TObject);`
`seLayer1Changed` updates SubdivideGridTool and causes the grid to be redrawn.

	`procedure seLayer2Changed(Sender: TObject);`
`seLayer2Changed` updates SubdivideGridTool and causes the grid to be redrawn.

	`procedure seRow1Changed(Sender: TObject);`
`seRow1Changed` updates SubdivideGridTool and causes the grid to be redrawn.

	`procedure seRow2Changed(Sender: TObject);`
`seRow2Changed` updates SubdivideGridTool and causes the grid to be redrawn.

	`procedure FormShow(Sender: TObject);`

	`procedure FormClose(Sender: TObject; var Action: TCloseAction);`

	`procedure SetData;`
`SetData` subdivides the selected grid cells using a TUndoSubdivide.

	`procedure GetData(const ACol, ARow, ALayer: integer);`
`GetData` gets the selected columns, rows, and layers to subdivide.

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