Class TfrmScreenObjectProperties

Description

Hierarchy

Fields

Methods

Properties

Unit

frmScreenObjectPropertiesUnit

Declaration

type TfrmScreenObjectProperties = class(TfrmCustomGoPhast)

Description

TfrmScreenObjectProperties is used to edit one or more TScreenObjects.

When a TScreenObject is first created, GetData is called to read the TScreenObject properties and TfrmScreenObjectProperties.SetData is called to set the TScreenObject properties. When one or more TScreenObjects are being edited, GetDataForMultipleScreenObjects is called to read the data and SetMultipleScreenObjectData is called to set the TScreenObject properties.

Hierarchy

TForm
TfrmCustomGoPhast
TfrmScreenObjectProperties

Overview

Fields

	`btnCancel: TBitBtn;`
	`btnFillColor: TButton;`
	`btnHelp: TBitBtn;`
	`btnHighZ: TButton;`
	`btnLeakyHydraulicConductivity: TButton;`
	`btnLeakyThickness: TButton;`
	`btnLineColor: TButton;`
	`btnLowZ: TButton;`
	`btnOK: TBitBtn;`
	`btnRiverBedThickness: TButton;`
	`btnRiverDepth: TButton;`
	`btnRiverHydraulicConductivity: TButton;`
	`btnRiverWidth: TButton;`
	`btnZ: TButton;`
	`cbEnclosedCells: TCheckBox;`
	`cbFillColor: TCheckBox;`
	`cbInterpolation: TCheckBox;`
	`cbIntersectedCells: TCheckBox;`
	`cbLineColor: TCheckBox;`
	`cbSetGridCellSize: TCheckBox;`
	`cbWellPumpAllocation: TCheckBox;`
	`coldlgColors: TColorDialog;`
	`comboSolutionType: TComboBox;`
	`comboWellIntervalStyle: TComboBox;`
	`dgBoundaryFlux: TRbwDataGrid;`
	`dgBoundaryLeaky: TRbwDataGrid;`
	`dgBoundaryRiver: TRbwDataGrid;`
	`dgDataSets: TRbwDataGrid;`
	`dgSpecifiedHead: TRbwDataGrid;`
	`dgVerticies: TRbwDataGrid;`
	`dgWell: TRbwDataGrid;`
	`dgWellElevations: TRbwDataGrid;`
	`edHighZ: TEdit;`
	`edLeakyHydraulicConductivity: TEdit;`
	`edLeakyThickness: TEdit;`
	`edLowZ: TEdit;`
	`edName: TEdit;`
	`edRiverBedThickness: TEdit;`
	`edRiverDepth: TEdit;`
	`edRiverDescripton: TEdit;`
	`edRiverHydraulicConductivity: TEdit;`
	`edRiverWidth: TEdit;`
	`edWellDescription: TEdit;`
	`edZ: TEdit;`
	`framePhastInterpolationBoundaries: TframePhastInterpolation;`
	`framePhastInterpolationData: TframePhastInterpolation;`
	`gbBoundaryPhastInterpolation: TGroupBox;`
	`gbPhastInterpolation: TGroupBox;`
	`lblBoundaryTimes: TLabel;`
	`lblGridCellSize: TLabel;`
	`lblHighZ: TLabel;`
	`lblLeakyHydraulicConductivity: TLabel;`
	`lblLeakyThickness: TLabel;`
	`lblLowZ: TLabel;`
	`lblName: TLabel;`
	`lblNames: TLabel;`
	`lblRiverBedThickness: TLabel;`
	`lblRiverDepth: TLabel;`
	`lblRiverDescripton: TLabel;`
	`lblRiverHydraulicConductivity: TLabel;`
	`lblRiverWidth: TLabel;`
	`lblSolutionType: TLabel;`
	`lblWellDescription: TLabel;`
	`lblWellDiameter: TLabel;`
	`lblWellIntervals: TLabel;`
	`lblWellIntervalStyle: TLabel;`
	`lblWellLandSurfaceDatum: TLabel;`
	`lblZ: TLabel;`
	`memoNames: TMemo;`
	`pageBoundaries: TPageControl;`
	`pageMain: TPageControl;`
	`pnlBottom: TPanel;`
	`pnlBoundaries: TPanel;`
	`pnlLeaky: TPanel;`
	`pnlRiver: TPanel;`
	`pnlSolutionType: TPanel;`
	`pnlWellBoundary: TPanel;`
	`rdeGridCellSize: TRbwDataEntry;`
	`rdeWellDiameter: TRbwDataEntry;`
	`rdeWellLandSurfaceDatum: TRbwDataEntry;`
	`rgBoundaryType: TRadioGroup;`
	`rgElevationCount: TRadioGroup;`
	`rgEvaluatedAt: TRadioGroup;`
	`rparserFrontFormulaElements: TRbwParser;`
	`rparserFrontFormulaNodes: TRbwParser;`
	`rparserSideFormulaElements: TRbwParser;`
	`rparserSideFormulaNodes: TRbwParser;`
	`rparserThreeDFormulaElements: TRbwParser;`
	`rparserThreeDFormulaNodes: TRbwParser;`
	`rparserTopFormulaElements: TRbwParser;`
	`rparserTopFormulaNodes: TRbwParser;`
	`seBoundaryTimes: TSpinEdit;`
	`seWellIntervals: TSpinEdit;`
	`shpFillColor: TShape;`
	`shpLineColor: TShape;`
	`splitterBoundary: TSplitter;`
	`splitterWell: TSplitter;`
	`tabBoundaries: TTabSheet;`
	`tabBoundaryFlux: TTabSheet;`
	`tabBoundaryLeaky: TTabSheet;`
	`tabBoundaryNone: TTabSheet;`
	`tabBoundaryRiver: TTabSheet;`
	`tabBoundarySpecifiedHead: TTabSheet;`
	`tabBoundaryWell: TTabSheet;`
	`tabDataSets: TTabSheet;`
	`tabNodes: TTabSheet;`
	`tabProperties: TTabSheet;`
	`FBoundaryChanged: array[btSpecifiedHead..btWell] of boolean;`
	`FBoundaryCol: integer;`
	`FBoundaryGrid: TRbwDataGrid;`
	`FBoundaryPhastInterpolationList: TObjectList;`
	`FBoundaryRow: integer;`
	`FChangeName: boolean;`
	`FDataSetList: TList;`
	`FDataSetsNeedUpdating: array of boolean;`
	`FDataSetsUsed: array of boolean;`
	`FFillColor: boolean;`
	`FFormulaChanged: array of boolean;`
	`FHighZFormula: TExpression;`
	`FInitialWidth: integer;`
	`FInterpolatedCells: boolean;`
	`FInterpValuesList: TObjectList;`
	`FLoaded: boolean;`
	`FLowZFormula: TExpression;`
	`FMultipleScreenObjects: boolean;`
	`FNewUsedBy: TObjectList;`
	`FObjectLine: boolean;`
	`FOldMixFormula: string;`
	`FPhastDistance1Changed: array of boolean;`
	`FPhastDistance2Changed: array of boolean;`
	`FPhastInterpolationDirectionChanged: array of boolean;`
	`FPhastMixtureFormulaChanged: array of boolean;`
	`FPhastValue1Changed: array of boolean;`
	`FPhastValue2Changed: array of boolean;`
	`FPriorCol: integer;`
	`FPriorModelUpToDate: boolean;`
	`FPriorRow: integer;`
	`FScreenObject: TScreenObject;`
	`FScreenObjectList: TList;`
	`FSelectedRow: integer;`
	`FSelectingCell: boolean;`
	`FSetCellsColor: boolean;`
	`FSetCellSize: boolean;`
	`FSetCellSizeUsed: boolean;`
	`FSetElevationCount: boolean;`
	`FSetEvaluatedAt: boolean;`
	`FSetFillColor: boolean;`
	`FSetHeadSolutionType: boolean;`
	`FSetHighZ: boolean;`
	`FSetLeakyHydraulicConductivity: boolean;`
	`FSetLeakyThickness: boolean;`
	`FSetLowZ: boolean;`
	`FSetObjectLine: boolean;`
	`FSetRiverBedThickness: boolean;`
	`FSetRiverDepth: boolean;`
	`FSetRiverDescription: boolean;`
	`FSetRiverHydraulicConductivity: boolean;`
	`FSetRiverWidth: boolean;`
	`FSetWellAllocation: boolean;`
	`FSetWellDescription: boolean;`
	`FSetWellDiameter: boolean;`
	`FSetWellIntervalFormat: boolean;`
	`FSetWellIntervals: boolean;`
	`FSetWellLandSurfaceDatum: boolean;`
	`FSetZ: boolean;`
	`FSet_SetPropertiesOfEnclosedCells: boolean;`
	`FSet_SetPropertiesOfIntersectedCells: boolean;`
	`FShouldValidate: boolean;`
	`FUndoSetScreenObjectProperties: TUndoSetScreenObjectProperties;`
	`FUsePhastInterpolationChanged: array of boolean;`
	`FVariableList: TList;`
	`FViewDirection: TViewDirection;`
	`FZFormula: TExpression;`

Methods

	`procedure btnCancelClick(Sender: TObject);`
	`procedure btnColorClick(Sender: TObject);`
	`procedure btnFormulaClick(Sender: TObject);`
	`procedure btnOKClick(Sender: TObject);`
	`procedure cbEnclosedCellsClick(Sender: TObject);`
	`procedure cbFillColorClick(Sender: TObject);`
	`procedure cbInterpolationClick(Sender: TObject);`
	`procedure cbIntersectedCellsClick(Sender: TObject);`
	`procedure cbLineColorClick(Sender: TObject);`
	`procedure cbSetGridCellSizeClick(Sender: TObject);`
	`procedure cbWellPumpAllocationClick(Sender: TObject);`
	`procedure comboSolutionTypeChange(Sender: TObject);`
	`procedure comboWellIntervalStyleChange(Sender: TObject);`
	`procedure dgBoundaryButtonClicked(Sender: TObject; ACol, ARow: Integer; const Value: WideString);`
	`procedure dgBoundaryDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);`
	`procedure dgBoundaryRowMoving(Sender: TObject; const Origin, Destination: Integer; var CanMove: Boolean);`
	`procedure dgBoundarySelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);`
	`procedure dgBoundarySetEditText(Sender: TObject; ACol, ARow: Integer; const Value: WideString);`
	`procedure dgBoundaryStateChanged(Sender: TObject; ACol, ARow: Integer; const Value: TCheckBoxState);`
	`procedure dgDataSetsButtonClicked(Sender: TObject; ACol, ARow: Integer; const Value: WideString);`
	`procedure dgDataSetsDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);`
	`procedure dgDataSetsExit(Sender: TObject);`
	`procedure dgDataSetsSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);`
	`procedure dgDataSetsSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: WideString);`
	`procedure dgDataSetsStateChanged(Sender: TObject; ACol, ARow: Integer; const Value: TCheckBoxState);`
	`procedure dgVerticiesSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: WideString);`
	`procedure dgWellElevationsSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: WideString);`
	`procedure ed2ZExit(Sender: TObject);`
	`procedure edHighZChange(Sender: TObject);`
	`procedure edLeakyHydraulicConductivityChange(Sender: TObject);`
	`procedure edLeakyThicknessChange(Sender: TObject);`
	`procedure edLowZChange(Sender: TObject);`
	`procedure edNameChange(Sender: TObject);`
	`procedure edNameExit(Sender: TObject);`
	`procedure edRiverBedThicknessChange(Sender: TObject);`
	`procedure edRiverDepthChange(Sender: TObject);`
	`procedure edRiverDescriptonChange(Sender: TObject);`
	`procedure edRiverHydraulicConductivityChange(Sender: TObject);`
	`procedure edRiverWidthChange(Sender: TObject);`
	`procedure edWellDescriptionChange(Sender: TObject);`
	`procedure edZChange(Sender: TObject);`
	`procedure edZExit(Sender: TObject);`
	`procedure FormCreate(Sender: TObject); override;`
	`procedure FormDestroy(Sender: TObject);`
	`procedure FormResize(Sender: TObject);`
	`procedure framePhastInterpolationBoundariescbPhastInterpolationClick(Sender: TObject);`
	`procedure framePhastInterpolationBoundariesedMixFormulaExit( Sender: TObject);`
	`procedure framePhastInterpolationBoundariesrdeChange(Sender: TObject);`
	`procedure framePhastInterpolationBoundariesrdeDistance1Exit(Sender: TObject);`
	`procedure framePhastInterpolationBoundariesrdeDistance2Exit(Sender: TObject);`
	`procedure framePhastInterpolationBoundariesrdeValue1Exit(Sender: TObject);`
	`procedure framePhastInterpolationBoundariesrdeValue2Exit(Sender: TObject);`
	`procedure framePhastInterpolationBoundariesrgInterpolationDirectionClick( Sender: TObject);`
	`procedure framePhastInterpolationDatabtnEditMixtureFormulaClick( Sender: TObject);`
	`procedure framePhastInterpolationDatacbPhastInterpolationClick(Sender: TObject);`
	`procedure framePhastInterpolationDataedMixFormulaEnter( Sender: TObject);`
	`procedure framePhastInterpolationDataedMixFormulaExit(Sender: TObject);`
	`procedure framePhastInterpolationDatardeDistance1Exit(Sender: TObject);`
	`procedure framePhastInterpolationDatardeDistance2Exit(Sender: TObject);`
	`procedure framePhastInterpolationDatardeValue1Exit(Sender: TObject);`
	`procedure framePhastInterpolationDatardeValue2Exit(Sender: TObject);`
	`procedure framePhastInterpolationDatargInterpolationDirectionClick(Sender: TObject);`
	`procedure pageBoundariesChange(Sender: TObject);`
	`procedure pageMainChange(Sender: TObject);`
	`procedure rdeGridCellSizeChange(Sender: TObject);`
	`procedure rdeWellDiameterChange(Sender: TObject);`
	`procedure rdeWellLandSurfaceDatumChange(Sender: TObject);`
	`procedure rgBoundaryTypeClick(Sender: TObject);`
	`procedure rgElevationCountClick(Sender: TObject);`
	`procedure rgEvaluatedAtClick(Sender: TObject);`
	`procedure seBoundaryTimesChanged(Sender: TObject; NewValue: Integer);`
	`procedure seWellIntervalsChanged(Sender: TObject; NewValue: Integer);`
	`procedure splitterBoundaryMoved(Sender: TObject);`
	`procedure SetMultipleScreenObjects(const Value: boolean);`
	`procedure AssignBoundary(const Grid: TRbwDataGrid; const ExpressionCol, InterpolationCol, Row: integer; const Time: double; const Boundary: TCustomPhastBoundaryCollection);`
	`function BoundaryIsIdentical(const Grid: TRbwDataGrid; const UsedTimes: TRealList; const Boundary: TCustomPhastBoundaryCollection; const ExpressionCol, PhastInterpolateCol: integer): boolean;`
	`procedure CheckForCircularReference(const Expression: TExpression; const DSetName: string; const ACol, ARow: integer; const OldFormulaOK: boolean; const OldFormula: string);`
	`procedure CheckForCircularReferencesInMixtureFormulas( var Expression: TExpression; const DSName, OldFormula: string; const ARow: integer);`
	`procedure CreateBoundaryFormula(const DataGrid: TRbwDataGrid; const ACol, ARow: integer; Formula: string; const Orientation: TDataSetOrientation; const EvaluatedAt: TEvaluatedAt);`
	`procedure CreateFormula(const Row, DataSetIndex: integer; const ShowError: boolean = True);`
	`function CreateMixtureFormula(const DataSetIndex: integer): TExpression;`
	`procedure CreateVariable(const Index: integer);`
	`procedure EnableOK_Button;`
	`function GetBoundaryTime(const Grid: TRbwDataGrid; const Col, Row: integer; out Time: double): boolean;`
	`procedure GetBoundaryTimes( const Boundaries: array of TCustomPhastBoundaryCollection; const Times: TRealList);`
	`function GetCompiler(const Orientation: TDataSetOrientation; const EvaluatedAt: TEvaluatedAt): TRbwParser;`
	`function GetCompilerByIndex(const Index: integer): TRbwParser;`
	`function GetDataSetIndexByName(const DataSetName: string): integer;`
	`function GetDataSetOrientations( const Index: integer): TDataSetOrientation;`
	`function GetDataSets(const Index: integer): TDataArray;`
	`function GetElevationCompiler: TRbwParser;`
	`function GetExpression(const Row: integer): TExpression;`
	`function GetResultType(const Index: integer): TRbwDataType;`
	`function GetVariables(const Index: integer): TCustomVariable;`
	`procedure InitializeArrays;`
	`procedure InitilizeControls;`
	`procedure InitilizeGridObjects;`
	`procedure ResetFluxGrid;`
	`procedure ResetLeakyGrid;`
	`procedure ResetRiverGrid;`
	`procedure ResetSpecifiedHeadGrid;`
	`procedure ResetWellElevationGrid;`
	`procedure ResetWellGrid;`
	`function RowToDataSetIndex(const ARow: integer): integer;`
	`procedure SelectBoundaryCell;`
	`procedure SetBoundaryChanged(const Sender: TObject);`
	`procedure SetCheckBoxCaptions;`
	`procedure SetData;`
	`procedure SetDataSets(const Index: integer; const Value: TDataArray);`
	`procedure SetFloatProperty(const NewValue: string; var SetValue: double; ShouldSetNewValue: boolean; var NewValueSet: boolean);`
	`procedure SetExpression(const Row: integer; const Value: TExpression);`
	`procedure SetMultipleScreenObjectData;`
	`procedure SetStringProperty(const NewValue: string; var SetValue: string; ShouldSetNewValue: boolean; var NewValueSet: boolean);`
	`procedure SetVariables(const Index: integer; const Value: TCustomVariable);`
	`function TimesIdentical(const Grid: TRbwDataGrid; const UsedTimes: TRealList; const TimeCol: integer): boolean;`
	`procedure UpdateLinkages(const Expression: TExpression; const ARow: integer; const DSName: string);`
	`procedure ValidateCellFormula(const ACol, ARow: integer);`
	`procedure ValidateEdFormula(const Ed: TEdit);`
	`procedure EmphasizeValueChoices;`
	`procedure GetData(const AScreenObject: TScreenObject);`
	`procedure GetDataForMultipleScreenObjects(const AScreenObjectList: TList);`

Properties

	`property MultipleScreenObjects: boolean read FMultipleScreenObjects write SetMultipleScreenObjects;`
	`property DataSets[const Index: integer]: TDataArray read GetDataSets write SetDataSets;`
	`property Expressions[const Row: integer]: TExpression read GetExpression write SetExpression;`
	`property Orientations[const Index: integer]: TDataSetOrientation read GetDataSetOrientations;`
	`property Variables[const Index: integer]: TCustomVariable read GetVariables write SetVariables;`
	`property UndoSetScreenObjectProperties: TUndoSetScreenObjectProperties read FUndoSetScreenObjectProperties write FUndoSetScreenObjectProperties;`

Description

Fields

	`btnCancel: TBitBtn;`
`btnCancel`: TBitBtn; Clicking `btnCancel` closes the `TfrmScreenObjectProperties` without changing anything. See btnCancelClick,

	`btnFillColor: TButton;`
`btnFillColor`: TButton; `btnFillColor` is used to change the color used to draw the interior of TScreenObjects. See btnColorClick

	`btnHelp: TBitBtn;`
`btnHelp`: TBitBtn; Clicking name displays help on the active page in pageMain.

	`btnHighZ: TButton;`
`btnHighZ`: TButton; `btnHighZ` is used to edit the formula for the higher elevation in edHighZ. See btnFormulaClick.

	`btnLeakyHydraulicConductivity: TButton;`
`btnLeakyHydraulicConductivity`: TButton; `btnLeakyHydraulicConductivity` is used to edit the formula for the leaky hydraulic conductivity in edLeakyHydraulicConductivity. See btnFormulaClick.

	`btnLeakyThickness: TButton;`
`btnLeakyThickness`: TButton; `btnLeakyThickness` is used to edit the formula for the thickness of the leaky boundary in edLeakyThickness. See btnFormulaClick.

	`btnLineColor: TButton;`
`btnLineColor`: TButton; `btnLineColor` is used to change the color used to draw the lines of TScreenObjects. See btnColorClick

	`btnLowZ: TButton;`
`btnLowZ`: TButton; `btnLowZ` is used to edit the formula for the lower elevation in edLowZ. See btnFormulaClick.

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

	`btnRiverBedThickness: TButton;`
`btnRiverBedThickness`: TButton; `btnRiverBedThickness` is used to edit the formula for the thickness of the bed in the river boundary in edRiverBedThickness. See btnFormulaClick.

	`btnRiverDepth: TButton;`
`btnRiverDepth`: TButton; `btnRiverDepth` is used to edit the formula for the depth of the river in the river boundary in edRiverDepth. See btnFormulaClick.

	`btnRiverHydraulicConductivity: TButton;`
`btnRiverHydraulicConductivity`: TButton; `btnRiverHydraulicConductivity` is used to edit the formula for the hydraulic conductivity of the river bed in the river boundary in edRiverHydraulicConductivity. See btnFormulaClick.

	`btnRiverWidth: TButton;`
`btnRiverWidth`: TButton; `btnRiverWidth` is used to edit the formula for the width of the river in the river boundary in edRiverWidth. See btnFormulaClick.

	`btnZ: TButton;`
`btnZ`: TButton; `btnZ` is used to edit the formula for the single elevation in edZ. See btnFormulaClick.

	`cbEnclosedCells: TCheckBox;`
`cbEnclosedCells`: TCheckBox; `cbEnclosedCells` specifies whether the values of cells or elements enclosed by the TScreenObject will be set by the TScreenObject See cbEnclosedCellsClick.

	`cbFillColor: TCheckBox;`
`cbFillColor`: TCheckBox; `cbFillColor` specifies whether the interior of TScreenObjects will be colored. See cbFillColorClick.

	`cbInterpolation: TCheckBox;`
`cbInterpolation`: TCheckBox; `cbInterpolation` specifies whether the values of cells or elements will be set by interpolation using this TScreenObject. See cbInterpolationClick.

	`cbIntersectedCells: TCheckBox;`
`cbIntersectedCells`: TCheckBox; `cbIntersectedCells` specifies whether the values of cells or elements intersected by the TScreenObject will be set by the TScreenObject See cbIntersectedCellsClick.

	`cbLineColor: TCheckBox;`
`cbLineColor`: TCheckBox; `cbLineColor` specifies whether the lines of TScreenObjects will be colored. See cbLineColorClick.

	`cbSetGridCellSize: TCheckBox;`
`cbSetGridCellSize`: TCheckBox; `cbSetGridCellSize` specifies whether this TScreenObject will be used to set the size of elements in the TPhastGrid. See cbSetGridCellSizeClick.

	`cbWellPumpAllocation: TCheckBox;`
`cbWellPumpAllocation`: TCheckBox; `cbWellPumpAllocation` specifies whether the well boundary condition specified by this TScreenObject will allocate pumping by pressure and mobility. See cbWellPumpAllocationClick.

	`coldlgColors: TColorDialog;`
`coldlgColors`: TColorDialog; `coldlgColors` is used in btnColorClick to pick a color for the lines or interior of TScreenObjects.

	`comboSolutionType: TComboBox;`
`comboSolutionType`: TComboBox; `comboSolutionType` is used to specify whether the solution in a specified state boundary is a specified solution or an associated solution. See comboSolutionTypeChange.

	`comboWellIntervalStyle: TComboBox;`
`comboWellIntervalStyle`: TComboBox; `comboWellIntervalStyle` specifies whether the open intervals in a well boundary are specified in terms of absolute elevation or depth below a datum. See comboWellIntervalStyleChange.

	`dgBoundaryFlux: TRbwDataGrid;`
`dgBoundaryFlux`: TRbwDataGrid; `dgBoundaryFlux` specifies the time-varying property of a flux boundary. See dgBoundaryButtonClicked, dgBoundaryDrawCell, dgBoundaryRowMoving, dgBoundarySelectCell, dgBoundarySetEditText, and dgBoundaryStateChanged.

	`dgBoundaryLeaky: TRbwDataGrid;`
`dgBoundaryLeaky`: TRbwDataGrid; `dgBoundaryLeaky` specifies the time-varying property of a leaky boundary. See dgBoundaryButtonClicked, dgBoundaryDrawCell, dgBoundaryRowMoving, dgBoundarySelectCell, dgBoundarySetEditText, and dgBoundaryStateChanged.

	`dgBoundaryRiver: TRbwDataGrid;`
`dgBoundaryRiver`: TRbwDataGrid; `dgBoundaryRiver` specifies the time-varying property of a river boundary. See dgBoundaryButtonClicked, dgBoundaryDrawCell, dgBoundaryRowMoving, dgBoundarySelectCell, dgBoundarySetEditText, and dgBoundaryStateChanged.

	`dgDataSets: TRbwDataGrid;`
`dgDataSets`: TRbwDataGrid; `dgDataSets` specifies the TDataArrays that will be used with this TScreenObject. See dgDataSetsButtonClicked, dgDataSetsDrawCell, dgDataSetsExit, dgDataSetsSelectCell, dgDataSetsSetEditText, and dgDataSetsStateChanged.

	`dgSpecifiedHead: TRbwDataGrid;`
`dgSpecifiedHead`: TRbwDataGrid; `dgSpecifiedHead` specifies the time-varying property of a specified-head boundary. See dgBoundaryButtonClicked, dgBoundaryDrawCell, dgBoundaryRowMoving, dgBoundarySelectCell, dgBoundarySetEditText, and dgBoundaryStateChanged.

	`dgVerticies: TRbwDataGrid;`
`dgVerticies`: TRbwDataGrid; `dgVerticies` holds the locations of the vertices of this TScreenObject. See dgVerticiesSetEditText.

	`dgWell: TRbwDataGrid;`
`dgWell`: TRbwDataGrid; `dgWell` specifies the time-varying property of a well boundary. See dgBoundaryButtonClicked, dgBoundaryDrawCell, dgBoundaryRowMoving, dgBoundarySelectCell, dgBoundarySetEditText, and dgBoundaryStateChanged.

	`dgWellElevations: TRbwDataGrid;`
`dgWellElevations`: TRbwDataGrid; `dgWellElevations` specifies the open intervals in the Well boundary See dgWellElevationsSetEditText.

	`edHighZ: TEdit;`
`edHighZ`: TEdit; `edHighZ` holds the formula for the higher elevation formula. See edHighZChange and ed2ZExit. See btnHighZ and btnFormulaClick.

	`edLeakyHydraulicConductivity: TEdit;`
`edLeakyHydraulicConductivity`: TEdit; `edLeakyHydraulicConductivity` holds the formula for the hydraulic conductivity of a leaky boundary. See edLeakyHydraulicConductivityChange and btnLeakyHydraulicConductivity.

	`edLeakyThickness: TEdit;`
`edLeakyThickness`: TEdit; `edLeakyThickness` holds the formula for the thickness of a leaky boundary. See edLeakyThicknessChange and btnLeakyThickness.

	`edLowZ: TEdit;`
`edLowZ`: TEdit; `edLowZ` holds the formula for the lower of two elevations. See edLowZChange, ed2ZExit, and btnLowZ and btnFormulaClick.

	`edName: TEdit;`
`edName`: TEdit; `edName` holds the name of the TScreenObject. See edNameChange and edNameExit.

	`edRiverBedThickness: TEdit;`
`edRiverBedThickness`: TEdit; `edRiverBedThickness` holds the formula for the thickness of a river boundary. See edRiverBedThicknessChange and btnRiverBedThickness.

	`edRiverDepth: TEdit;`
`edRiverDepth`: TEdit; `edRiverDepth` holds the formula for the depth of a river boundary. See edRiverDepthChange and btnRiverDepth.

	`edRiverDescripton: TEdit;`
`edRiverDescripton`: TEdit; `edRiverDescripton` holds the the name of a river boundary. See edRiverDescriptonChange.

	`edRiverHydraulicConductivity: TEdit;`
`edRiverHydraulicConductivity`: TEdit; `edRiverHydraulicConductivity` holds the formula for the hydraulic conductivity of a river boundary. See edRiverHydraulicConductivityChange and btnRiverHydraulicConductivity.

	`edRiverWidth: TEdit;`
`edRiverWidth`: TEdit; `edRiverWidth` holds the formula for the width of a river boundary. See edRiverWidthChange and btnRiverWidth.

	`edWellDescription: TEdit;`
`edWellDescription`: TEdit; `edWellDescription` holds the the name of a well boundary. See edWellDescriptionChange.

	`edZ: TEdit;`
`edZ`: TEdit; `edZ` holds the formula for a single elevation. See edZChange, edZExit, and btnZ and btnFormulaClick.

	`framePhastInterpolationBoundaries: TframePhastInterpolation;`
`framePhastInterpolationBoundaries`: TframePhastInterpolation; `framePhastInterpolationBoundaries` is used to specify PHAST-style interpolation for boundary conditions. See TPhastInterpolationValues.

	`framePhastInterpolationData: TframePhastInterpolation;`
`framePhastInterpolationData`: TframePhastInterpolation; `framePhastInterpolationData` is used to specify PHAST-style interpolation for TDataArrays. See TPhastInterpolationValues.

	`gbBoundaryPhastInterpolation: TGroupBox;`
`gbBoundaryPhastInterpolation`: TGroupBox; `gbBoundaryPhastInterpolation` holds and labels framePhastInterpolationBoundaries.

	`gbPhastInterpolation: TGroupBox;`
`gbPhastInterpolation`: TGroupBox; `gbPhastInterpolation` holds and labels framePhastInterpolationData.

	`lblBoundaryTimes: TLabel;`
`lblBoundaryTimes`: TLabel; `lblBoundaryTimes` displays "Number of times".

	`lblGridCellSize: TLabel;`
`lblGridCellSize`: TLabel; `lblGridCellSize` displays "Grid element size".

	`lblHighZ: TLabel;`
`lblHighZ`: TLabel; `lblHighZ` displays "Higher X-coordinate", "Higher Y-coordinate", or "Higher Z-coordinate". The text is changed in GetData depending the the TScreenObject.ViewDirection.

	`lblLeakyHydraulicConductivity: TLabel;`
`lblLeakyHydraulicConductivity`: TLabel; `lblLeakyHydraulicConductivity` displays "Hydraulic Conductivity".

	`lblLeakyThickness: TLabel;`
`lblLeakyThickness`: TLabel; `lblLeakyThickness` displays "Thickness".

	`lblLowZ: TLabel;`
`lblLowZ`: TLabel; `lblLowZ` displays "Lower X-coordinate", "Lower Y-coordinate", or "Lower Z-coordinate". The text is changed in GetData depending the the TScreenObject.ViewDirection.

	`lblName: TLabel;`
`lblName`: TLabel; `lblName` displays "Name". It labels edName.

	`lblNames: TLabel;`
`lblNames` labels memoNames.

	`lblRiverBedThickness: TLabel;`
`lblRiverBedThickness`: TLabel; `lblRiverBedThickness` displays "Bed Thickness".

	`lblRiverDepth: TLabel;`
`lblRiverDepth`: TLabel; `lblRiverDepth` displays "Depth".

	`lblRiverDescripton: TLabel;`
`lblRiverDescripton`: TLabel; `lblRiverDescripton` displays "Name".

	`lblRiverHydraulicConductivity: TLabel;`
`lblRiverHydraulicConductivity`: TLabel; `lblRiverHydraulicConductivity` displays "Hydraulic Conductivity".

	`lblRiverWidth: TLabel;`
`lblRiverWidth`: TLabel; `lblRiverWidth` displays "Width".

	`lblSolutionType: TLabel;`
`lblSolutionType`: TLabel; `lblSolutionType` displays "Type of Solution".

	`lblWellDescription: TLabel;`
`lblWellDescription`: TLabel; `lblWellDescription` displays "Name".

	`lblWellDiameter: TLabel;`
`lblWellDiameter`: TLabel; `lblWellDiameter` displays "Diameter".

	`lblWellIntervals: TLabel;`
`lblWellIntervals`: TLabel; `lblWellIntervals` displays "Number of intervals".

	`lblWellIntervalStyle: TLabel;`
`lblWellIntervalStyle`: TLabel; `lblWellIntervalStyle` displays "Specify interval by".

	`lblWellLandSurfaceDatum: TLabel;`
`lblWellLandSurfaceDatum`: TLabel; `lblWellLandSurfaceDatum` displays "Land surface datum".

	`lblZ: TLabel;`
`lblZ`: TLabel; `lblZ` displays "X-coordinate", "Y-coordinate", or "Z-coordinate". The text is changed in GetData depending the the TScreenObject.ViewDirection.

	`memoNames: TMemo;`
`memoNames` lists all the TScreenObjects being edited in the `TfrmScreenObjectProperties`.

	`pageBoundaries: TPageControl;`
`pageBoundaries`: TPageControl; `pageBoundaries` holds tabBoundaryNone, tabBoundarySpecifiedHead, tabBoundaryFlux, and tabBoundaryLeaky, tabBoundaryRiver, and tabBoundaryWell. See pageBoundariesChange.

	`pageMain: TPageControl;`
`pageMain`: TPageControl; `pageMain` holds tabProperties, tabDataSets, tabBoundaries, and tabNodes. See pageMainChange.

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

	`pnlBoundaries: TPanel;`
`pnlBoundaries`: TPanel; `pnlBoundaries` holds the controls on the left side of tabBoundaries.

	`pnlLeaky: TPanel;`
`pnlLeaky`: TPanel; `pnlLeaky` holds the controls on the top of tabBoundaryLeaky.

	`pnlRiver: TPanel;`
`pnlRiver`: TPanel; `pnlRiver` holds the controls on the top of tabBoundaryRiver.

	`pnlSolutionType: TPanel;`
`pnlSolutionType`: TPanel; `pnlSolutionType` holds the controls on the top of tabBoundarySpecifiedHead.

	`pnlWellBoundary: TPanel;`
`pnlWellBoundary`: TPanel; `pnlWellBoundary` holds the controls on the top of tabBoundaryWell.

	`rdeGridCellSize: TRbwDataEntry;`
`rdeGridCellSize`: TRbwDataEntry; `rdeGridCellSize` is used to hold the size of elements in the TPhastGrid to be generated using the TScreenObject being edited in `TfrmScreenObjectProperties`.

	`rdeWellDiameter: TRbwDataEntry;`
`rdeWellDiameter`: TRbwDataEntry; `rdeWellDiameter` is used to specify the diameter of a well in a well boundary. See rdeWellDiameterChange.

	`rdeWellLandSurfaceDatum: TRbwDataEntry;`
`rdeWellLandSurfaceDatum`: TRbwDataEntry; `rdeWellLandSurfaceDatum` is used to specify the land surface data in a well boundary. See rdeWellLandSurfaceDatumChange.

	`rgBoundaryType: TRadioGroup;`
`rgBoundaryType`: TRadioGroup; `rgBoundaryType` is used to specify the type of boundary specified by the TScreenObject that is being edited. The items in `rgBoundaryType` must correspond to the elements in TBoundaryTypes. See rgBoundaryTypeClick.

	`rgElevationCount: TRadioGroup;`
`rgElevationCount`: TRadioGroup; `rgElevationCount` is used to specify the number of elevations associated with the TScreenObject being edited. The items in `rgElevationCount` must correspond with the elements in TElevationCount. See rgElevationCountClick.

	`rgEvaluatedAt: TRadioGroup;`
`rgEvaluatedAt`: TRadioGroup; `rgEvaluatedAt` specifies whether the TScreenObject being edited is evaluated at elements or at nodes. The items in `rgEvaluatedAt` must correspond with the elements in TEvaluatedAt.

	`rparserFrontFormulaElements: TRbwParser;`
`rparserFrontFormulaElements`: TRbwParser; `rparserFrontFormulaElements` is used to compile formulas that will be evaluated at elements for TDataArrays whose Orientation is dsoTop. See TDataSetOrientation. The primary purpose of `rparserFrontFormulaElements` is to ensure that formulas are valid.

	`rparserFrontFormulaNodes: TRbwParser;`
`rparserFrontFormulaNodes`: TRbwParser; `rparserFrontFormulaNodes` is used to compile formulas that will be evaluated at nodes for TDataArrays whose Orientation is dsoTop. See TDataSetOrientation. The primary purpose of `rparserFrontFormulaNodes` is to ensure that formulas are valid.

	`rparserSideFormulaElements: TRbwParser;`
`rparserSideFormulaElements`: TRbwParser; `rparserSideFormulaElements` is used to compile formulas that will be evaluated at elements for TDataArrays whose Orientation is dsoSide. See TDataSetOrientation. The primary purpose of `rparserSideFormulaElements` is to ensure that formulas are valid.

	`rparserSideFormulaNodes: TRbwParser;`
`rparserSideFormulaNodes`: TRbwParser; `rparserSideFormulaNodes` is used to compile formulas that will be evaluated at nodes for TDataArrays whose Orientation is dsoSide. See TDataSetOrientation. The primary purpose of `rparserSideFormulaNodes` is to ensure that formulas are valid.

	`rparserThreeDFormulaElements: TRbwParser;`
`rparserThreeDFormulaElements`: TRbwParser; `rparserThreeDFormulaElements` is used to compile formulas that will be evaluated at elements for TDataArrays whose Orientation is dso3D. See TDataSetOrientation. The primary purpose of `rparserThreeDFormulaElements` is to ensure that formulas are valid.

	`rparserThreeDFormulaNodes: TRbwParser;`
`rparserThreeDFormulaNodes`: TRbwParser; `rparserThreeDFormulaNodes` is used to compile formulas that will be evaluated at nodes for TDataArrays whose Orientation is dso3D. See TDataSetOrientation. The primary purpose of `rparserThreeDFormulaNodes` is to ensure that formulas are valid.

	`rparserTopFormulaElements: TRbwParser;`
`rparserTopFormulaElements`: TRbwParser; `rparserTopFormulaElements` is used to compile formulas that will be evaluated at elements for TDataArrays whose Orientation is dsoTop. See TDataSetOrientation. The primary purpose of `rparserTopFormulaElements` is to ensure that formulas are valid.

	`rparserTopFormulaNodes: TRbwParser;`
`rparserTopFormulaNodes`: TRbwParser; `rparserTopFormulaNodes` is used to compile formulas that will be evaluated at nodes for TDataArrays whose Orientation is dsoTop. See TDataSetOrientation. The primary purpose of `rparserTopFormulaNodes` is to ensure that formulas are valid.

	`seBoundaryTimes: TSpinEdit;`
`seBoundaryTimes`: TSpinEdit; `seBoundaryTimes` is used to specify how many times are associated with the boundary condition of the TScreenObject that is being edited. See seBoundaryTimesChanged.

	`seWellIntervals: TSpinEdit;`
`seWellIntervals`: TSpinEdit; `seWellIntervals` is used to specify how many open intervals are in the well boundary of the TScreenObject that is being edited. See seWellIntervalsChanged.

	`shpFillColor: TShape;`
`shpFillColor`: TShape; `shpFillColor` displays a preview of the color used to draw the interior of the TScreenObject that is being edited.

	`shpLineColor: TShape;`
`shpLineColor`: TShape; `shpLineColor` displays a preview of the color used to draw the lines of the TScreenObject that is being edited.

	`splitterBoundary: TSplitter;`
`splitterBoundary`: TSplitter; `splitterBoundary` is used to change the relative sizes of pnlBoundaries and pageBoundaries on tabBoundaries.

	`splitterWell: TSplitter;`
`splitterWell`: TSplitter; `splitterWell` is used to change the relative sizes of dgWell and dgWellElevations on tabBoundaryWell.

	`tabBoundaries: TTabSheet;`
`tabBoundaries`: TTabSheet; `tabBoundaries` is used to hold controls related to boundary conditions on pageMain.

	`tabBoundaryFlux: TTabSheet;`
`tabBoundaryFlux`: TTabSheet; `tabBoundaryFlux` is used to hold controls related to specified flux boundaries on pageBoundaries.

	`tabBoundaryLeaky: TTabSheet;`
`tabBoundaryLeaky`: TTabSheet; `tabBoundaryLeaky` is used to hold controls related to leaky boundaries on pageBoundaries.

	`tabBoundaryNone: TTabSheet;`
`tabBoundaryNone`: TTabSheet; `tabBoundaryNone` is used as a place-holder for TScreenObjects that do not specify any boundary condition on pageBoundaries.

	`tabBoundaryRiver: TTabSheet;`
`tabBoundaryRiver`: TTabSheet; `tabBoundaryRiver` is used to hold controls related to river boundaries on pageBoundaries.

	`tabBoundarySpecifiedHead: TTabSheet;`
`tabBoundarySpecifiedHead`: TTabSheet; `tabBoundarySpecifiedHead` is used to hold controls related to specified head boundaries on pageBoundaries.

	`tabBoundaryWell: TTabSheet;`
`tabBoundaryWell`: TTabSheet; `tabBoundaryWell` is used to hold controls related to well boundaries on pageBoundaries.

	`tabDataSets: TTabSheet;`
`tabDataSets`: TTabSheet; `tabDataSets` is used to hold controls related to TDataArrays on pageMain.

	`tabNodes: TTabSheet;`
`tabNodes`: TTabSheet; `tabNodes` is used to hold controls related to the vertices of the TScreenObject being edited on pageMain.

	`tabProperties: TTabSheet;`
`tabProperties`: TTabSheet; `tabProperties` is used to hold controls related to miscellaneous properties on pageMain.

	`FBoundaryChanged: array[btSpecifiedHead..btWell] of boolean;`
`FBoundaryChanged`: array[btSpecifiedHead..btWell] of boolean; `FBoundaryChanged` specifies whether each type of boundary has changed.

	`FBoundaryCol: integer;`
`FBoundaryCol`: integer; `FBoundaryCol` is used to store the column that the user last selected in one of the grids for boundary-condition, time-varying stress. For boundary conditions that allow PHAST-style interpolation, `FBoundaryCol` is adjusted to be the column with the checkbox for turning on or off PHAST-style interpolation. See TPhastInterpolationValues.

	`FBoundaryGrid: TRbwDataGrid;`
`FBoundaryGrid`: TRbwDataGrid; `FBoundaryGrid` is the TRbwDataGrid that is being used to specify boundary conditions for the current TScreenObject. `FBoundaryGrid` is one of the following: `Nil`, dgSpecifiedHead, dgBoundaryFlux, dgBoundaryLeaky, dgBoundaryRiver, or dgWell.

	`FBoundaryPhastInterpolationList: TObjectList;`
`FBoundaryPhastInterpolationList`: TObjectList; `FBoundaryPhastInterpolationList` holds TInterpValuesCollections. The TInterpValuesCollections are also stored in the Objects property of the related TRbwDataGrid. `FBoundaryPhastInterpolationList` is used to ensure that they are destroyed when the `TfrmScreenObjectProperties` is destroyed.

	`FBoundaryRow: integer;`
`FBoundaryRow`: integer; `FBoundaryRow` is the selected row in the grid used to specify boundary conditions for the current TScreenObject.

	`FChangeName: boolean;`
`FChangeName`: boolean; `FChangeName` is used to indicate that the name of the TScreenObject that is being edited has been changed.

	`FDataSetList: TList;`
`FDataSetList`: TList; `FDataSetList` stores the TDataArrays accessed through DataSets.

	`FDataSetsNeedUpdating: array of boolean;`
`FDataSetsNeedUpdating`: array of boolean; `FDataSetsNeedUpdating` is used to indicate that TDataArrays need updating. each member of `FDataSetsNeedUpdating` refers to a specific TDataArray. The members in `FDataSetsNeedUpdating` each correspond to the one with the same row number in dgDataSets.

	`FDataSetsUsed: array of boolean;`
`FDataSetsUsed`: array of boolean; `FDataSetsUsed` indicates which TDataArrays have their values set by this TScreenObject.

	`FFillColor: boolean;`
`FFillColor`: boolean; `FFillColor` indicates that the user has changed whether or not the TScreenObject that is being edited should use a fill color or not. In other words if `FFillColor` is `True`, TScreenObject.FillScreenObject has changed.

	`FFormulaChanged: array of boolean;`
`FFormulaChanged`: array of boolean; `FFormulaChanged` indicates that the user has changed the formula for a particular TDataArray. Each member of `FFormulaChanged` corresponds to the TDataArray in the same row in dgDataSets.

	`FHighZFormula: TExpression;`
`FHighZFormula`: TExpression; `FHighZFormula` is the TExpression that represents the formula in edHighZ. If `FHighZFormula` is `Nil`, btnOK.Enabled may be set to `False`.

	`FInitialWidth: integer;`
`FInitialWidth`: integer; `FInitialWidth` is set to Width - pnlBoundaries.Width in FormCreate. It is used in splitterBoundaryMoved and FormResize to make sure that the panels on pageBoundaries don't get too small.

	`FInterpolatedCells: boolean;`
`FInterpolatedCells`: boolean; `FInterpolatedCells` is set to `True` when the user wants to change TScreenObject.SetPropertiesByInterpolation.

	`FInterpValuesList: TObjectList;`
`FInterpValuesList`: TObjectList; `FInterpValuesList` holds TInterpValuesCollections. Each one in `FInterpValuesList` corresponds to a different TScreenObject.

	`FLoaded: boolean;`
`FLoaded`: boolean; `FLoaded` is used in event handlers to decide whether or not anything should be done.

	`FLowZFormula: TExpression;`
`FLowZFormula`: TExpression; `FLowZFormula` is the TExpression that represents the formula in edLowZ. If `FLowZFormula` is `Nil`, btnOK.Enabled may be set to `False`.

	`FMultipleScreenObjects: boolean;`
See MultipleScreenObjects.

	`FNewUsedBy: TObjectList;`
`FNewUsedBy`: TObjectList; `FNewUsedBy` holds a TStringList for each member of FDataSetList. Each TStringList initially holds the names of all the TDataArrays that depend on the corresponding TDataArray in FDataSetList. These TStringList are used to check for circular references.

	`FObjectLine: boolean;`
`FObjectLine`: boolean; `FObjectLine` is set to true if the user has changed TScreenObject.ColorLine. See TUndoSetScreenObjectProperties.FSetColorLine.

	`FOldMixFormula: string;`
`FOldMixFormula`: string; `FOldMixFormula` is set to framePhastInterpolationData.edMixFormula.Text framePhastInterpolationDataedMixFormulaEnter It is used in framePhastInterpolationDataedMixFormulaExit to restore the formula if the user enters an invalid formula.

	`FPhastDistance1Changed: array of boolean;`
`FPhastDistance1Changed`: array of boolean; `FPhastDistance1Changed` is set to `True` in framePhastInterpolationDatardeDistance1Exit to indicate that the user has changed Distance 1 in the PHAST-style interpolation. See TPhastInterpolationValues.

	`FPhastDistance2Changed: array of boolean;`
`FPhastDistance2Changed`: array of boolean; `FPhastDistance2Changed` is set to `True` in framePhastInterpolationDatardeDistance2Exit to indicate that the user has changed Distance 2 in the PHAST-style interpolation. See TPhastInterpolationValues.

	`FPhastInterpolationDirectionChanged: array of boolean;`
`FPhastInterpolationDirectionChanged`: array of boolean; `FPhastInterpolationDirectionChanged` is set to `True` in framePhastInterpolationDatargInterpolationDirectionClick to indicate that the user has changed the interpolation direction in the PHAST-style interpolation. See TPhastInterpolationValues.

	`FPhastMixtureFormulaChanged: array of boolean;`
`FPhastMixtureFormulaChanged`: array of boolean; `FPhastMixtureFormulaChanged` is set to `True` in framePhastInterpolationDataedMixFormulaExit to indicate that the user has changed the mixture formula in the PHAST-style interpolation. See TPhastInterpolationValues.

	`FPhastValue1Changed: array of boolean;`
`FPhastValue1Changed`: array of boolean; `FPhastValue1Changed` is set to `True` in framePhastInterpolationDatardeValue1Exit to indicate that the user has changed Value 1 in the PHAST-style interpolation. See TPhastInterpolationValues.

	`FPhastValue2Changed: array of boolean;`
`FPhastValue2Changed`: array of boolean; `FPhastValue2Changed` is set to `True` in framePhastInterpolationDatardeValue2Exit to indicate that the user has changed Value 2 in the PHAST-style interpolation. See TPhastInterpolationValues.

	`FPriorCol: integer;`
`FPriorCol`: integer; `FPriorCol` is set to the the current column of dgDataSets in dgDataSetsSelectCell but first it is used in ValidateCellFormula.

	`FPriorModelUpToDate: boolean;`
`FPriorModelUpToDate`: boolean; `FPriorModelUpToDate` is set to frmGoPhast.Model.UpToDate in FormCreate. If btnCancel is clicked, frmGoPhast.Model.UpToDate is restored to `FPriorModelUpToDate`.

	`FPriorRow: integer;`
`FPriorRow`: integer; `FPriorRow` is set to the the current row of dgDataSets in dgDataSetsSelectCell but first it is used in ValidateCellFormula.

	`FScreenObject: TScreenObject;`
`FScreenObject`: TScreenObject; If only a single TScreenObject is being edited, `FScreenObject` is that TScreenObject. If more than one is being edited, `FScreenObject` is `Nil`.

	`FScreenObjectList: TList;`
`FScreenObjectList`: TList; If multiple TScreenObjects are being editted, `FScreenObjectList` holds the TScreenObjects that are being edited.

	`FSelectedRow: integer;`
`FSelectedRow`: integer; `FSelectedRow` is set to the current row in dgDataSetsSelectCell

	`FSelectingCell: boolean;`
`FSelectingCell`: boolean; `FSelectingCell` is set to `True` at the beginning of dgDataSetsSelectCell and to `False` at the end of it. It is used in several procedures to prevent them from doing anything when being called indirectly by dgDataSetsSelectCell.

	`FSetCellsColor: boolean;`
`FSetCellsColor`: boolean; `FSetCellsColor` is set to `True` to indicate that the colors of the cells will need to be recalculated.

	`FSetCellSize: boolean;`
`FSetCellSize`: boolean; `FSetCellSize` is set to `True` to indicate that the TScreenObject.CellSize has changed.

	`FSetCellSizeUsed: boolean;`
`FSetCellSizeUsed`: boolean; `FSetCellSizeUsed` is set to `True` to indicate that the TScreenObject.CellSizeUsed has changed.

	`FSetElevationCount: boolean;`
`FSetElevationCount`: boolean; `FSetElevationCount` is set to `True` to indicate that the TScreenObject.ElevationCount has changed.

	`FSetEvaluatedAt: boolean;`
`FSetEvaluatedAt`: boolean; `FSetEvaluatedAt` is set to `True` to indicate that the TScreenObject.EvaluatedAt has changed.

	`FSetFillColor: boolean;`
`FSetFillColor`: boolean; `FSetFillColor` is set to `True` if the user chooses to change the color used to draw the interior of the TScreenObjects.

	`FSetHeadSolutionType: boolean;`
`FSetHeadSolutionType`: boolean; `FSetHeadSolutionType` is set to `True` to indicate that the solution type of the specified head boundary has changed in TPhastScreenObject.TPhastScreenObject.

	`FSetHighZ: boolean;`
`FSetHighZ`: boolean; `FSetHighZ` is set to `True` to indicate that the TScreenObject.HigherElevationFunction has changed.

	`FSetLeakyHydraulicConductivity: boolean;`
`FSetLeakyHydraulicConductivity`: boolean; `FSetLeakyHydraulicConductivity` is set to `True` to indicate that the hydraulic conductivity of the leaky boundary has changed in TPhastScreenObject.TPhastScreenObject.

	`FSetLeakyThickness: boolean;`
`FSetLeakyThickness`: boolean; `FSetLeakyThickness` is set to `True` to indicate that the thickness of the leaky boundary has changed in TPhastScreenObject.TPhastScreenObject.

	`FSetLowZ: boolean;`
`FSetLowZ`: boolean; `FSetLowZ` is set to `True` to indicate that the TScreenObject.LowerElevationFunction has changed.

	`FSetObjectLine: boolean;`
`FSetObjectLine`: boolean; `FSetObjectLine` is set to `True` if the user chooses to change the color used to draw the lines of the TScreenObjects.

	`FSetRiverBedThickness: boolean;`
`FSetRiverBedThickness`: boolean; `FSetRiverBedThickness` is set to `True` to indicate that the thickness of the river boundary has changed in TPhastScreenObject.TPhastScreenObject.

	`FSetRiverDepth: boolean;`
`FSetRiverDepth`: boolean; `FSetRiverDepth` is set to `True` to indicate that the depth of the river boundary has changed in TPhastScreenObject.TPhastScreenObject.

	`FSetRiverDescription: boolean;`
`FSetRiverDescription`: boolean; `FSetRiverDescription` is set to `True` to indicate that the description of the river boundary has changed in TPhastScreenObject.TPhastScreenObject.

	`FSetRiverHydraulicConductivity: boolean;`
`FSetRiverHydraulicConductivity`: boolean; `FSetRiverHydraulicConductivity` is set to `True` to indicate that the hydraulic conductivity of the river boundary has changed in TPhastScreenObject.TPhastScreenObject.

	`FSetRiverWidth: boolean;`
`FSetRiverWidth`: boolean; `FSetRiverWidth` is set to `True` to indicate that the width of the river boundary has changed in TPhastScreenObject.TPhastScreenObject.

	`FSetWellAllocation: boolean;`
`FSetWellAllocation`: boolean; `FSetWellAllocation` is set to `True` to indicate that the allocation of the well boundary has changed in TPhastScreenObject.TPhastScreenObject.

	`FSetWellDescription: boolean;`
`FSetWellDescription`: boolean; `FSetWellDescription` is set to `True` to indicate that the description of the well boundary has changed in TPhastScreenObject.TPhastScreenObject.

	`FSetWellDiameter: boolean;`
`FSetWellDiameter`: boolean; `FSetWellDiameter` is set to `True` to indicate that the diameter of the well boundary has changed in TPhastScreenObject.TPhastScreenObject.

	`FSetWellIntervalFormat: boolean;`
`FSetWellIntervalFormat`: boolean; `FSetWellIntervalFormat` is set to `True` to indicate that the interval format of the well boundary has changed in TPhastScreenObject.TPhastScreenObject.

	`FSetWellIntervals: boolean;`
`FSetWellIntervals`: boolean; `FSetWellIntervals` is set to `True` to indicate that the intervals of the well boundary has changed in TPhastScreenObject.TPhastScreenObject.

	`FSetWellLandSurfaceDatum: boolean;`
`FSetWellLandSurfaceDatum`: boolean; `FSetWellLandSurfaceDatum` is set to `True` to indicate that the land-surface datum of the well boundary has changed in TPhastScreenObject.TPhastScreenObject.

	`FSetZ: boolean;`
`FSetZ`: boolean; `FSetZ` is set to `True` to indicate that the TScreenObject.ElevationFunction has changed.

	`FSet_SetPropertiesOfEnclosedCells: boolean;`
`FSet_SetPropertiesOfEnclosedCells`: boolean; `FSet_SetPropertiesOfEnclosedCells` is set to `True` to indicate that the TScreenObject.SetPropertiesOfEnclosedCells has changed.

	`FSet_SetPropertiesOfIntersectedCells: boolean;`
`FSet_SetPropertiesOfIntersectedCells`: boolean; `FSet_SetPropertiesOfIntersectedCells` is set to `True` to indicate that the TScreenObject.SetPropertiesOfIntersectedCells has changed.

	`FShouldValidate: boolean;`
`FShouldValidate`: boolean; `FShouldValidate` helps determine whether ValidateCellFormula is called in dgDataSetsSelectCell. It is used in dgDataSetsDrawCell to prevent it from being called while drawing a cell. It is also set elsewhere.

	`FUndoSetScreenObjectProperties: TUndoSetScreenObjectProperties;`
`FUndoSetScreenObjectProperties`: TUndoSetScreenObjectProperties; `FUndoSetScreenObjectProperties` is used to set or undo the setting of the properties of a TScreenObject.

	`FUsePhastInterpolationChanged: array of boolean;`
`FUsePhastInterpolationChanged`: array of boolean; `FUsePhastInterpolationChanged` is set to `True` in framePhastInterpolationDatacbPhastInterpolationClick to indicate that the user has changed whether to use PHAST-style interpolation. See TPhastInterpolationValues.

	`FVariableList: TList;`
`FVariableList`: TList; `FVariableList` is used to store the TCustomVariables associated with each TDataArray. See Variables.

	`FViewDirection: TViewDirection;`
`FViewDirection`: TViewDirection; `FViewDirection` is the TViewDirection of the TScreenObject(s) that are being edited.

	`FZFormula: TExpression;`
`FZFormula`: TExpression; `FZFormula` is the TExpression that represents the formula in edZ. If `FZFormula` is `Nil`, btnOK.Enabled may be set to `False`.

Methods

	`procedure btnCancelClick(Sender: TObject);`
If the user hasn't changed anything, don't force the user to save the model.

	`procedure btnColorClick(Sender: TObject);`
allow the user to edit the line or fill color of a TScreenObject. See btnLineColor and btnFillColor.

	`procedure btnFormulaClick(Sender: TObject);`
`btnFormulaClick` is used to edit a formula that is not part of a TDataArray or boundary condition TDataArray. Examples include the formulas for the elevations associated with a TScreenObject.

	`procedure btnOKClick(Sender: TObject);`
`btnOKClick` warns user about potential problems and gives the user a chance to correct them. It then applies the changes to the TScreenObject or TScreenObjects using SetMultipleScreenObjectData, or SetData.

	`procedure cbEnclosedCellsClick(Sender: TObject);`
Mark all used TDataArrays affected by the TScreenObject being edited as in need of updating when this check box is checked. It sets FSet_SetPropertiesOfEnclosedCells to `True`.

	`procedure cbFillColorClick(Sender: TObject);`
`cbFillColorClick` responds to the user checking the cbFillColor check box by enabling the associated button (btnFillColor). `cbFillColorClick` sets FFillColor to `True`.

	`procedure cbInterpolationClick(Sender: TObject);`
`cbInterpolationClick` responds to the user checking the cbInterpolation check box by marking all TDataArrays affected by the TScreenObject being edited as in need of updating. `cbInterpolationClick` sets FInterpolatedCells to `True`.

	`procedure cbIntersectedCellsClick(Sender: TObject);`
`cbIntersectedCellsClick` responds to the user checking the cbIntersectedCells check box by marking all TDataArrays affected by the TScreenObject being edited as in need of updating. `cbIntersectedCellsClick` sets FSet_SetPropertiesOfIntersectedCells to `True`.

	`procedure cbLineColorClick(Sender: TObject);`
`cbLineColorClick` responds to the user checking the cbLineColor check box by enabling the associated button (btnLineColor).

	`procedure cbSetGridCellSizeClick(Sender: TObject);`
`cbSetGridCellSizeClick` enables controls related to setting the grid cell size and sets FSetCellSizeUsed to `True`.

	`procedure cbWellPumpAllocationClick(Sender: TObject);`
`cbWellPumpAllocationClick` records that WellPumpAllocation was changed by setting FSetWellAllocation to `True`.

	`procedure comboSolutionTypeChange(Sender: TObject);`
`comboSolutionTypeChange` responds to a change in comboSolutionType by changing a title in dgSpecifiedHead FSetHeadSolutionType is generally set to `True`.

	`procedure comboWellIntervalStyleChange(Sender: TObject);`
`comboWellIntervalStyleChange` changes the captions on the table that shows the well intervals depending on the selection in comboWellIntervalStyle. `comboWellIntervalStyleChange` sets FSetWellIntervalFormat to `True`.

	`procedure dgBoundaryButtonClicked(Sender: TObject; ACol, ARow: Integer; const Value: WideString);`
Allow the user to edit a formula with the formula editor in one of the boundary condition grids (dgSpecifiedHead, dgBoundaryFlux, dgBoundaryLeaky, dgBoundaryRiver, and dgWell).

	`procedure dgBoundaryDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);`
with Grids that represent boundary conditions, `dgBoundaryDrawCell` shows the cell at (1,1) as gray because the user shouldn't be able to edit it. (dgSpecifiedHead, dgBoundaryFlux, dgBoundaryLeaky, dgBoundaryRiver, and dgWell)

	`procedure dgBoundaryRowMoving(Sender: TObject; const Origin, Destination: Integer; var CanMove: Boolean);`
`dgBoundaryRowMoving` Doesn't allow a row to be moved to the top of the grid because the cell at (1,1) shouldn't be edited. (dgSpecifiedHead, dgBoundaryFlux, dgBoundaryLeaky, dgBoundaryRiver, and dgWell)

	`procedure dgBoundarySelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);`
Show the TPhastInterpolationValues when the user clicks on a cell in a boundary grid. (dgSpecifiedHead, dgBoundaryFlux, dgBoundaryLeaky, dgBoundaryRiver, and dgWell)

	`procedure dgBoundarySetEditText(Sender: TObject; ACol, ARow: Integer; const Value: WideString);`
when the user edits text in one of the grids for boundary conditions record that the data was changed (SetBoundaryChanged). (dgSpecifiedHead, dgBoundaryFlux, dgBoundaryLeaky, dgBoundaryRiver, and dgWell)

	`procedure dgBoundaryStateChanged(Sender: TObject; ACol, ARow: Integer; const Value: TCheckBoxState);`
update the displayed TPhastInterpolationValues when the use clicks one of the check boxes in a boundary table. (dgSpecifiedHead, dgBoundaryFlux, dgBoundaryLeaky, dgBoundaryRiver, and dgWell)

	`procedure dgDataSetsButtonClicked(Sender: TObject; ACol, ARow: Integer; const Value: WideString);`
`dgDataSetsButtonClicked` is used to edit the formula of a data set when the user clicks the button in dgDataSets.

	`procedure dgDataSetsDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);`
`dgDataSetsDrawCell` draws the cell in dgDataSets with a gray background if it can not be selected. `dgDataSetsDrawCell` draws the cell in dgDataSets with a red background if it is an invalid formula. `dgDataSetsDrawCell` draws the cell in dgDataSets with italic text if the data set is not used be the model.

	`procedure dgDataSetsExit(Sender: TObject);`
`dgDataSetsExit` validates the cell formula of the last selected cell (as specified with FPriorCol, FPriorRow).

	`procedure dgDataSetsSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);`
`dgDataSetsSelectCell` validates the formula and show the TPhastInterpolationValues for the current TDataArray in dgDataSets. `dgDataSetsSelectCell` also sets CanSelect to false in certain cases.

	`procedure dgDataSetsSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: WideString);`
mark the formula as having been changed if that is what happened. See FFormulaChanged.

	`procedure dgDataSetsStateChanged(Sender: TObject; ACol, ARow: Integer; const Value: TCheckBoxState);`
Respond to the user clicking the checkbox for a data set in dgDataSets by enabling or disabling the display of TPhastInterpolationValues in framePhastInterpolationData.

	`procedure dgVerticiesSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: WideString);`
If the points in a TScreenObject are being changed, all the data sets that are being affected by the TScreenObject must be updated.

	`procedure dgWellElevationsSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: WideString);`
If the user has changed the value displayed in dgWellElevations, set FSetWellIntervals to `True` for later use in SetMultipleScreenObjectData.

	`procedure ed2ZExit(Sender: TObject);`
`ed2ZExit` validates the upper and lower Z formulas.

	`procedure edHighZChange(Sender: TObject);`
`edHighZChange` records that the higher z formula has changed by setting FSetHighZ to `True`.

	`procedure edLeakyHydraulicConductivityChange(Sender: TObject);`
`edLeakyHydraulicConductivityChange` records that the Leaky Hydraulic Conductivity formula has changed by setting FSetLeakyHydraulicConductivity to `True`.

	`procedure edLeakyThicknessChange(Sender: TObject);`
`edLeakyThicknessChange` records that the Leaky Thickness formula has changed by setting FSetLeakyThickness to `True`.

	`procedure edLowZChange(Sender: TObject);`
record that the lower z formula has changed.

	`procedure edNameChange(Sender: TObject);`
`edNameChange` records that the name has changed by setting FChangeName to `True`.

	`procedure edNameExit(Sender: TObject);`
`edNameExit` ensures that the value given for the name of a TScreenObject is valid.

	`procedure edRiverBedThicknessChange(Sender: TObject);`
`edRiverBedThicknessChange` records that the river bed thickness has changed by setting FSetRiverBedThickness to `True`.

	`procedure edRiverDepthChange(Sender: TObject);`
`edRiverDepthChange` records that the river depth has changed by setting FSetRiverDepth to `True`.

	`procedure edRiverDescriptonChange(Sender: TObject);`
`edRiverDescriptonChange` records that the river description has changed by setting FSetRiverDescription to `True`.

	`procedure edRiverHydraulicConductivityChange(Sender: TObject);`
`edRiverHydraulicConductivityChange` records that the river hydraulic conductivity has changed by setting FSetRiverHydraulicConductivity to `True`.

	`procedure edRiverWidthChange(Sender: TObject);`
`edRiverWidthChange` records that the river width has changed by setting FSetRiverWidth to `True`.

	`procedure edWellDescriptionChange(Sender: TObject);`
`edWellDescriptionChange` records that the well description has changed by setting FSetWellDescription to `True`.

	`procedure edZChange(Sender: TObject);`
`edZChange` records that the Z formula has changed by setting FSetZ to `True`.

	`procedure edZExit(Sender: TObject);`
`edZExit` validates the formula for the Z.

	`procedure FormCreate(Sender: TObject); override;`
`FormCreate` create variables and initialize the form.

	`procedure FormDestroy(Sender: TObject);`
`FormDestroy` destroy variables.

	`procedure FormResize(Sender: TObject);`
See FInitialWidth.

	`procedure framePhastInterpolationBoundariescbPhastInterpolationClick(Sender: TObject);`
Respond to the user activating or deactivating PHAST-style Interpolation for a boundary condition. See TPhastInterpolationValues.

	`procedure framePhastInterpolationBoundariesedMixFormulaExit( Sender: TObject);`
`framePhastInterpolationBoundariesedMixFormulaExit` responds to the user finishing editing the PHAST-style Interpolation mixture formula for a boundary condition by storing the value. See TPhastInterpolationValues.

	`procedure framePhastInterpolationBoundariesrdeChange(Sender: TObject);`
`framePhastInterpolationBoundariesrdeChange` record that the user has edited the a boundary condition by calling SetBoundaryChanged.

	`procedure framePhastInterpolationBoundariesrdeDistance1Exit(Sender: TObject);`
`framePhastInterpolationBoundariesrdeDistance1Exit` responds to the user finishing editing the PHAST-style Interpolation Distance 1 for a boundary condition by storing the value. See TPhastInterpolationValues.

	`procedure framePhastInterpolationBoundariesrdeDistance2Exit(Sender: TObject);`
`framePhastInterpolationBoundariesrdeDistance2Exit` responds to the user finishing editing the PHAST-style Interpolation Distance 2 for a boundary condition by storing the value. See TPhastInterpolationValues.

	`procedure framePhastInterpolationBoundariesrdeValue1Exit(Sender: TObject);`
`framePhastInterpolationBoundariesrdeValue1Exit` responds to the user finishing editing the PHAST-style Interpolation Value 1 for a boundary condition by storing the value. See TPhastInterpolationValues.

	`procedure framePhastInterpolationBoundariesrdeValue2Exit(Sender: TObject);`
`framePhastInterpolationBoundariesrdeValue2Exit` responds to the user finishing editing the PHAST-style Interpolation Value 2 for a boundary condition by storing the value. See TPhastInterpolationValues.

	`procedure framePhastInterpolationBoundariesrgInterpolationDirectionClick( Sender: TObject);`
`framePhastInterpolationBoundariesrgInterpolationDirectionClick` responds to the user changing the interpolation direction for a boundary condition by storing the value. See TPhastInterpolationValues.

	`procedure framePhastInterpolationDatabtnEditMixtureFormulaClick( Sender: TObject);`
`framePhastInterpolationDatabtnEditMixtureFormulaClick` responds to the user clicking the button for editing the mixture formula by displaying the TfrmFormula.

	`procedure framePhastInterpolationDatacbPhastInterpolationClick(Sender: TObject);`
`framePhastInterpolationDatacbPhastInterpolationClick` responds to the user activating or deactivating PHAST-Interpolation for a TDataArray.

	`procedure framePhastInterpolationDataedMixFormulaEnter( Sender: TObject);`
`framePhastInterpolationDataedMixFormulaEnter` stores a copy of the mixture formula in case it needs to be restored later.

	`procedure framePhastInterpolationDataedMixFormulaExit(Sender: TObject);`
`framePhastInterpolationDataedMixFormulaExit` checks that the mixture formula is valid.

	`procedure framePhastInterpolationDatardeDistance1Exit(Sender: TObject);`
`framePhastInterpolationDatardeDistance1Exit` responds to the user having finished editing the PHAST-Interpolation distance 1 by storing the new value and updating FPhastDistance1Changed and FDataSetsNeedUpdating. See TPhastInterpolationValues.

	`procedure framePhastInterpolationDatardeDistance2Exit(Sender: TObject);`
`framePhastInterpolationDatardeDistance2Exit` responds to the user having finished editing the PHAST-Interpolation distance 2 by storing the new value and updating FPhastDistance1Changed and FDataSetsNeedUpdating. See TPhastInterpolationValues.

	`procedure framePhastInterpolationDatardeValue1Exit(Sender: TObject);`
`framePhastInterpolationDatardeValue1Exit` responds to the user having finished editing the PHAST-Interpolation Value 1 by storing the new value and updating FPhastDistance1Changed and FDataSetsNeedUpdating. See TPhastInterpolationValues.

	`procedure framePhastInterpolationDatardeValue2Exit(Sender: TObject);`
`framePhastInterpolationDatardeValue2Exit` responds to the user having finished editing the PHAST-Interpolation Value 2 by storing the new value and updating FPhastDistance1Changed and FDataSetsNeedUpdating. See TPhastInterpolationValues.

	`procedure framePhastInterpolationDatargInterpolationDirectionClick(Sender: TObject);`
`framePhastInterpolationDatargInterpolationDirectionClick` responds to the user having edited the PHAST-Interpolation interpolation direction by storing the new value and updating FPhastDistance1Changed and FDataSetsNeedUpdating. See TPhastInterpolationValues.

	`procedure pageBoundariesChange(Sender: TObject);`
`pageBoundariesChange` updates seBoundaryTimes.Value based on the active page in pageBoundaries.

	`procedure pageMainChange(Sender: TObject);`
`pageMainChange` sets btnHelp.HelpKeyword to pageMain.ActivePage.HelpKeyword

	`procedure rdeGridCellSizeChange(Sender: TObject);`
If the user has changed the value displayed in rdeGridCellSize, set FSetCellSize to `True` for later use in SetMultipleScreenObjectData.

	`procedure rdeWellDiameterChange(Sender: TObject);`
If the user has changed the value displayed in rdeWellDiameter, set FSetWellDiameter to `True` for later use in SetMultipleScreenObjectData.

	`procedure rdeWellLandSurfaceDatumChange(Sender: TObject);`
If the user has changed the value displayed in rdeWellLandSurfaceDatum, set FSetWellLandSurfaceDatum to `True` for later use in SetMultipleScreenObjectData.

	`procedure rgBoundaryTypeClick(Sender: TObject);`
`rgBoundaryTypeClick` responds to the user selecting a different type of boundary condition to use with the TScreenObject by setting pageBoundaries.ActivePageIndex to the appropriate value.

	`procedure rgElevationCountClick(Sender: TObject);`
`rgElevationCountClick` responds to the user changing the number of elevations for the TScreenObject. `rgElevationCountClick` sets cbFillColor.Enabled as well as the enabled property of other controls. Some TDataArrays may no longer be affected by the TScreenObject being edited. due to a change in the number of elevations used.

	`procedure rgEvaluatedAtClick(Sender: TObject);`
respond to the user changing where the TScreenObject is to be evaluated. `rgEvaluatedAtClick` changes the captions of cbEnclosedCells, cbIntersectedCells, and cbInterpolation.

	`procedure seBoundaryTimesChanged(Sender: TObject; NewValue: Integer);`
`seBoundaryTimesChanged` responds to the user changing the number of boundary times by changing the number of rows in one of the grids related to boundary conditions. (dgSpecifiedHead, dgBoundaryFlux, dgBoundaryLeaky, dgBoundaryRiver, and dgWell)

	`procedure seWellIntervalsChanged(Sender: TObject; NewValue: Integer);`
`seWellIntervalsChanged` responds to the user changing the number of open intervals in a well by changing the number of rows in dgWellElevations.

	`procedure splitterBoundaryMoved(Sender: TObject);`
See FInitialWidth.

	`procedure SetMultipleScreenObjects(const Value: boolean);`
`SetMultipleScreenObjects` is the setter for MultipleScreenObjects;

procedure AssignBoundary(const Grid: TRbwDataGrid; const ExpressionCol, InterpolationCol, Row: integer; const Time: double; const Boundary: TCustomPhastBoundaryCollection);

AssignBoundary assigns a boundary condition for a TScreenObject based on the values in a TRbwDataGrid. .

Parameters

Grid: Grid is the TRbwDataGrid from which data will be read.
ExpressionCol: ExpressionCol is the column in the grid that store the expression for the boundary
InterpolationCol: InterpolationCol is the column in the grid that stores whether or not it uses PHAST-interpolation.
Row: Row is the row in the TRbwDataGrid that contains the data.
Time: Time is the time of the boundary condition.
Boundary: Boundary is the TCustomPhastBoundaryCollection that holds the boundary. Boundary is owned by a TScreenObject.

	`function BoundaryIsIdentical(const Grid: TRbwDataGrid; const UsedTimes: TRealList; const Boundary: TCustomPhastBoundaryCollection; const ExpressionCol, PhastInterpolateCol: integer): boolean;`
`BoundaryIsIdentical` tests whether the boundary specified in Grid is identical to the one in Boundary.

	`procedure CheckForCircularReference(const Expression: TExpression; const DSetName: string; const ACol, ARow: integer; const OldFormulaOK: boolean; const OldFormula: string);`
`CheckForCircularReference` checks to see if Expression uses itself. If it does, it tries to restore the old formula for it using OldFormula, OldFormulaOK, ACol, and ARow. DSetName is the name of the TDataArray to which Expression applies.

	`procedure CheckForCircularReferencesInMixtureFormulas( var Expression: TExpression; const DSName, OldFormula: string; const ARow: integer);`
`CheckForCircularReferencesInMixtureFormulas` checks to see if Expression uses itself. If it does, it tries to restore the old formula for it using OldFormula, and ARow. DSetName is the name of the TDataArray to whose mixture formula Expression applies.

	`procedure CreateBoundaryFormula(const DataGrid: TRbwDataGrid; const ACol, ARow: integer; Formula: string; const Orientation: TDataSetOrientation; const EvaluatedAt: TEvaluatedAt);`
`CreateBoundaryFormula` creates an TExpression for a boundary condition based on the text in DataGrid at ACol, ARow. Orientation, and EvaluatedAt are used to chose the TRbwParser.

	`procedure CreateFormula(const Row, DataSetIndex: integer; const ShowError: boolean = True);`
`CreateFormula` creates a TExpression for a cell in dgDataSets.

	`function CreateMixtureFormula(const DataSetIndex: integer): TExpression;`
`CreateMixtureFormula` attempts to create a TExpression for the mixture the the TDataArray identified by DataSetIndex.

	`procedure CreateVariable(const Index: integer);`
`CreateVariable` creates a TCustomVariable to represent the TDataArray specified by Index in each TRbwParser that needs it.

	`procedure EnableOK_Button;`
`EnableOK_Button` allows the OK button to be pressed if all of the formulas for the data sets and elevation formulas are valid.

	`function GetBoundaryTime(const Grid: TRbwDataGrid; const Col, Row: integer; out Time: double): boolean;`
`GetBoundaryTime` converts the value in Grid at Col, Row to a real number that is returned in Time. The result of the function reveals whether or not the value in the grid cell could be converted.

	`procedure GetBoundaryTimes( const Boundaries: array of TCustomPhastBoundaryCollection; const Times: TRealList);`
`GetBoundaryTimes` fills Times with all the times in Boundaries.

	`function GetCompiler(const Orientation: TDataSetOrientation; const EvaluatedAt: TEvaluatedAt): TRbwParser;`
`GetCompiler` returns the appropriate TRbwParser based on the combination of Orientation and EvaluatedAt.

	`function GetCompilerByIndex(const Index: integer): TRbwParser;`
`GetCompilerByIndex` determines the Orientation and EvaluatedAt of the data set at Index and returns the appropriate compiler based on that combination.

	`function GetDataSetIndexByName(const DataSetName: string): integer;`
`GetDataSetIndexByName` returns the position of the TDataArray whose name is DataSetName in FDataSetList. If the TDataArray isn't in FDataSetList, `GetDataSetIndexByName` returns -1. See Orientations.

	`function GetDataSetOrientations( const Index: integer): TDataSetOrientation;`
`GetDataSetOrientations` returns the orientation of the TDataArray at Index.

	`function GetDataSets(const Index: integer): TDataArray;`
`GetDataSets` returns the TDataArray whose position is Index. Set DataSets.

	`function GetElevationCompiler: TRbwParser;`
`GetElevationCompiler` returns the TRbwParser that is appropriate for specifying the elevation formula for a TScreenObject based on the direction from which the TScreenObject is viewed and whether it is evaluated by blocks or nodes.

	`function GetExpression(const Row: integer): TExpression;`
`GetExpression` returns the TExpression associated with the TDataArray shown on Row. See Expressions.

	`function GetResultType(const Index: integer): TRbwDataType;`
`GetResultType` returns the TRbwDataType or the TDataArray at Index.

function GetVariables(const Index: integer): TCustomVariable;

GetVariables returns the TCustomVariable associated with the TDataArray at Index.

Parameters

Sender: Sender must be one of the following: dgSpecifiedHead, dgBoundaryFlux, dgBoundaryLeaky, dgBoundaryRiver, or dgWell.

	`procedure SetCheckBoxCaptions;`
Set the captions of cbEnclosedCells, cbIntersectedCells, and cbInterpolation based on rgEvaluatedAt.ItemIndex.

	`procedure SetData;`
`SetData` is used to set the data for a single TScreenObject when it is first created. See SetMultipleScreenObjectData if there is more than one TScreenObject being edited.

	`procedure SetDataSets(const Index: integer; const Value: TDataArray);`
`SetDataSets` stores Value at position Index in FDataSetList. If required, FDataSetList will be expanded to create a space at Index. Set DataSets.

	`procedure SetFloatProperty(const NewValue: string; var SetValue: double; ShouldSetNewValue: boolean; var NewValueSet: boolean);`
`SetFloatProperty` is used to set the value of a double variable in a TUndoSetPhastScreenObjectProperties.

	`procedure SetExpression(const Row: integer; const Value: TExpression);`
`SetExpression` stores a TExpression associated with the TDataArray at Row. See Expressions.

procedure SetMultipleScreenObjectData;

SetMultipleScreenObjectData is called when the user press the btnOK button after editing the properties of one or more TScreenObjects. It set up a TUndoSetScreenObjectProperties based on the data that the user has changed.

Properties

	`property MultipleScreenObjects: boolean read FMultipleScreenObjects write SetMultipleScreenObjects;`
`MultipleScreenObjects` is set to `True` if more than one TScreenObjects are being edited at one time. Also AllowGrayed is set to `MultipleScreenObjects` for cbLineColor, cbInterpolation, cbIntersectedCells, cbEnclosedCells, and cbFillColor.

	`property DataSets[const Index: integer]: TDataArray read GetDataSets write SetDataSets;`
`DataSets` stores all the data sets used in the model.

	`property Expressions[const Row: integer]: TExpression read GetExpression write SetExpression;`
`Expressions` stores the TExpressions associated with each data set.

	`property Orientations[const Index: integer]: TDataSetOrientation read GetDataSetOrientations;`
`Orientations` is the TDataSetOrientation of the data set being edited.

	`property Variables[const Index: integer]: TCustomVariable read GetVariables write SetVariables;`
`Variables` are the TCustomVariables associated with each data set.

	`property UndoSetScreenObjectProperties: TUndoSetScreenObjectProperties read FUndoSetScreenObjectProperties write FUndoSetScreenObjectProperties;`
`UndoSetScreenObjectProperties` is used to set or undo the setting of the properties of a TScreenObject.

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

Class TfrmScreenObjectProperties

Unit

Declaration

Description

Hierarchy

Overview

Fields

Methods

Properties

Description

Fields

Methods

Parameters

See also

Parameters

See also

See also

See also

Properties

	`procedure InitializeArrays;`
`InitializeArrays` initialize the arrays used for updating data sets. See FDataSetsNeedUpdating, FDataSetsUsed, FUsePhastInterpolationChanged, FPhastDistance1Changed, FPhastDistance2Changed, FPhastValue1Changed, FPhastValue2Changed, FPhastMixtureFormulaChanged, and FPhastInterpolationDirectionChanged.

	`procedure InitilizeControls;`
`InitilizeControls` sets the data stored in controls in `TfrmScreenObjectProperties` to default values and otherwise prepares the `TfrmScreenObjectProperties` to edit objects.

	`procedure InitilizeGridObjects;`
`InitilizeGridObjects` initializes the grids. It sets the Objects property corresponding to each cell to nil and sets each cell that isn't a fixed cell to a blank. The cell at [1,1] for boundary conditions is set to hold a '0' as required by boundary conditions.

	`procedure ResetFluxGrid;`
`ResetFluxGrid` resets the data displayed in dgBoundaryFlux. It is called by GetDataForMultipleScreenObjects when two TScreenObjects have Flux boundaries that differ.

	`procedure ResetLeakyGrid;`
`ResetLeakyGrid` resets the data displayed in dgBoundaryLeaky. It is called by GetDataForMultipleScreenObjects when two TScreenObjects have Leaky boundaries that differ.

	`procedure ResetRiverGrid;`
`ResetRiverGrid` resets the data displayed in dgBoundaryRiver. It is called by GetDataForMultipleScreenObjects when two TScreenObjects have River boundaries that differ.

	`procedure ResetSpecifiedHeadGrid;`
`ResetSpecifiedHeadGrid` resets the data displayed in dgSpecifiedHead. It is called by GetDataForMultipleScreenObjects when two TScreenObjects have Specified Head boundaries that differ.

	`procedure ResetWellElevationGrid;`
`ResetWellElevationGrid` resets the data displayed in dgWellElevations. It is called by GetDataForMultipleScreenObjects when two TScreenObjects have Well boundaries with well elevations that differ.

	`procedure ResetWellGrid;`
`ResetWellGrid` resets the data displayed in dgWell. It is called by GetDataForMultipleScreenObjects when two TScreenObjects have Well boundaries that differ.

	`function RowToDataSetIndex(const ARow: integer): integer;`
`RowToDataSetIndex` returns the position of the data set displayed at Row in DataSets

	`procedure SelectBoundaryCell;`
`SelectBoundaryCell` calls dgBoundaryStateChanged for the first check box in the TRbwDataGrid for the selected boundary condition that is checked.

	`procedure SetStringProperty(const NewValue: string; var SetValue: string; ShouldSetNewValue: boolean; var NewValueSet: boolean);`
`SetStringProperty` is used to set the value of a string variable in a TUndoSetPhastScreenObjectProperties.

	`function TimesIdentical(const Grid: TRbwDataGrid; const UsedTimes: TRealList; const TimeCol: integer): boolean;`
`TimesIdentical` returns `True` if all the times recorded in Grid in column TimeCol are identical to those in UsedTimes.

	`procedure UpdateLinkages(const Expression: TExpression; const ARow: integer; const DSName: string);`
`UpdateLinkages` updates the list of which variables depend on which others.

	`procedure ValidateCellFormula(const ACol, ARow: integer);`
`ValidateCellFormula` ensures that when a formula has been entered at position ACol, ARow in dgDataSets, that the formula is valid.

	`procedure ValidateEdFormula(const Ed: TEdit);`
`ValidateEdFormula` ensures that when a formula has been entered at one of the elevation edit boxes, that the formula is valid. See edZ, edHighZ, and edLowZ.

	`procedure EmphasizeValueChoices;`
`EmphasizeValueChoices` changes the appearances of cbSetGridCellSize, cbEnclosedCells, cbIntersectedCells, and cbInterpolation so that if none of them is checked, their appearance is emphasized.

	`procedure GetData(const AScreenObject: TScreenObject);`
When a TScreenObject is first created, `GetData` is called to display it's properties. GetDataForMultipleScreenObjects)