Class TfrmChildModels

Description

Hierarchy

Fields

Methods

Properties

Unit

frmChildModelsUnit

Declaration

type TfrmChildModels = class(TfrmCustomGoPhast)

Description

no description available, TfrmCustomGoPhast description follows

TfrmCustomGoPhast is the ancestor of all TForms in GoPhast.

TfrmCustomGoPhast handles setting the color and font. TfrmCustomGoPhast also tries to keep from appearing at a location where it can't be seen. )

Hierarchy

TForm
TfrmCustomGoPhast
TfrmChildModels

Overview

Fields

	`Panel1: TPanel;`
	`tvChildModels: TTreeView;`
	`Panel3: TPanel;`
	`btnAdd: TSpeedButton;`
	`btnDelete: TSpeedButton;`
	`pcMain: TPageControl;`
	`tabBasic: TTabSheet;`
	`lblBottomUnit: TLabel;`
	`lblBottomLayer: TLabel;`
	`edModelName: TLabeledEdit;`
	`comboBottomUnit: TComboBox;`
	`seBottomLayer: TJvSpinEdit;`
	`tabDiscretization: TTabSheet;`
	`rdgDiscretization: TRbwDataGrid4;`
	`pnlBottom: TPanel;`
	`btnHelp: TBitBtn;`
	`btnOK: TBitBtn;`
	`btnCancel: TBitBtn;`
	`lblCellCount: TLabel;`
	`seCellCount: TJvSpinEdit;`
	`rgStartingHeads: TRadioGroup;`
	`tabSolution: TTabSheet;`
	`lblMaxIterations: TLabel;`
	`seMaxIterations: TJvSpinEdit;`
	`rgPrintIterations: TRadioGroup;`
	`rdeRelaxHeads: TRbwDataEntry;`
	`lblRelaxHeads: TLabel;`
	`lblRelaxFlux: TLabel;`
	`rdeRelaxFlux: TRbwDataEntry;`
	`lblHeadClosure: TLabel;`
	`rdeHeadClosure: TRbwDataEntry;`
	`lblFluxClosure: TLabel;`
	`rdeFluxClosure: TRbwDataEntry;`
	`rgCouplingMethod: TRadioGroup;`
	`Panel2: TPanel;`
	`rdeDiscretization: TRbwDataEntry;`
	`cbSaveBFH: TCheckBox;`
	`FChildModels: TChildModelEditCollection;`
	`FAlreadyHandled: Boolean;`

Methods

	`procedure FormCreate(Sender: TObject); override;`
	`procedure FormDestroy(Sender: TObject); override;`
	`procedure btnAddClick(Sender: TObject);`
	`procedure btnDeleteClick(Sender: TObject);`
	`procedure tvChildModelsChange(Sender: TObject; Node: TTreeNode);`
	`procedure btnOKClick(Sender: TObject);`
	`procedure edModelNameChange(Sender: TObject);`
	`procedure comboBottomUnitChange(Sender: TObject);`
	`procedure seBottomLayerChange(Sender: TObject);`
	`procedure comboBottomUnitExit(Sender: TObject);`
	`procedure seBottomLayerExit(Sender: TObject);`
	`procedure rdgDiscretizationExit(Sender: TObject);`
	`procedure tvChildModelsChanging(Sender: TObject; Node: TTreeNode; var AllowChange: Boolean);`
	`procedure rdgDiscretizationEnter(Sender: TObject);`
	`procedure rgStartingHeadsClick(Sender: TObject);`
	`procedure rgPrintIterationsClick(Sender: TObject);`
	`procedure rdeRelaxHeadsChange(Sender: TObject);`
	`procedure rdeRelaxFluxChange(Sender: TObject);`
	`procedure seMaxIterationsChange(Sender: TObject);`
	`procedure rdeHeadClosureChange(Sender: TObject);`
	`procedure rdeFluxClosureChange(Sender: TObject);`
	`procedure cbOneWayCouplingClick(Sender: TObject);`
	`procedure rdgDiscretizationColSize(Sender: TObject; ACol, PriorWidth: Integer);`
	`procedure rdgDiscretizationHorizontalScroll(Sender: TObject);`
	`procedure rdeDiscretizationChange(Sender: TObject);`
	`procedure rdgDiscretizationMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);`
	`procedure rgCouplingMethodClick(Sender: TObject);`
	`procedure seCellCountExit(Sender: TObject);`
	`procedure GetData;`
	`procedure SetData;`
	`procedure FillListWithLayerGroups(List: TList);`
	`procedure ReadSublayerDiscretization;`
	`procedure WriteSublayerDiscretization;`
	`procedure LayoutMultiRowEditControl;`
	`procedure EnableControls;`

Description

Fields

	`Panel1: TPanel;`

	`tvChildModels: TTreeView;`

	`Panel3: TPanel;`

	`btnAdd: TSpeedButton;`

	`btnDelete: TSpeedButton;`

	`pcMain: TPageControl;`

	`tabBasic: TTabSheet;`

	`lblBottomUnit: TLabel;`

	`lblBottomLayer: TLabel;`

	`edModelName: TLabeledEdit;`

	`comboBottomUnit: TComboBox;`

	`seBottomLayer: TJvSpinEdit;`

	`tabDiscretization: TTabSheet;`

	`rdgDiscretization: TRbwDataGrid4;`

	`pnlBottom: TPanel;`

	`btnHelp: TBitBtn;`

	`btnOK: TBitBtn;`

	`btnCancel: TBitBtn;`

	`lblCellCount: TLabel;`

	`seCellCount: TJvSpinEdit;`

	`rgStartingHeads: TRadioGroup;`

	`tabSolution: TTabSheet;`

	`lblMaxIterations: TLabel;`

	`seMaxIterations: TJvSpinEdit;`

	`rgPrintIterations: TRadioGroup;`

	`rdeRelaxHeads: TRbwDataEntry;`

	`lblRelaxHeads: TLabel;`

	`lblRelaxFlux: TLabel;`

	`rdeRelaxFlux: TRbwDataEntry;`

	`lblHeadClosure: TLabel;`

	`rdeHeadClosure: TRbwDataEntry;`

	`lblFluxClosure: TLabel;`

	`rdeFluxClosure: TRbwDataEntry;`

	`rgCouplingMethod: TRadioGroup;`

	`Panel2: TPanel;`

	`rdeDiscretization: TRbwDataEntry;`

	`cbSaveBFH: TCheckBox;`

	`FChildModels: TChildModelEditCollection;`

	`FAlreadyHandled: Boolean;`

Methods

	`procedure FormCreate(Sender: TObject); override;`

	`procedure FormDestroy(Sender: TObject); override;`

	`procedure btnAddClick(Sender: TObject);`

	`procedure btnDeleteClick(Sender: TObject);`

	`procedure tvChildModelsChange(Sender: TObject; Node: TTreeNode);`

	`procedure btnOKClick(Sender: TObject);`

	`procedure edModelNameChange(Sender: TObject);`

	`procedure comboBottomUnitChange(Sender: TObject);`

	`procedure seBottomLayerChange(Sender: TObject);`

	`procedure comboBottomUnitExit(Sender: TObject);`

	`procedure seBottomLayerExit(Sender: TObject);`

	`procedure rdgDiscretizationExit(Sender: TObject);`

	`procedure tvChildModelsChanging(Sender: TObject; Node: TTreeNode; var AllowChange: Boolean);`

	`procedure rdgDiscretizationEnter(Sender: TObject);`

	`procedure rgStartingHeadsClick(Sender: TObject);`

	`procedure rgPrintIterationsClick(Sender: TObject);`

	`procedure rdeRelaxHeadsChange(Sender: TObject);`

	`procedure rdeRelaxFluxChange(Sender: TObject);`

	`procedure seMaxIterationsChange(Sender: TObject);`

	`procedure rdeHeadClosureChange(Sender: TObject);`

	`procedure rdeFluxClosureChange(Sender: TObject);`

	`procedure cbOneWayCouplingClick(Sender: TObject);`

	`procedure rdgDiscretizationColSize(Sender: TObject; ACol, PriorWidth: Integer);`

	`procedure rdgDiscretizationHorizontalScroll(Sender: TObject);`

	`procedure rdeDiscretizationChange(Sender: TObject);`

	`procedure rdgDiscretizationMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);`

	`procedure rgCouplingMethodClick(Sender: TObject);`

	`procedure seCellCountExit(Sender: TObject);`

	`procedure GetData;`

	`procedure SetData;`

	`procedure FillListWithLayerGroups(List: TList);`

	`procedure ReadSublayerDiscretization;`

	`procedure WriteSublayerDiscretization;`

	`procedure LayoutMultiRowEditControl;`

	`procedure EnableControls;`

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