Class TfrmStartUp

Description

Hierarchy

Fields

Methods

Properties

Unit

frmStartUpUnit

Declaration

type TfrmStartUp = class(TfrmCustomGophast)

Description

TfrmStartUp is used to specify the grid for a new model or open an existing model.

Hierarchy

TForm
TfrmCustomGoPhast
TfrmStartUp

Overview

Fields

	`btnDontCreateGrid: TBitBtn;`
	`btnNext: TBitBtn;`
	`gbInitialGrid: TGroupBox;`
	`lblGridAngle: TLabel;`
	`lblGridOrigin: TLabel;`
	`lblNumNodesX: TLabel;`
	`lblNumNodesY: TLabel;`
	`lblNumNodesZ: TLabel;`
	`lblOriginX: TLabel;`
	`lblOriginY: TLabel;`
	`lblOriginZ: TLabel;`
	`lblVerticalExaggeration: TLabel;`
	`lblXDist: TLabel;`
	`lblYDist: TLabel;`
	`lblZDist: TLabel;`
	`pcStartup: TPageControl;`
	`pnlBottom: TPanel;`
	`rdeAngle: TRbwDataEntry;`
	`rdeColWidth: TRbwDataEntry;`
	`rdeExaggeration: TRbwDataEntry;`
	`rdeLayerHeight: TRbwDataEntry;`
	`rdeNCol: TRbwDataEntry;`
	`rdeNLay: TRbwDataEntry;`
	`rdeNRow: TRbwDataEntry;`
	`rdeRowWidth: TRbwDataEntry;`
	`rdeX: TRbwDataEntry;`
	`rdeY: TRbwDataEntry;`
	`rdeZ: TRbwDataEntry;`
	`rgChoice: TRadioGroup;`
	`tabInitialGrid: TTabSheet;`
	`tabModelChoice: TTabSheet;`
	`btnHelp: TBitBtn;`

Methods

	`procedure btnDontCreateGridClick(Sender: TObject);`
	`procedure btnNextClick(Sender: TObject);`
	`procedure FormCreate(Sender: TObject); override;`
	`procedure pcStartupPageChanging(Sender: TObject; NewPage: TTabSheet; var AllowChange: Boolean);`
	`procedure FormShow(Sender: TObject);`
	`procedure SetUpGrid;`
	`procedure SetExaggeration;`

Description

Fields

	`btnDontCreateGrid: TBitBtn;`

	`btnNext: TBitBtn;`
`btnNext`: TBitBtn; See btnNextClick.

	`gbInitialGrid: TGroupBox;`
`gbInitialGrid`: TGroupBox; `gbInitialGrid` groups together the controls for creating an initial grid.

	`lblGridAngle: TLabel;`
`lblGridAngle`: TLabel; `lblGridAngle` displays "Grid angle (degrees) ".

	`lblGridOrigin: TLabel;`
`lblGridOrigin`: TLabel; `lblGridOrigin` displays "Grid origin:".

	`lblNumNodesX: TLabel;`
`lblNumNodesX`: TLabel; `lblNumNodesX` displays "Number of nodes in X (column) direction".

	`lblNumNodesY: TLabel;`
`lblNumNodesY`: TLabel; `lblNumNodesY` displays "Number of nodes in Y (row) direction".

	`lblNumNodesZ: TLabel;`
`lblNumNodesZ`: TLabel; `lblNumNodesZ` displays "Number of nodes in Z (layer) direction".

	`lblOriginX: TLabel;`
`lblOriginX`: TLabel; `lblOriginX` displays "X".

	`lblOriginY: TLabel;`
`lblOriginY`: TLabel; `lblOriginY` displays "Y".

	`lblOriginZ: TLabel;`
`lblOriginZ`: TLabel; `lblOriginZ` displays "Z".

	`lblVerticalExaggeration: TLabel;`
`lblVerticalExaggeration`: TLabel; `lblVerticalExaggeration` displays "Vertical exaggeration".

	`lblXDist: TLabel;`
`lblXDist`: TLabel; `lblXDist` displays "Distance between X nodes".

	`lblYDist: TLabel;`
`lblYDist`: TLabel; `lblYDist` displays "Distance between Y nodes".

	`lblZDist: TLabel;`
`lblZDist`: TLabel; `lblZDist` displays "Distance between Z nodes".

	`pcStartup: TPageControl;`
`pcStartup`: TPageControl; `pcStartup` holds tabModelChoice and tabInitialGrid.

	`pnlBottom: TPanel;`
`pnlBottom`: TPanel; `pnlBottom` holds the buttons at the bottom of `TfrmStartUp`.

	`rdeAngle: TRbwDataEntry;`
`rdeAngle`: TRbwDataEntry; `rdeAngle` is used to specify the GridAngle.

	`rdeColWidth: TRbwDataEntry;`
`rdeColWidth`: TRbwDataEntry; `rdeColWidth` is used to specify the default column width (ColumnWidth).

	`rdeExaggeration: TRbwDataEntry;`
`rdeExaggeration`: TRbwDataEntry; `rdeExaggeration` is used to specify the Exaggeration.

	`rdeLayerHeight: TRbwDataEntry;`
`rdeLayerHeight`: TRbwDataEntry; `rdeLayerHeight` is used to specify the default layer height (LayerThickness).

	`rdeNCol: TRbwDataEntry;`
`rdeNCol`: TRbwDataEntry; `rdeNCol` is used to specify the number of column boundaries in the TPhastGrid.

	`rdeNLay: TRbwDataEntry;`
`rdeNLay`: TRbwDataEntry; `rdeNLay` is used to specify the number of layer boundaries in the TPhastGrid.

	`rdeNRow: TRbwDataEntry;`
`rdeNRow`: TRbwDataEntry; `rdeNRow` is used to specify the number of row boundaries in the TPhastGrid.

	`rdeRowWidth: TRbwDataEntry;`
`rdeRowWidth`: TRbwDataEntry; `rdeRowWidth` is used to specify the default row width (RowWidth).

	`rdeX: TRbwDataEntry;`
`rdeX`: TRbwDataEntry; `rdeX` is used to specify the X-coordinate of the grid origin.

	`rdeY: TRbwDataEntry;`
`rdeY`: TRbwDataEntry; `rdeY` is used to specify the Y-coordinate of the grid origin.

	`rdeZ: TRbwDataEntry;`
`rdeZ`: TRbwDataEntry; `rdeZ` is used to specify the Z-coordinate of the grid origin.

	`rgChoice: TRadioGroup;`
`rgChoice`: TRadioGroup; `rgChoice` is used to choose to open an existing model or create a new one.

	`tabInitialGrid: TTabSheet;`
`tabInitialGrid`: TTabSheet; `tabInitialGrid` holds the controls for creating an initial grid.

	`tabModelChoice: TTabSheet;`
`tabModelChoice`: TTabSheet; `tabModelChoice` holds rgChoice.

	`btnHelp: TBitBtn;`
`btnHelp` is used to display help on this `TfrmStartUp`.

Methods

	`procedure btnDontCreateGridClick(Sender: TObject);`
`btnDontCreateGridClick` sets the vertical exaggeration of the model but does not set up the grid.

	`procedure btnNextClick(Sender: TObject);`
If tabModelChoice is the active page, `btnNextClick` either opens a new model or advances to tabInitialGrid depending on the choice in rgChoice. If tabInitialGrid is the active page, `btnNextClick` sets up the grid using the values displayed on tabInitialGrid by calling SetUpGrid.

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

	`procedure pcStartupPageChanging(Sender: TObject; NewPage: TTabSheet; var AllowChange: Boolean);`
`pcStartupPageChanging` sets the HelpKeyword property of btnHelp to the active page in pcStartup.

	`procedure FormShow(Sender: TObject);`
`FormShow` sets the HelpKeyword property of btnHelp to the active page in pcStartup.

	`procedure SetUpGrid;`
`SetUpGrid` sets up the TPhastGrid using the values displayed on tabInitialGrid.

	`procedure SetExaggeration;`
Set the vertical exaggeration.

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