Class TfrmSetSpacing

Description

Hierarchy

Fields

Methods

Properties

Unit

frmSetSpacingUnit

Declaration

type TfrmSetSpacing = class(TfrmCustomGoPhast)

Description

TfrmSetSpacing is used to change the size of the columns, rows, and/or layers of the TPhastGrid.

Hierarchy

TForm
TfrmCustomGoPhast
TfrmSetSpacing

Overview

Fields

	`btnCancel: TBitBtn;`
	`btnHelp: TBitBtn;`
	`btnOK: TBitBtn;`
	`gbColumns: TGroupBox;`
	`cbColumns: TCheckBox;`
	`lblFromCol: TLabel;`
	`seCol1: TJvSpinEdit;`
	`lblThroughCol: TLabel;`
	`seCol2: TJvSpinEdit;`
	`lblSetCol: TLabel;`
	`rdeCol: TRbwDataEntry;`
	`gbRows: TGroupBox;`
	`cbRows: TCheckBox;`
	`lblFromRow: TLabel;`
	`seRow1: TJvSpinEdit;`
	`lblThroughRow: TLabel;`
	`seRow2: TJvSpinEdit;`
	`lblSetRow: TLabel;`
	`rdeRow: TRbwDataEntry;`
	`gbLayers: TGroupBox;`
	`cbLayers: TCheckBox;`
	`lblFromLayer: TLabel;`
	`seLayer1: TJvSpinEdit;`
	`lblThroughLayer: TLabel;`
	`seLayer2: TJvSpinEdit;`
	`lblSetLayer: TLabel;`
	`rdeLayer: TRbwDataEntry;`
	`FReversedCols: boolean;`
	`FReversedLayers: boolean;`
	`FReversedRows: boolean;`
	`FGettingData: Boolean;`

Methods

	`procedure btnOKClick(Sender: TObject);`
	`procedure cbColumnsClick(Sender: TObject);`
	`procedure cbLayersClick(Sender: TObject);`
	`procedure cbRowsClick(Sender: TObject);`
	`procedure FormCreate(Sender: TObject); override;`
	`procedure FormDestroy(Sender: TObject); override;`
	`procedure rdeChange(Sender: TObject);`
	`procedure seCol1Change(Sender: TObject);`
	`procedure seCol2Change(Sender: TObject);`
	`procedure seRow1Change(Sender: TObject);`
	`procedure seRow2Change(Sender: TObject);`
	`procedure seLayer1Change(Sender: TObject);`
	`procedure seLayer2Change(Sender: TObject);`
	`procedure FormClose(Sender: TObject; var Action: TCloseAction);`
	`procedure EnableOK;`
	`procedure GetData;`
	`procedure SetData;`

Description

Fields

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

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

	`btnOK: TBitBtn;`
See btnOKClick.

	`gbColumns: TGroupBox;`

	`cbColumns: TCheckBox;`

	`lblFromCol: TLabel;`

	`seCol1: TJvSpinEdit;`

	`lblThroughCol: TLabel;`

	`seCol2: TJvSpinEdit;`

	`lblSetCol: TLabel;`

	`rdeCol: TRbwDataEntry;`

	`gbRows: TGroupBox;`

	`cbRows: TCheckBox;`

	`lblFromRow: TLabel;`

	`seRow1: TJvSpinEdit;`

	`lblThroughRow: TLabel;`

	`seRow2: TJvSpinEdit;`

	`lblSetRow: TLabel;`

	`rdeRow: TRbwDataEntry;`

	`gbLayers: TGroupBox;`

	`cbLayers: TCheckBox;`

	`lblFromLayer: TLabel;`

	`seLayer1: TJvSpinEdit;`

	`lblThroughLayer: TLabel;`

	`seLayer2: TJvSpinEdit;`

	`lblSetLayer: TLabel;`

	`rdeLayer: TRbwDataEntry;`

	`FReversedCols: boolean;`
`FReversedCols` is used to indicate that the user has specified a value for in seCol1 that is greater than the one in seCol2.

	`FReversedLayers: boolean;`
`FReversedLayers` is used to indicate that the user has specified a value for in seLayer1 that is greater than the one in seLayer2.

	`FReversedRows: boolean;`
`FReversedRows` is used to indicate that the user has specified a value for in seRow1 that is greater than the one in seRow2.

	`FGettingData: Boolean;`

Methods

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

	`procedure cbColumnsClick(Sender: TObject);`
`cbColumnsClick` is used to enable or disable seCol1, seCol2, and rdeCol,

	`procedure cbLayersClick(Sender: TObject);`
`cbLayersClick` is used to enable or disable seLayer1, seLayer2, and rdeLayer,

	`procedure cbRowsClick(Sender: TObject);`
`cbRowsClick` is used to enable or disable seRow1, seRow2, and rdeRow,

	`procedure FormCreate(Sender: TObject); override;`
`FormCreate` calls GetData.

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

	`procedure rdeChange(Sender: TObject);`
`rdeChange` calls EnableOK.

	`procedure seCol1Change(Sender: TObject);`
`seCol1Change` updates SpacingGridTool.FFirstSpacingColumn or SpacingGridTool.FLastSpacingColumn and causes the grid to be redrawn.

	`procedure seCol2Change(Sender: TObject);`
`seCol2Change` updates SpacingGridTool.FFirstSpacingColumn or SpacingGridTool.FLastSpacingColumn and causes the grid to be redrawn.

	`procedure seRow1Change(Sender: TObject);`
`seRow1Change` updates SpacingGridTool.FFirstSpacingRow or SpacingGridTool.FLastSpacingRow and causes the grid to be redrawn.

	`procedure seRow2Change(Sender: TObject);`
`seRow2Change` updates SpacingGridTool.FFirstSpacingRow or SpacingGridTool.FLastSpacingRow and causes the grid to be redrawn.

	`procedure seLayer1Change(Sender: TObject);`
`seLayer1Change` updates SpacingGridTool.FFirstSpacingLayer or SpacingGridTool.FLastSpacingLayer and causes the grid to be redrawn.

	`procedure seLayer2Change(Sender: TObject);`
`seLayer2Change` updates SpacingGridTool.FFirstSpacingLayer or SpacingGridTool.FLastSpacingLayer and causes the grid to be redrawn.

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

	`procedure EnableOK;`
`EnableOK` makes sure that the OK button can only be clicked if there is valid data specified in `TfrmSetSpacing`.

	`procedure GetData;`
`GetData` displays data from SpacingGridTool in `TfrmSetSpacing`.

	`procedure SetData;`
`SetData` changes the TPhastGrid using the values specified in `TfrmSetSpacing` using a TUndoEditGridLines.

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