Class TfrmFreeSurface

Properties

Unit

frmFreeSurfaceUnit

Declaration

type TfrmFreeSurface = class(TfrmCustomGoPhast)

Description

TfrmFreeSurface is used to set options relating to the use of a free surface in PHAST.

See TPhastModel.FreeSurface and TPhastModel.UseWaterTable.

Hierarchy

TForm
TfrmCustomGoPhast
TfrmFreeSurface

Overview

Fields

	`btnCancel: TBitBtn;`
	`btnHelp: TBitBtn;`
	`btnOK: TBitBtn;`
	`cbFreeSurface: TCheckBox;`
	`cbWaterTable: TCheckBox;`

Methods

	`procedure btnOKClick(Sender: TObject);`
	`procedure cbFreeSurfaceClick(Sender: TObject);`
	`procedure FormCreate(Sender: TObject); override;`
	`procedure GetData;`
	`procedure SetData;`

Description

Fields

	`btnCancel: TBitBtn;`
`btnCancel`: TBitBtn; `btnCancel` closes the `TfrmFreeSurface` without making any changes.

	`btnHelp: TBitBtn;`
`btnHelp`: TBitBtn; `btnHelp` shows help for the `TfrmFreeSurface`.

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

	`cbFreeSurface: TCheckBox;`
`cbFreeSurface`: TCheckBox; `cbFreeSurface` is used to enable or disable the use of a free surface.

	`cbWaterTable: TCheckBox;`
`cbWaterTable`: TCheckBox; `cbWaterTable` is used to enable or disable the user of a water table as the initial condition.

Methods

	`procedure btnOKClick(Sender: TObject);`
`btnOKClick` sets the options relating to the use of a free surface in PHAST and closes the dialog box. `btnOKClick` calls SetData.

	`procedure cbFreeSurfaceClick(Sender: TObject);`
cbWaterTable should only be enabled if cbFreeSurface is checked.

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

	`procedure GetData;`
`GetData` retrieves the options relating to a free surface from the model and displays them in the dialog box. See TPhastModel.FreeSurface and TPhastModel.UseWaterTable.

	`procedure SetData;`
`SetData` sets the options relating to a free surface in the model based on what's in the dialog box.. See TPhastModel.FreeSurface and TPhastModel.UseWaterTable.

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