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;`
	`lblNumNodesX: TLabel;`
	`lblNumNodesY: TLabel;`
	`lblNumNodesZ: TLabel;`
	`lblXDist: TLabel;`
	`lblYDist: TLabel;`
	`lblZDist: TLabel;`
	`pcStartup: TPageControl;`
	`pnlBottom: TPanel;`
	`rdeColWidth: TRbwDataEntry;`
	`rdeLayerHeight: TRbwDataEntry;`
	`rdeNCol: TRbwDataEntry;`
	`rdeNLay: TRbwDataEntry;`
	`rdeNRow: TRbwDataEntry;`
	`rdeRowWidth: TRbwDataEntry;`
	`rgChoice: TRadioGroup;`
	`tabInitialGrid: TTabSheet;`
	`tabModelChoice: TTabSheet;`
	`btnHelp: TBitBtn;`
	`tabInitialModflowGrid: TTabSheet;`
	`gbInitialGridModflow: TGroupBox;`
	`Label8: TLabel;`
	`Label9: TLabel;`
	`Label10: TLabel;`
	`Label11: TLabel;`
	`Label12: TLabel;`
	`rdeModflowRowWidth: TRbwDataEntry;`
	`rdeModflowColWidth: TRbwDataEntry;`
	`rdeModflowLayerCount: TRbwDataEntry;`
	`rdeModflowRowCount: TRbwDataEntry;`
	`rdeModflowColumnCount: TRbwDataEntry;`
	`rdgInitialLayers: TRbwDataGrid4;`
	`frameInitialGridPosition: TframeInitialGridPosition;`
	`tabInitialSutraMesh: TTabSheet;`
	`rgMeshType: TRadioGroup;`
	`frameModelLayers: TframeGrid;`
	`lblLayerGroups: TLabel;`
	`rgTransport: TRadioGroup;`
	`rdgLocation: TRbwDataGrid4;`
	`lblModelPosition: TLabel;`

Methods

	`procedure btnDontCreateGridClick(Sender: TObject);`
	`procedure btnNextClick(Sender: TObject);`
	`procedure FormCreate(Sender: TObject); override;`
	`procedure FormShow(Sender: TObject);`
	`procedure pcStartupChange(Sender: TObject);`
	`procedure rdeModflowLayerCountChange(Sender: TObject);`
	`procedure rdgInitialLayersSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);`
	`procedure rdgInitialLayersEndUpdate(Sender: TObject);`
	`procedure FormClose(Sender: TObject; var Action: TCloseAction);`
	`procedure frameModelLayersseNumberChange(Sender: TObject);`
	`procedure frameModelLayersGridEndUpdate(Sender: TObject);`
	`procedure frameModelLayerssbDeleteClick(Sender: TObject);`
	`procedure frameModelLayerssbInsertClick(Sender: TObject);`
	`procedure frameModelLayerssbAddClick(Sender: TObject);`
	`procedure rgMeshTypeClick(Sender: TObject);`
	`procedure frameModelLayersGridSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);`
	`procedure SetUpPhastGrid;`
	`procedure SetExaggeration;`
	`procedure SetUpModflowGrid;`
	`procedure InitializeView(ModelXWidth, ModelYWidth, ModelHeight: Real);`
	`procedure SetUpModflowLayers(ColCount, RowCount: Integer; out ModelHeight: Real);`
	`procedure SetUpSutraModel;`
	`procedure Loaded; override;`

Description

Fields

	`btnDontCreateGrid: TBitBtn;`

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

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

	`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".

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

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

	`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).

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

	`tabInitialModflowGrid: TTabSheet;`

	`gbInitialGridModflow: TGroupBox;`

	`Label8: TLabel;`

	`Label9: TLabel;`

	`Label10: TLabel;`

	`Label11: TLabel;`

	`Label12: TLabel;`

	`rdeModflowRowWidth: TRbwDataEntry;`

	`rdeModflowColWidth: TRbwDataEntry;`

	`rdeModflowLayerCount: TRbwDataEntry;`

	`rdeModflowRowCount: TRbwDataEntry;`

	`rdeModflowColumnCount: TRbwDataEntry;`

	`rdgInitialLayers: TRbwDataGrid4;`

	`frameInitialGridPosition: TframeInitialGridPosition;`

	`tabInitialSutraMesh: TTabSheet;`

	`rgMeshType: TRadioGroup;`

	`frameModelLayers: TframeGrid;`

	`lblLayerGroups: TLabel;`

	`rgTransport: TRadioGroup;`

	`rdgLocation: TRbwDataGrid4;`

	`lblModelPosition: TLabel;`

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 SetUpPhastGrid. If tabInitialModflowGrid is the active page, btnNextClick sets up the grid using the values displayed on tabInitialModflowGrid by calling SetUpModflowGrid.

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

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

	`procedure pcStartupChange(Sender: TObject);`

	`procedure rdeModflowLayerCountChange(Sender: TObject);`

	`procedure rdgInitialLayersSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);`

	`procedure rdgInitialLayersEndUpdate(Sender: TObject);`

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

	`procedure frameModelLayersseNumberChange(Sender: TObject);`

	`procedure frameModelLayersGridEndUpdate(Sender: TObject);`

	`procedure frameModelLayerssbDeleteClick(Sender: TObject);`

	`procedure frameModelLayerssbInsertClick(Sender: TObject);`

	`procedure frameModelLayerssbAddClick(Sender: TObject);`

	`procedure rgMeshTypeClick(Sender: TObject);`

	`procedure frameModelLayersGridSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);`

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

	`procedure SetExaggeration;`
Set the vertical exaggeration.

	`procedure SetUpModflowGrid;`

	`procedure InitializeView(ModelXWidth, ModelYWidth, ModelHeight: Real);`

	`procedure SetUpModflowLayers(ColCount, RowCount: Integer; out ModelHeight: Real);`

	`procedure SetUpSutraModel;`

	`procedure Loaded; override;`

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