Class TfrmSetSpacing

DescriptionHierarchyFieldsMethodsProperties

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

Overview

Fields

Implicit btnCancel: TBitBtn;
Implicit btnHelp: TBitBtn;
Implicit btnOK: TBitBtn;
Implicit cbColumns: TCheckBox;
Implicit cbLayers: TCheckBox;
Implicit cbRows: TCheckBox;
Implicit lblFromCol: TLabel;
Implicit lblFromLayer: TLabel;
Implicit lblFromRow: TLabel;
Implicit lblSetCol: TLabel;
Implicit lblSetLayer: TLabel;
Implicit lblSetRow: TLabel;
Implicit lblThroughCol: TLabel;
Implicit lblThroughLayer: TLabel;
Implicit lblThroughRow: TLabel;
Implicit rdeCol: TRbwDataEntry;
Implicit rdeLayer: TRbwDataEntry;
Implicit rdeRow: TRbwDataEntry;
Implicit seCol1: TSpinEdit;
Implicit seCol2: TSpinEdit;
Implicit seLayer1: TSpinEdit;
Implicit seLayer2: TSpinEdit;
Implicit seRow1: TSpinEdit;
Implicit seRow2: TSpinEdit;
Private FReversedCols: boolean;
Private FReversedLayers: boolean;
Private FReversedRows: boolean;

Methods

Implicit procedure btnOKClick(Sender: TObject);
Implicit procedure cbColumnsClick(Sender: TObject);
Implicit procedure cbLayersClick(Sender: TObject);
Implicit procedure cbRowsClick(Sender: TObject);
Implicit procedure FormCreate(Sender: TObject); override;
Implicit procedure FormDestroy(Sender: TObject);
Implicit procedure rdeChange(Sender: TObject);
Implicit procedure seCol1Changed(Sender: TObject; NewValue: Integer);
Implicit procedure seCol2Changed(Sender: TObject; NewValue: Integer);
Implicit procedure seRow1Changed(Sender: TObject; NewValue: Integer);
Implicit procedure seRow2Changed(Sender: TObject; NewValue: Integer);
Implicit procedure seLayer1Changed(Sender: TObject; NewValue: Integer);
Implicit procedure seLayer2Changed(Sender: TObject; NewValue: Integer);
Private procedure EnableOK;
Private procedure GetData;
Private procedure SetData;

Description

Fields

Implicit btnCancel: TBitBtn;

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

Implicit btnHelp: TBitBtn;

btnHelp: TBitBtn; Clicking btnHelp displays help on TfrmSetSpacing.

Implicit btnOK: TBitBtn;

btnOK: TBitBtn; See btnOKClick.

Implicit cbColumns: TCheckBox;

cbColumns: TCheckBox; See cbColumnsClick.

Implicit cbLayers: TCheckBox;

cbLayers: TCheckBox; See cbLayersClick.

Implicit cbRows: TCheckBox;

cbRows: TCheckBox; See cbRowsClick.

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 lblSetCol: TLabel;

lblSetCol: TLabel; lblSetCol displays "set the column width to"

Implicit lblSetLayer: TLabel;

lblSetLayer: TLabel; lblSetLayer displays "set the layer thickness to"

Implicit lblSetRow: TLabel;

lblSetRow: TLabel; lblSetRow displays "set the row width to"

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 rdeCol: TRbwDataEntry;

rdeCol: TRbwDataEntry; rdeCol is used to specify the column width. See rdeChange.

Implicit rdeLayer: TRbwDataEntry;

rdeLayer: TRbwDataEntry; rdeLayer is used to specify the layer height. See rdeChange.

Implicit rdeRow: TRbwDataEntry;

rdeRow: TRbwDataEntry; rdeRow is used to specify the row width. See rdeChange.

Implicit seCol1: TSpinEdit;

seCol1: TSpinEdit; seCol1 is used to display the first selected column. See seCol1Changed.

Implicit seCol2: TSpinEdit;

seCol2: TSpinEdit; seCol2 is used to display the last selected column. See seCol2Changed.

Implicit seLayer1: TSpinEdit;

seLayer1: TSpinEdit; seLayer1 is used to display the first selected layer. See seLayer1Changed.

Implicit seLayer2: TSpinEdit;

seLayer2: TSpinEdit; seLayer2 is used to display the last selected layer. See seLayer2Changed.

Implicit seRow1: TSpinEdit;

seRow1: TSpinEdit; seRow1 is used to display the first selected row. See seRow1Changed.

Implicit seRow2: TSpinEdit;

seRow2: TSpinEdit; seRow2 is used to display the last selected row. See seRow2Changed.

Private 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.

Private 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.

Private 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.

Methods

Implicit procedure btnOKClick(Sender: TObject);

btnOKClick calls SetData.

Implicit procedure cbColumnsClick(Sender: TObject);

cbColumnsClick is used to enable or disable seCol1, seCol2, and rdeCol,

Implicit procedure cbLayersClick(Sender: TObject);

cbLayersClick is used to enable or disable seLayer1, seLayer2, and rdeLayer,

Implicit procedure cbRowsClick(Sender: TObject);

cbRowsClick is used to enable or disable seRow1, seRow2, and rdeRow,

Implicit procedure FormCreate(Sender: TObject); override;

FormCreate calls GetData.

Implicit procedure FormDestroy(Sender: TObject);

FormDestroy causes the grid to be redrawn.

Implicit procedure rdeChange(Sender: TObject);

rdeChange calls EnableOK.

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

seCol1Changed updates SpacingGridTool.FFirstSpacingColumn or SpacingGridTool.FLastSpacingColumn and causes the grid to be redrawn.

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

seCol2Changed updates SpacingGridTool.FFirstSpacingColumn or SpacingGridTool.FLastSpacingColumn and causes the grid to be redrawn.

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

seRow1Changed updates SpacingGridTool.FFirstSpacingRow or SpacingGridTool.FLastSpacingRow and causes the grid to be redrawn.

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

seRow2Changed updates SpacingGridTool.FFirstSpacingRow or SpacingGridTool.FLastSpacingRow and causes the grid to be redrawn.

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

seLayer1Changed updates SpacingGridTool.FFirstSpacingLayer or SpacingGridTool.FLastSpacingLayer and causes the grid to be redrawn.

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

seLayer2Changed updates SpacingGridTool.FFirstSpacingLayer or SpacingGridTool.FLastSpacingLayer and causes the grid to be redrawn.

Private procedure EnableOK;

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

Private procedure GetData;

GetData displays data from SpacingGridTool in TfrmSetSpacing.

Private procedure SetData;

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

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