Class TfrmUnits

Description

Hierarchy

Fields

Methods

Properties

Unit

frmUnitsUnit

Declaration

type TfrmUnits = class(TfrmCustomGoPhast)

Description

TfrmUnits is used to edit frmGoPhast.Model.Title and frmGoPhast.Model.Units.

Hierarchy

TForm
TfrmCustomGoPhast
TfrmUnits

Overview

Fields

	`btnCancel: TBitBtn;`
	`btnHelp: TBitBtn;`
	`btnOK: TBitBtn;`
	`comboDispersivityUnits: TComboBox;`
	`comboFluxLengthUnits: TComboBox;`
	`comboFluxTimeUnits: TComboBox;`
	`comboHeadUnits: TComboBox;`
	`comboHorizGridUnits: TComboBox;`
	`comboHydraulicCondLengthUnits: TComboBox;`
	`comboHydraulicCondTimeUnits: TComboBox;`
	`comboLeakyHydCondLengthUnits: TComboBox;`
	`comboLeakyHydCondTimeUnits: TComboBox;`
	`comboLeakyThicknessUnits: TComboBox;`
	`comboRiverHydCondLengthUnits: TComboBox;`
	`comboRiverHydCondTimeUnits: TComboBox;`
	`comboRiverThicknessUnits: TComboBox;`
	`comboSpecificStorageUnits: TComboBox;`
	`comboTimeUnits: TComboBox;`
	`comboVertGridUnits: TComboBox;`
	`comboWellDiameterUnits: TComboBox;`
	`comboWellFlowTimeUnits: TComboBox;`
	`comboWellFlowVolumeUnits: TComboBox;`
	`lblDispersivityUnits: TLabel;`
	`lblFluxLengthUnits: TLabel;`
	`lblFluxTimeUnits: TLabel;`
	`lblHeadUnits: TLabel;`
	`lblHorizGridUnits: TLabel;`
	`lblHydraulicCondLengthUnits: TLabel;`
	`lblHydraulicCondTimeUnits: TLabel;`
	`lblLeakyHydCondLengthUnits: TLabel;`
	`lblLeakyHydCondTimeUnits: TLabel;`
	`lblLeakyThicknessUnits: TLabel;`
	`lblRiverHydCondLengthUnits: TLabel;`
	`lblRiverHydCondTimeUnits: TLabel;`
	`lblRiverThicknessUnits: TLabel;`
	`lblSpecificStorageUnits: TLabel;`
	`lblTimeUnits: TLabel;`
	`lblTitle: TLabel;`
	`lblVertGridUnits: TLabel;`
	`lblWellDiameterUnits: TLabel;`
	`lblWellFlowTimeUnits: TLabel;`
	`lblWellFlowVolumeUnits: TLabel;`
	`memoTitle: TMemo;`

Methods

	`procedure btnOKClick(Sender: TObject);`
	`procedure FormCreate(Sender: TObject); override;`
	`procedure GetData;`
	`procedure SetData;`
	`function ValidateTitle: boolean;`

Description

Fields

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

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

	`btnOK: TBitBtn;`
`btnOK`: TBitBtn; See btnOKClick.

	`comboDispersivityUnits: TComboBox;`
`comboDispersivityUnits`: TComboBox; `comboDispersivityUnits` is used to specify the units for dispersivity in PHAST.

	`comboFluxLengthUnits: TComboBox;`
`comboFluxLengthUnits`: TComboBox; `comboFluxLengthUnits` is used to specify the length units for flux in PHAST.

	`comboFluxTimeUnits: TComboBox;`
`comboFluxTimeUnits`: TComboBox; `comboFluxTimeUnits` is used to specify the time units for flux in PHAST.

	`comboHeadUnits: TComboBox;`
`comboHeadUnits`: TComboBox; `comboHeadUnits` is used to specify the units for head in PHAST.

	`comboHorizGridUnits: TComboBox;`
`comboHorizGridUnits`: TComboBox; `comboHorizGridUnits` is used to specify the units for the horizontal grid dimension in PHAST.

	`comboHydraulicCondLengthUnits: TComboBox;`
`comboHydraulicCondLengthUnits`: TComboBox; `comboHydraulicCondLengthUnits` is used to specify the length units for hydraulic conductivity in PHAST.

	`comboHydraulicCondTimeUnits: TComboBox;`
`comboHydraulicCondTimeUnits`: TComboBox; `comboHydraulicCondTimeUnits` is used to specify the time units for hydraulic conductivity in PHAST.

	`comboLeakyHydCondLengthUnits: TComboBox;`
`comboLeakyHydCondLengthUnits`: TComboBox; `comboLeakyHydCondLengthUnits` is used to specify the length units for hydraulic conductivity in leaky boundaries PHAST.

	`comboLeakyHydCondTimeUnits: TComboBox;`
`comboLeakyHydCondTimeUnits`: TComboBox; `comboLeakyHydCondTimeUnits` is used to specify the time units for hydraulic conductivity in leaky boundaries PHAST.

	`comboLeakyThicknessUnits: TComboBox;`
`comboLeakyThicknessUnits`: TComboBox; `comboLeakyThicknessUnits` is used to specify the units for thickness in leaky boundaries PHAST.

	`comboRiverHydCondLengthUnits: TComboBox;`
`comboRiverHydCondLengthUnits`: TComboBox; `comboRiverHydCondLengthUnits` is used to specify the length units for hydraulic conductivity in river boundaries PHAST.

	`comboRiverHydCondTimeUnits: TComboBox;`
`comboRiverHydCondTimeUnits`: TComboBox; `comboRiverHydCondTimeUnits` is used to specify the time units for hydraulic conductivity in river boundaries PHAST.

	`comboRiverThicknessUnits: TComboBox;`
`comboRiverThicknessUnits`: TComboBox; `comboRiverThicknessUnits` is used to specify the units for thickness in river boundaries PHAST.

	`comboSpecificStorageUnits: TComboBox;`
`comboSpecificStorageUnits`: TComboBox; `comboSpecificStorageUnits` is used to specify the units for specific storage in PHAST.

	`comboTimeUnits: TComboBox;`
`comboTimeUnits`: TComboBox; `comboTimeUnits` is used to specify the units for time in PHAST.

	`comboVertGridUnits: TComboBox;`
`comboVertGridUnits`: TComboBox; `comboVertGridUnits` is used to specify the units for the vertical grid dimension in PHAST.

	`comboWellDiameterUnits: TComboBox;`
`comboWellDiameterUnits`: TComboBox; `comboWellDiameterUnits` is used to specify the units for well diameter in PHAST.

	`comboWellFlowTimeUnits: TComboBox;`
`comboWellFlowTimeUnits`: TComboBox; `comboWellFlowTimeUnits` is used to specify the time units for the flow rate in well boundaries in PHAST.

	`comboWellFlowVolumeUnits: TComboBox;`
`comboWellFlowVolumeUnits`: TComboBox; `comboWellFlowVolumeUnits` is used to specify the volume units for the flow rate in well boundaries in PHAST.

	`lblDispersivityUnits: TLabel;`
`lblDispersivityUnits`: TLabel; `lblDispersivityUnits` displays "Dispersivity units".

	`lblFluxLengthUnits: TLabel;`
`lblFluxLengthUnits`: TLabel; `lblFluxLengthUnits` displays "Flux units".

	`lblFluxTimeUnits: TLabel;`
`lblFluxTimeUnits`: TLabel; `lblFluxTimeUnits` displays "per".

	`lblHeadUnits: TLabel;`
`lblHeadUnits`: TLabel; `lblHeadUnits` displays "Head units".

	`lblHorizGridUnits: TLabel;`
`lblHorizGridUnits`: TLabel; `lblHorizGridUnits` displays "Horizontal grid units".

	`lblHydraulicCondLengthUnits: TLabel;`
`lblHydraulicCondLengthUnits`: TLabel; `lblHydraulicCondLengthUnits` displays "Hydraulic conductivity units".

	`lblHydraulicCondTimeUnits: TLabel;`
`lblHydraulicCondTimeUnits`: TLabel; `lblHydraulicCondTimeUnits` displays "per".

	`lblLeakyHydCondLengthUnits: TLabel;`
`lblLeakyHydCondLengthUnits`: TLabel; `lblLeakyHydCondLengthUnits` displays "Leaky hydraulic conductivity units".

	`lblLeakyHydCondTimeUnits: TLabel;`
`lblLeakyHydCondTimeUnits`: TLabel; `lblLeakyHydCondTimeUnits` displays "per".

	`lblLeakyThicknessUnits: TLabel;`
`lblLeakyThicknessUnits`: TLabel; `lblLeakyThicknessUnits` displays "Leaky thickness units".

	`lblRiverHydCondLengthUnits: TLabel;`
`lblRiverHydCondLengthUnits`: TLabel; `lblRiverHydCondLengthUnits` displays "River bed hydraulic conductivity units".

	`lblRiverHydCondTimeUnits: TLabel;`
`lblRiverHydCondTimeUnits`: TLabel; `lblRiverHydCondTimeUnits` displays "per".

	`lblRiverThicknessUnits: TLabel;`
`lblRiverThicknessUnits`: TLabel; `lblRiverThicknessUnits` displays "River bed thickness units".

	`lblSpecificStorageUnits: TLabel;`
`lblSpecificStorageUnits`: TLabel; `lblSpecificStorageUnits` displays "Specific storage units".

	`lblTimeUnits: TLabel;`
`lblTimeUnits`: TLabel; `lblTimeUnits` displays "Time units".

	`lblTitle: TLabel;`
`lblTitle`: TLabel; `lblTitle` displays "Title (Only the first two lines will be printed in the output)".

	`lblVertGridUnits: TLabel;`
`lblVertGridUnits`: TLabel; `lblVertGridUnits` displays "Vertical grid units".

	`lblWellDiameterUnits: TLabel;`
`lblWellDiameterUnits`: TLabel; `lblWellDiameterUnits` displays "Well diameter units".

	`lblWellFlowTimeUnits: TLabel;`
`lblWellFlowTimeUnits`: TLabel; `lblWellFlowTimeUnits` displays "per".

	`lblWellFlowVolumeUnits: TLabel;`
`lblWellFlowVolumeUnits`: TLabel; `lblWellFlowVolumeUnits` displays "Well flow rate units".

	`memoTitle: TMemo;`
`memoTitle`: TMemo; `memoTitle` displays the title used in PHAST.

Methods

	`procedure btnOKClick(Sender: TObject);`
`btnOKClick` calls ValidateTitle to check that the title is valid. If it is, it calls SetData and closes `TfrmUnits`.

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

	`procedure GetData;`
`GetData` displays the frmGoPhast.Model.Title and frmGoPhast.Model.Units in `TfrmUnits`.

	`procedure SetData;`
`SetData` sets frmGoPhast.Model.Title and frmGoPhast.Model.Units to the values shown in `TfrmUnits` using a TUndoTitleAndUnits.

	`function ValidateTitle: boolean;`
`ValidateTitle` checks that the title in memoTitle is valid. If not, it displays a warning message and returns false.

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