Class TScreenObject

Description

Hierarchy

Fields

Methods

Properties

Unit

ScreenObjectUnit

Declaration

type TScreenObject = class(TObserver)

Description

no description available, TObserver description follows

TObserver is used to coordinate when TDataArrays need to be updated.

Hierarchy

TComponent
TObserver
TScreenObject

Overview

Fields

	`FCachedCells: TCachedCells;`
	`FIntervalTree: TRbwIntervalTree;`
	`FDelegateCollection: TDelegateCollection;`
	`FCanInvalidateModel: boolean;`
	`FModel: TBaseModel;`
	`FDataSetMixtureSubscriptions: TObjectList;`
	`FInterpValues: TInterpValuesCollection;`
	`FMixtureCompiler: TRbwParser;`
	`FMixtureExpression: TExpression;`
	`FMixtureVariables: TStringList;`
	`FFluxBoundary: TFluxBoundary;`
	`FLeakyBoundary: TLeakyBoundary;`
	`FRiverBoundary: TRiverBoundary;`
	`FSpecifiedHeadBoundary: TSpecifiedHeadBoundary;`
	`FWellBoundary: TWellBoundary;`
	`FBottomElevation: real;`
	`FBottomElevSubscription: TObserver;`
	`FBoundaryDataSetFormulas: TList;`
	`FBoundaryDataSets: TList;`
	`FBoundaryDataSetSubscriptions: TObjectList;`
	`FCanvasCoordinates: TPointArray;`
	`FCapacity: integer;`
	`FCellSize: real;`
	`FCellSizeUsed: boolean;`
	`FColorLine: boolean;`
	`FCount: integer;`
	`FDataSetFormulas: TList;`
	`FDataSets: TList;`
	`FDataSetSubscriptions: TObjectList;`
	`FDeleted: boolean;`
	`FElevationCount: TElevationCount;`
	`FElevSubscription: TObserver;`
	`FEvaluatedAt: TEvaluatedAt;`
	`FFillColor: TColor;`
	`FFillScreenObject: boolean;`
	`FLineColor: TColor;`
	`FMaxX: real;`
	`FMaxY: real;`
	`FMinX: real;`
	`FMinY: real;`
	`FNeedToUpdateLine: boolean;`
	`FPoints: TRealPointArray;`
	`FRecalculateArea: boolean;`
	`FRecalculateBox: boolean;`
	`FRecalculateCoordinates: boolean;`
	`FRecalculateLength: boolean;`
	`FScreenObjectArea: real;`
	`FScreenObjectLength: real;`
	`FSegments: TCellElementSegmentList;`
	`FSegModelAssoc: TAssociateList;`
	`FSelected: boolean;`
	`FSelectedVertexCount: integer;`
	`FSelectedVertices: TBooleanDynArray;`
	`FSelectLines: TLines;`
	`FSetValuesByInterpolation: boolean;`
	`FSetValuesOfEnclosedCells: boolean;`
	`FSetValuesOfIntersectedCells: boolean;`
	`FLastSubPolygon: TSubPolygon;`
	`FTopElevation: real;`
	`FTopElevSubscription: TObserver;`
	`FViewDirection: TViewDirection;`
	`FVisible: boolean;`
	`FNeedToResetSelectedVertexCount: boolean;`
	`FSubPolygons: TList;`
	`FModflowBoundaries: TModflowBoundaries;`
	`FSectionStarts: TValueArrayStorage;`
	`FImportedSectionElevations: TValueArrayStorage;`
	`FCurrentValues: TValueArrayStorage;`
	`FImportedHigherSectionElevations: TValueArrayStorage;`
	`FImportedLowerSectionElevations: TValueArrayStorage;`
	`FImportedValues: TValueCollection;`
	`FIsClosedCached: Boolean;`
	`FCachedClosed: boolean;`
	`FGlListCreated: Boolean;`
	`FGlScreenObjectList: TGLuint;`
	`FListUpToDate: Boolean;`
	`FIFACE: TIface;`
	`FModpathParticles: TParticleStorage;`
	`FUpdateCount: Integer;`
	`FGpcPolygons: TGpcPolygonClass;`
	`FPriorObjectIntersectLengthCol: Integer;`
	`FPriorObjectIntersectLengthRow: Integer;`
	`FPriorObjectIntersectLengthLayer: Integer;`
	`FPriorObjectIntersectLengthResult: Real;`
	`FCachedDataSetIndex: integer;`
	`FElevationFormulaObject: TFormulaObject;`
	`FHigherElevationFormulaObject: TFormulaObject;`
	`FLowerElevationFormulaObject: TFormulaObject;`
	`FPriorObjectSectionIntersectLengthCol: integer;`
	`FPriorObjectSectionIntersectLengthRow: integer;`
	`FPriorObjectSectionIntersectLengthLayer: integer;`
	`FPriorObjectSectionIntersectLengthResult: real;`
	`FPriorObjectSectionIntersectLengthSection: integer;`
	`FComment: string;`
	`FPointPositionValues: TPointPositionValues;`
	`FChildModelName: string;`
	`FChildModelDiscretization: integer;`
	`FChildModel: TBaseModel;`
	`FPriorObjectSectionIntersectLengthModel: TBaseModel;`
	`FPriorObjectIntersectLengthModel: TBaseModel;`
	`FUsedModels: TUsedWithModelCollection;`
	`FFullObjectIntersectLength: Boolean;`
	`FPriorFullObjectIntersectLength: Boolean;`
	`FPositionLocked: boolean;`
	`FStoredSutraAngle: TRealStorage;`
	`FSutraBoundaries: TSutraBoundaries;`
	`FDuplicatesAllowed: Boolean;`
	`FIsUpdating: boolean;`

Methods

	`function IsOutsideBoxPlusBuffer(const Location: TPoint2D; const BufferDistance: real; const Anisotropy: real): boolean;`
	`function IsAnyPointInSubPolygonCloser(const Location: TPoint2D; var Distance: real; out ClosestLocation: TPoint2D; const Anisotropy: real; const ASubPolygon: TSubPolygon): boolean;`
	`function IsOutsideSubPolygonBoxPlusBuffer(const Location: TPoint2D; const BufferDistance: real; const Anisotropy: real; const SubPolygon: TSubPolygon): boolean;`
	`procedure CreateLastSubPolygon;`
	`procedure DestroyLastSubPolygon;`
	`function GetSubPolygonCount: integer;`
	`function GetSubPolygon(Index: integer): TSubPolygon;`
	`procedure SetFluxBoundary(const Value: TFluxBoundary);`
	`procedure SetInterpValues(const Value: TInterpValuesCollection);`
	`procedure SetLeakyBoundary(const Value: TLeakyBoundary);`
	`procedure SetRiverBoundary(const Value: TRiverBoundary);`
	`procedure SetSpecifiedHeadBoundary( const Value: TSpecifiedHeadBoundary);`
	`procedure SetWellBoundary(const Value: TWellBoundary);`
	`procedure AddPointFromColumn(const ColIndex: integer; const Grid: TCustomModelGrid; const PreviousPoint, APoint: TEdgePoint; var TempPoints1: TEdgePointArray; var Count: integer; const Position: TEdgePosition);`
	`procedure AddPointFromLayer(const LayerIndex: integer; const Grid: TCustomModelGrid; const PreviousPoint, APoint: TEdgePoint; var TempPoints1: TEdgePointArray; var Count: integer; const Position: TEdgePosition);`
	`procedure AddPointFromRow(const RowIndex: integer; const Grid: TCustomModelGrid; const PreviousPoint, APoint: TEdgePoint; var TempPoints1: TEdgePointArray; var Count: integer; const Position: TEdgePosition);`
	`procedure Assign3DElevations(Formula: string; const SparseArray: T3DSparseRealArray; AModel: TBaseModel);`
	`procedure Assign3DElevationsFromFront(const Compiler: TRbwParser; const SparseArray: T3DSparseRealArray; AModel: TBaseModel);`
	`procedure Assign3DElevationsFromSide(const Compiler: TRbwParser; const SparseArray: T3DSparseRealArray; AModel: TBaseModel);`
	`procedure AssignHigher3DElevations(AModel: TBaseModel);`
	`procedure AssignLower3DElevations(AModel: TBaseModel);`
	`procedure CalculateCanvasCoordinates;`
	`procedure CreateSubPolygons;`
	`procedure ClearSubPolygons;`
	`procedure Draw0Elev(Const Bitmap32: TBitmap32; const Direction: TViewDirection; const DrawAsSelected: Boolean = False);`
	`procedure Draw1Elev( Const Bitmap32: TBitmap32; const Direction: TViewDirection; const DrawAsSelected: Boolean = False);`
	`procedure Draw2Elev(Const Bitmap32: TBitmap32; const Direction: TViewDirection; const DrawAsSelected: Boolean = False);`
	`procedure EvaluateSubPolygon(const ASubPolygon: TSubPolygon; const X, Y: real; var IsInside: boolean);`
	`function GetACol(const Grid: TCustomModelGrid; const X: double): integer;`
	`function GetAPhastLayer(const Grid: TCustomModelGrid; const Z: double): integer;`
	`function GetARow(const Grid: TCustomModelGrid; const Y: double): integer;`
	`function GetBoundaryDataSetFormulas(const Index: integer): string;`
	`function GetBoundaryDataSets(const Index: integer): TDataArray;`
	`function GetCanvasCoordinates: TPointArray;`
	`function GetColumn(const Grid: TCustomModelGrid; const X: real): integer;`
	`procedure GetColumns(const Grid: TCustomModelGrid; TempMinX, TempMaxX: real; out FirstCol, LastCol: integer);`
	`function GetCount: integer;`
	`function GetDataSetCapacity: integer;`
	`function GetDataSetCount: integer;`
	`function GetDataSetFormulas(const Index: integer): string;`
	`function GetDataSets(const Index: integer): TDataArray;`
	`function GetEdgePoints(const Index: integer): TEdgePoint;`
	`function GetFillColor: TColor;`
	`procedure GetGridCellOrElementLimits(const Col, Row, Layer: integer; out XMin, XMax, YMin, YMax: double; AModel: TBaseModel);`
	`function GetHigher3DElevations(AModel: TBaseModel): T3DSparseRealArray;`
	`function GetLayer(const Grid: TCustomModelGrid; const Z: real): integer;`
	`procedure GetLayers(const Grid: TCustomModelGrid; TempMinZ, TempMaxZ: real; out FirstLayer, LastLayer: integer);`
	`function GetLineColor: TColor;`
	`function GetLower3DElevations(AModel: TBaseModel): T3DSparseRealArray;`
	`function GetMaxX: real;`
	`function GetMaxY: real;`
	`function GetMinX: real;`
	`function GetMinY: real;`
	`function GetPoints(const Index: integer): TPoint2D;`
	`function GetRow(const Grid: TCustomModelGrid; const Y: real): integer;`
	`procedure GetRows(const Grid: TCustomModelGrid; TempMinY, TempMaxY: real; out FirstRow, LastRow: integer);`
	`function GetSelectedVertexCount: integer;`
	`function GetSelectedVertices(const index: integer): boolean;`
	`function GetSelectLines: TLines;`
	`procedure Grow;`
	`procedure GrowBy(Amount: integer);`
	`function InsideBox(const X, Y: real): boolean;`
	`function MinDistPointLine(const P, A, B: TPoint2D; out Closest: TPoint2D; const Anisotropy: real): real;`
	`function PointToPointDist(const A, B: TPoint2D; const Anisotropy: real): real;`
	`procedure ResetBottomElevationFormula(const Compiler: TRbwParser; const ErrorMessage: string);`
	`procedure ResetElevationFormula(const Compiler: TRbwParser; const ErrorMessage: string);`
	`procedure ResetSelectedVertexCount;`
	`procedure ResetTopElevationFormula(const Compiler: TRbwParser; const ErrorMessage: string);`
	`procedure SetBoundaryDataSetFormulas(const Index: integer; const Value: string);`
	`procedure SetBoundaryDataSets(const Index: integer; const DataSet: TDataArray);`
	`procedure SetCapacity(Value: integer);`
	`procedure SetCellSize(const Value: real);`
	`procedure SetCellSizeUsed(const Value: boolean);`
	`procedure SetColorLine(const Value: boolean);`
	`procedure SetCount(const Value: integer);`
	`procedure SetDataSetCapacity(const Value: integer);`
	`procedure SetDataSetFormulas(const Index: integer; Value: string);`
	`procedure SetDataSets(const Index: integer; const DataSet: TDataArray);`
	`procedure SetDeleted(const Value: boolean);`
	`procedure SetEdgePoints(const Index: integer; const Value: TEdgePoint);`
	`procedure SetElevationCount(const Value: TElevationCount);`
	`procedure SetEvaluatedAt(const Value: TEvaluatedAt);`
	`procedure SetFillColor(const Value: TColor);`
	`procedure SetFillScreenObject(const Value: boolean);`
	`procedure SetLineColor(const Value: TColor);`
	`procedure SetPoints(const Index: integer; const Value: TPoint2D);`
	`procedure SetSelected(const Value: boolean);`
	`procedure SetSelectedVertices(const index: integer; const Value: boolean);`
	`procedure Set_SetValuesByInterpolation(const Value: boolean);`
	`procedure Set_SetValuesOfEnclosedCells(const Value: boolean);`
	`procedure Set_SetValuesOfIntersectedCells(const Value: boolean);`
	`procedure SetVisible(const Value: boolean);`
	`procedure SortPoints(const Input: TEdgePointArray; out SortedPoints: TEdgePointArray; const APoint, PreviousPoint: TEdgePoint; const MaxLength: integer; Const EpsilonX: real = 0; Const EpsilonY: real = 0);`
	`procedure UpdateBox;`
	`procedure UpdateFrontSegments(AModel: TBaseModel; const EvaluatedAt: TEvaluatedAt);`
	`procedure UpdateSideSegments(AModel: TBaseModel; const EvaluatedAt: TEvaluatedAt);`
	`procedure UpdateTopSegments( const EvaluatedAt: TEvaluatedAt; const PointsRotated: boolean; var RotatedPoints: TEdgePointArray; AModel: TBaseModel);`
	`procedure ValidateIndex(const Index: integer); inline;`
	`function ValidCell(const Col, Row, Layer: integer; Model: TBaseModel): boolean;`
	`function Get_SetValuesOfEnclosedCells: boolean;`
	`procedure UpdateHigher3DElevations(AModel: TBaseModel);`
	`procedure UpdateLower3DElevations(AModel: TBaseModel);`
	`procedure AssignIntegerDataWithPhastInterpolation(const DataSet: TDataArray; const LayerIndex, RowIndex, ColIndex: integer; const Comment: string; const InterpValue: TInterpValuesItem);`
	`procedure AssignRealDataWithPhastInterpolation(const DataSet: TDataArray; const LayerIndex, RowIndex, ColIndex: integer; const Comment: string; const InterpValue: TInterpValuesItem);`
	`function GetMixtureDataSetFormula(const Index: integer): string;`
	`procedure SetMixtureDataSetFormula(const Index: integer; const Value: string);`
	`procedure InitializeMixtureExpression(out Compiler: TRbwParser; out MixtureFormula: string; out Expression: TExpression; const DataSet: TDataArray; const OtherData: TObject);`
	`function ThreeDBoundaryFormula: string;`
	`function TwoDBoundaryFormula: string;`
	`function ZoomBox(VD: TViewDirection): TQrbwZoomBox2;`
	`function FrameScreenObject(VD: TViewDirection): TScreenObject;`
	`function IAmACurrentScreenObject: Boolean;`
	`procedure NotifyGuiOfChange(Sender: TObject);`
	`procedure SetModflowChdBoundary(const Value: TChdBoundary);`
	`procedure RefreshGui(Sender: TObject);`
	`procedure SetModflowGhbBoundary(const Value: TGhbBoundary);`
	`procedure SetModflowWellBoundary(const Value: TMfWellBoundary);`
	`procedure SetModflowRivBoundary(const Value: TRivBoundary);`
	`procedure SetModflowDrnBoundary(const Value: TDrnBoundary);`
	`procedure SetModflowDrtBoundary(const Value: TDrtBoundary);`
	`procedure SetModflowRchBoundary(const Value: TRchBoundary);`
	`procedure SetModflowEvtBoundary(const Value: TEvtBoundary);`
	`procedure SetModflowEtsBoundary(const Value: TEtsBoundary);`
	`procedure SetModflowResBoundary(const Value: TResBoundary);`
	`procedure SetModflowLakBoundary(const Value: TLakBoundary);`
	`procedure GetInterpDistance(const InterpValue: TInterpValuesItem; var Distance: Double; const DataSet: TDataArray; const LayerIndex, RowIndex, ColIndex: Integer);`
	`procedure AssignTopDataSetValues( Expression: TExpression; const DataSetFunction: string; Compiler: TRbwParser; UsedVariables: TStringList; OtherData: TObject; const DataSet: TDataArray; AModel: TBaseModel; AssignmentLocation: TAssignmentLocation = alAll);`
	`function GetSegments(AModel: TBaseModel): TCellElementSegmentList;`
	`function GetSectionCount: integer;`
	`function GetSectionEnd(const Index: integer): integer;`
	`function GetSectionStart(const Index: integer): integer;`
	`function GetSectionClosed(const Index: integer): boolean;`
	`function GetSectionLength(const Index: integer): integer;`
	`procedure SetModflowSfrBoundary(const Value: TSfrBoundary);`
	`function GetModflowSfrBoundary: TSfrBoundary;`
	`function GetModflowLakBoundary: TLakBoundary;`
	`function GetModflowResBoundary: TResBoundary;`
	`function GetModflowEtsBoundary: TEtsBoundary;`
	`function GetModflowEvtBoundary: TEvtBoundary;`
	`function GetModflowRchBoundary: TRchBoundary;`
	`function GetModflowDrtBoundary: TDrtBoundary;`
	`function GetModflowDrnBoundary: TDrnBoundary;`
	`function GetModflowRivBoundary: TRivBoundary;`
	`function GetModflowWellBoundary: TMfWellBoundary;`
	`function GetModflowGhbBoundary: TGhbBoundary;`
	`function GetModflowChdBoundary: TChdBoundary;`
	`function GetFluxBoundary: TFluxBoundary;`
	`function GetLeakyBoundary: TLeakyBoundary;`
	`function GetRiverBoundary: TRiverBoundary;`
	`function GetSpecifiedHeadBoundary: TSpecifiedHeadBoundary;`
	`function GetSpecifiedSolutionBoundary: TSpecifiedSolutionBoundary;`
	`function GetWellBoundary: TWellBoundary;`
	`function GetModflowBoundaries: TModflowBoundaries;`
	`procedure SubPolygonXLimits(Subject: TObject; out LowerBoundary, UpperBoundary: double);`
	`procedure SubPolygonYLimits(Subject: TObject; out LowerBoundary, UpperBoundary: double);`
	`function GetModflowUzfBoundary: TUzfBoundary;`
	`procedure SetModflowUzfBoundary(const Value: TUzfBoundary);`
	`procedure Draw1ElevModflow(const Direction: TViewDirection; const Bitmap32: TBitmap32; const DrawAsSelected: Boolean; AModel: TBaseModel);`
	`function GetModflowHeadObservations: THobBoundary;`
	`procedure SetModflowHeadObservations(const Value: THobBoundary);`
	`procedure SetSectionStarts(const Value: TValueArrayStorage);`
	`function GetSectionStarts: TValueArrayStorage;`
	`procedure CreateSectionStarts;`
	`procedure SetImportedSectionElevations(const Value: TValueArrayStorage);`
	`procedure SetImportedHigherSectionElevations( const Value: TValueArrayStorage);`
	`procedure SetImportedLowerSectionElevations( const Value: TValueArrayStorage);`
	`function GetImportedHigherSectionElevations: TValueArrayStorage;`
	`function GetImportedLowerSectionElevations: TValueArrayStorage;`
	`function GetImportedSectionElevations: TValueArrayStorage;`
	`procedure Assign3DElevationsFromTop(const Compiler: TRbwParser; const SparseArray: T3DSparseRealArray; AModel: TBaseModel);`
	`procedure Draw1ElevPhast(const Direction: TViewDirection; const Bitmap32: TBitmap32; const DrawAsSelected: Boolean);`
	`procedure Draw1ElevSutra(const Direction: TViewDirection; const Bitmap32: TBitmap32; const DrawAsSelected: Boolean);`
	`procedure SetImportedValues(const Value: TValueCollection);`
	`procedure SetModflowHfbBoundary(const Value: THfbBoundary);`
	`function GetModflowHfbBoundary: THfbBoundary;`
	`function GetElevSubscription: TObserver;`
	`function GetTopElevSubscription: TObserver;`
	`function GetBottomElevSubscription: TObserver;`
	`procedure SetIFACE(const Value: TIface);`
	`procedure SetModpathParticles(const Value: TParticleStorage);`
	`function StoreImportedHigherSectionElevations: Boolean;`
	`function StoreImportedLowerSectionElevations: Boolean;`
	`function StoreImportedSectionElevations: Boolean;`
	`function StoreImportedValues: Boolean;`
	`function GetModflowStreamGage: TStreamGage;`
	`procedure SetModflowStreamGage(const Value: TStreamGage);`
	`function StoreModflowStreamGage: Boolean;`
	`procedure RemoveElevationSubscription(Sender: TObject; const AName: string);`
	`procedure RemoveHigherElevationSubscription(Sender: TObject; const AName: string);`
	`procedure RemoveLowerElevationSubscription(Sender: TObject; const AName: string);`
	`procedure RestoreElevationSubscription(Sender: TObject; const AName: string);`
	`procedure RestoreHigherElevationSubscription(Sender: TObject; const AName: string);`
	`procedure RestoreLowerElevationSubscription(Sender: TObject; const AName: string);`
	`procedure RemoveDataArraySubscription(Sender: TObject; const AName: string);`
	`procedure RestoreDataArraySubscription(Sender: TObject; const AName: string);`
	`function GetElevationFormula: string;`
	`function GetHigherElevationFormula: string;`
	`function GetLowerElevationFormula: string;`
	`procedure CreateOrRetrieveBoundaryFormulaObject(const Index: Integer; ADataSet: TDataArray; var FormulaObject: TFormulaObject);`
	`procedure RestoreBoundaryDataArraySubscription(Sender: TObject; const AName: string);`
	`procedure RemoveBoundaryDataArraySubscription(Sender: TObject; const AName: string);`
	`function GetModflowMnw2Boundary: TMnw2Boundary;`
	`procedure SetModflowMnw2Boundary(const Value: TMnw2Boundary);`
	`procedure CacheElevationArrays;`
	`procedure SetComment(const Value: string);`
	`procedure SetPointPositionValues(const Value: TPointPositionValues);`
	`function GetPointPositionValues: TPointPositionValues;`
	`function ShouldStorePointPositionValues: Boolean;`
	`function GetModflowHydmodData: THydmodData;`
	`procedure SetModflowHydmodData(const Value: THydmodData);`
	`function StoreModflowHydmodData: Boolean;`
	`procedure SetChildModelName(const Value: string);`
	`function GetChildModel: TBaseModel;`
	`procedure SetChildModel(const Value: TBaseModel);`
	`function GetChildModelName: string;`
	`procedure SetUsedModels(const Value: TUsedWithModelCollection);`
	`procedure RemoveLakeID_Connection;`
	`procedure AddTopSubSegments(var ASegment: TCellElementSegment; AModel: TBaseModel);`
	`procedure SetPositionLocked(const Value: boolean);`
	`function GetMt3dmsConcBoundary: TMt3dmsConcBoundary;`
	`procedure SetMt3dmsConcBoundary(const Value: TMt3dmsConcBoundary);`
	`function GetMt3dmsTransObservations: TMt3dmsTransObservations;`
	`procedure SetMt3dmsTransObservations(const Value: TMt3dmsTransObservations);`
	`function SaveSutraAngle: Boolean;`
	`procedure SetStoredSutraAngle(const Value: TRealStorage);`
	`procedure InvalidateModelEvent(Sender: TObject);`
	`function GetSutraAngle: Double;`
	`procedure SetSutraAngle(const Value: Double);`
	`procedure SetSutraBoundaries(const Value: TSutraBoundaries);`
	`function SaveSutraBoundaries: Boolean;`
	`procedure ResetFormula(const Compiler: TRbwParser; const ErrorMessage, Source: string; var Formula: string; DataType: TRbwDataType);`
	`procedure SetCanInvalidateModel(const Value: boolean);`
	`procedure EliminateHoleCells(CellList: TCellAssignmentList);`
	`procedure SetDuplicatesAllowed(const Value: Boolean);`
	`procedure EliminateDuplicates(CellList: TCellAssignmentList; AModel: TBaseModel);`
	`procedure DeleteExtraSections;`
	`procedure CreatePhastFluxBoundary;`
	`procedure CreatePhastLeakyBoundary;`
	`procedure CreatePhastRiverBoundary;`
	`procedure CreatePhastSpecifiedHeadBoundary;`
	`procedure CreatePhastSpecifiedSolutionBoundary;`
	`procedure CreatePhastWellBoundary;`
	`procedure CreateElevationSubscription;`
	`procedure CreateTopElevationSubscription;`
	`procedure CreateBottomElevationSubscription;`
	`procedure CreateBoundaryDataSetFormulas;`
	`procedure CreateBoundaryDataSetSubscriptions;`
	`procedure CreateBoundaryDataSets;`
	`procedure Draw2ElevModflow(const Direction: TViewDirection; const Bitmap32: TBitmap32; AModel: TBaseModel);`
	`procedure Draw2ElevPhast(const Direction: TViewDirection; const Bitmap32: TBitmap32);`
	`procedure Draw2ElevSutra(const Direction: TViewDirection; const Bitmap32: TBitmap32);`
	`procedure SetValueStorageField(const Value: TValueArrayStorage; var StoredValues: TValueArrayStorage);`
	`procedure CreateValueArrayStorage(var StoredValues: TValueArrayStorage);`
	`procedure DrawModflowSideSegmentRightOutsideAbove( SidePoints: T2DRealPointArray; LocalDelegate: TModflowDelegate; ModflowGrid: TModflowGrid; LayerIndex: Integer; ColIndex: Integer; RowIndex: Integer; SegmentList: TList);`
	`procedure DrawModflowSideSegmentAboveOutsideRight( RowIndex: Integer; ColIndex: Integer; LayerIndex: Integer; ModflowGrid: TModflowGrid; LocalDelegate: TModflowDelegate; SidePoints: T2DRealPointArray; SegmentList: TList);`
	`procedure DrawModflowSideSegmentAboveOutsideLeft( SidePoints: T2DRealPointArray; RowIndex: Integer; ColIndex: Integer; LayerIndex: Integer; LocalDelegate: TModflowDelegate; SegmentList: TList);`
	`procedure DrawModflowSideSegmentLeftOutsideAbove( RowIndex: Integer; ColIndex: Integer; LayerIndex: Integer; LocalDelegate: TModflowDelegate; SidePoints: T2DRealPointArray; SegmentList: TList);`
	`procedure DrawModflowSideSegmentAboveRight(SidePoints: T2DRealPointArray; RowIndex: Integer; ColIndex: Integer; LayerIndex: Integer; ModflowGrid: TModflowGrid; LocalDelegate: TModflowDelegate; SegmentList: TList);`
	`procedure DrawModflowSideSegmentAboveLeft( RowIndex: Integer; ColIndex: Integer; LayerIndex: Integer; LocalDelegate: TModflowDelegate; SidePoints: T2DRealPointArray; SegmentList: TList);`
	`procedure DrawModflowSideSegmentBottomLeft(SidePoints: T2DRealPointArray; RowIndex: Integer; ColIndex: Integer; LayerIndex: Integer; ModflowGrid: TModflowGrid; LocalDelegate: TModflowDelegate; SegmentList: TList);`
	`procedure DrawModflowSideSegmentTopLeft( RowIndex: Integer; ColIndex: Integer; LayerIndex: Integer; LocalDelegate: TModflowDelegate; SidePoints: T2DRealPointArray; SegmentList: TList);`
	`procedure DrawModflowSideSegmentInsideTopRight(LayerIndex: Integer; ModflowGrid: TModflowGrid; LocalDelegate: TModflowDelegate; SidePoints: T2DRealPointArray; RowIndex: Integer; ColIndex: Integer; SegmentList: TList);`
	`procedure DrawModflowSideSegmentInsideBottomRight( SidePoints: T2DRealPointArray; RowIndex: Integer; ColIndex: Integer; LayerIndex: Integer; ModflowGrid: TModflowGrid; LocalDelegate: TModflowDelegate; SegmentList: TList);`
	`procedure DrawModflowSideSegmentInsideBottomLeft( SidePoints: T2DRealPointArray; RowIndex: Integer; ColIndex: Integer; LayerIndex: Integer; ModflowGrid: TModflowGrid; LocalDelegate: TModflowDelegate; SegmentList: TList);`
	`procedure DrawModflowSideSegmentInsideTopLeft(ModflowGrid: TModflowGrid; LocalDelegate: TModflowDelegate; var SidePoints: T2DRealPointArray; RowIndex: Integer; ColIndex: Integer; LayerIndex: Integer; SegmentList: TList);`
	`procedure DrawModflowFrontSegmentRightOutsideAbove( FrontPoints: T2DRealPointArray; RowIndex: Integer; ColIndex: Integer; LayerIndex: Integer; ModflowGrid: TModflowGrid; LocalDelegate: TModflowDelegate; SegmentList: TList);`
	`procedure DrawModflowFrontSegmentAboveOutsideRight( LocalDelegate: TModflowDelegate; FrontPoints: T2DRealPointArray; RowIndex: Integer; ColIndex: Integer; LayerIndex: Integer; ModflowGrid: TModflowGrid; SegmentList: TList);`
	`procedure DrawModflowFrontSegmentAboveOutsideLeft( FrontPoints: T2DRealPointArray; RowIndex: Integer; ColIndex: Integer; LayerIndex: Integer; LocalDelegate: TModflowDelegate; SegmentList: TList);`
	`procedure DrawModflowFrontSegmentLeftOutsideAbove( FrontPoints: T2DRealPointArray; RowIndex: Integer; ColIndex: Integer; LayerIndex: Integer; LocalDelegate: TModflowDelegate; SegmentList: TList);`
	`procedure DrawModflowFrontSegmentAboveRight( RowIndex: Integer; ColIndex: Integer; LayerIndex: Integer; ModflowGrid: TModflowGrid; LocalDelegate: TModflowDelegate; FrontPoints: T2DRealPointArray; SegmentList: TList);`
	`procedure DrawModflowFrontSegmentAboveLeft( FrontPoints: T2DRealPointArray; RowIndex: Integer; ColIndex: Integer; LayerIndex: Integer; LocalDelegate: TModflowDelegate; SegmentList: TList);`
	`procedure DrawModflowFrontSegmentBottomLeft(ModflowGrid: TModflowGrid; LocalDelegate: TModflowDelegate; FrontPoints: T2DRealPointArray; RowIndex: Integer; ColIndex: Integer; LayerIndex: Integer; SegmentList: TList);`
	`procedure DrawModflowFrontSegmentTopLeft( RowIndex: Integer; ColIndex: Integer; LayerIndex: Integer; LocalDelegate: TModflowDelegate; FrontPoints: T2DRealPointArray; SegmentList: TList);`
	`procedure DrawModflowFrontSegmentInsideTopRight( FrontPoints: T2DRealPointArray; RowIndex: Integer; ColIndex: Integer; LayerIndex: Integer; ModflowGrid: TModflowGrid; LocalDelegate: TModflowDelegate; SegmentList: TList);`
	`procedure DrawModflowFrontSegmentInsideBottomRight( RowIndex: Integer; ColIndex: Integer; LayerIndex: Integer; ModflowGrid: TModflowGrid; LocalDelegate: TModflowDelegate; FrontPoints: T2DRealPointArray; SegmentList: TList);`
	`procedure DrawModflowFrontSegmentInsideBottomLeft( FrontPoints: T2DRealPointArray; RowIndex: Integer; ColIndex: Integer; LayerIndex: Integer; ModflowGrid: TModflowGrid; LocalDelegate: TModflowDelegate; SegmentList: TList);`
	`procedure DrawModflowFrontSegmentInsideTopLeft( var FrontPoints: T2DRealPointArray; RowIndex: Integer; ColIndex: Integer; LayerIndex: Integer; ModflowGrid: TModflowGrid; LocalDelegate: TModflowDelegate; SegmentList: TList);`
	`procedure DrawModflowTopSegmentRightOutsideAbove( RowIndex: Integer; ColIndex: Integer; SegmentList: TList; LayerIndex: Integer; ModflowGrid: TModflowGrid; LocalDelegate: TModflowDelegate);`
	`procedure DrawModflowTopSegmentAboveOutsideRight( RowIndex: Integer; ColIndex: Integer; SegmentList: TList; LayerIndex: Integer; ModflowGrid: TModflowGrid; LocalDelegate: TModflowDelegate);`
	`procedure DrawModflowTopSegmentAboveOutsideLeft( RowIndex: Integer; ColIndex: Integer; SegmentList: TList; LayerIndex: Integer; ModflowGrid: TModflowGrid; LocalDelegate: TModflowDelegate);`
	`procedure DrawModflowTopSegmentLeftOutsideAbove( RowIndex: Integer; ColIndex: Integer; SegmentList: TList; LayerIndex: Integer; ModflowGrid: TModflowGrid; LocalDelegate: TModflowDelegate);`
	`procedure DrawModflowTopSegmentAboveRight( RowIndex: Integer; ColIndex: Integer; SegmentList: TList; LayerIndex: Integer; ModflowGrid: TModflowGrid; LocalDelegate: TModflowDelegate);`
	`procedure DrawModflowTopSegmentAboveLeft( RowIndex: Integer; ColIndex: Integer; SegmentList: TList; LayerIndex: Integer; ModflowGrid: TModflowGrid; LocalDelegate: TModflowDelegate);`
	`procedure DrawModflowTopSegmentBottomLeft( RowIndex: Integer; ColIndex: Integer; SegmentList: TList; LayerIndex: Integer; ModflowGrid: TModflowGrid; LocalDelegate: TModflowDelegate);`
	`procedure DrawModflowTopSegmentTopLeft( RowIndex: Integer; ColIndex: Integer; SegmentList: TList; LayerIndex: Integer; ModflowGrid: TModflowGrid; LocalDelegate: TModflowDelegate);`
	`procedure DrawModflowTopSegmentInsideTopRight(ModflowGrid: TModflowGrid; LocalDelegate: TModflowDelegate; RowIndex: Integer; ColIndex: Integer; SegmentList: TList; LayerIndex: Integer);`
	`procedure DrawModflowTopSegmentInsideBottomRight(RowIndex: Integer; ColIndex: Integer; SegmentList: TList; LayerIndex: Integer; ModflowGrid: TModflowGrid; LocalDelegate: TModflowDelegate);`
	`procedure DrawModflowTopSegmentInsideBottomLeft(SegmentList: TList; LayerIndex: Integer; ModflowGrid: TModflowGrid; LocalDelegate: TModflowDelegate; RowIndex: Integer; ColIndex: Integer);`
	`procedure DrawModflowTopSegmentInsideTopLeft(RowIndex: Integer; ColIndex: Integer; SegmentList: TList; LayerIndex: Integer; ModflowGrid: TModflowGrid; LocalDelegate: TModflowDelegate);`
	`procedure DrawSegmentList(const Direction: TViewDirection; const Bitmap32: TBitmap32; SegmentList: TList);`
	`procedure UpdateHigherElevationSubscriptions(var NewFormula: string; OldFormula: string);`
	`procedure UpdateLowerElevationSubscriptions(var NewFormula: string; OldFormula: string);`
	`procedure UpdateElevationSubscriptions(var NewFormula: string; OldFormula: string);`
	`procedure CreateGpcPolygon;`
	`procedure EvaluateDataArrayExpression(const DataSet: TDataArray; var Expression: TExpression; const Compiler: TRbwParser);`
	`procedure DrawPointMarker(LineColor32: TColor32; FillColor32: TColor32; const Bitmap32: TBitmap32; IntPoint: TPoint; LineWidth: Single; PointWithValue: boolean);`
	`procedure SetElevationFormulaParser;`
	`function GetElevationCompiler: TRbwParser;`
	`procedure SetHigherElevationFormulaParser;`
	`procedure SetLowerElevationFormulaParser;`
	`procedure CreateElevationFormulaObject;`
	`procedure CreateHigherElevationFormulaObject;`
	`procedure CreateLowerElevationFormulaObject;`
	`procedure CreateFormulaObjects;`
	`procedure SetFormulaParsers;`
	`procedure CreateOrRetrieveFormulaObject(const Index: Integer; ADataSet: TDataArray; var FormulaObject: TFormulaObject);`
	`procedure RemoveSubscriptionFromList(const AName: string; Sender: TObject; List: TList; SubscriptionList: TObjectList);`
	`procedure RestoreSubscriptionToList(List: TList; const AName: string; Sender: TObject; Subscriptions: TObjectList);`
	`function GetTestDataArray(const DataSet: TDataArray): TDataArray;`
	`procedure AddTopGridSegments(AModel: TBaseModel; const EvaluatedAt: TEvaluatedAt; LowerElevDataSets: TList; HigherElevExpression: TExpression; LayerLimit: Integer; HigherElevDataSets: TList; LowerElevVariables: TList; const PointsRotated: Boolean; HigherElevVariables: TList; var RotatedPoints: TEdgePointArray; LowerElevExpression: TExpression);`
	`procedure AddTopMeshSegments(AModel: TBaseModel; const EvaluatedAt: TEvaluatedAt; LowerElevDataSets: TList; HigherElevExpression: TExpression; LayerLimit: Integer; HigherElevDataSets: TList; LowerElevVariables: TList; HigherElevVariables: TList; LowerElevExpression: TExpression);`
	`procedure UpdateModel(Model: TBaseModel);`
	`procedure InvalidateModel;`
	`function PhastBoundaryType: TPhastBoundaryTypes;`
	`procedure AssignCellValue(const UsedVariables: TStringList; const DataSet: TDataArray; LayerIndex, RowIndex, ColIndex: integer; const Compiler: TRbwParser; const Annotation: string; var Expression: TExpression; const OtherData: TObject);`
	`procedure AssignValuesToFrontDataSet( const DataSet: TDataArray; OtherData: TObject; AModel: TBaseModel; UseLgrEdgeCells: TLgrCellTreatment);`
	`procedure AssignValuesToSideDataSet( const DataSet: TDataArray; OtherData: TObject; AModel: TBaseModel; UseLgrEdgeCells: TLgrCellTreatment);`
	`procedure AssignValuesToTopDataSet( const DataSet: TDataArray; OtherData: TObject; AModel: TBaseModel);`
	`function BoundaryType: integer;`
	`function CanAddDataSet(const DataSet: TDataArray): boolean;`
	`function DataSetUsed(const DataSet: TDataArray; var OtherData: TObject; AModel: TBaseModel): boolean;`
	`function EncloseAnnotation(const DataSetFormula: string; const OtherData: TObject): string;`
	`function GetCompiler(const Orientation: TDataSetOrientation): TRbwParser; overload;`
	`function GetCompiler(const Orientation: TDataSetOrientation; const EvaluatedAt: TEvaluatedAt): TRbwParser; overload;`
	`function Get1DCompiler: TRbwParser;`
	`procedure GetRotatedPoints(out RotatedPoints: TRealPointArray);`
	`procedure InitializeExpression(out Compiler: TRbwParser; out DataSetFormula: string; out Expression: TExpression; const DataSet: TDataArray; const OtherData: TObject);`
	`procedure InitializeVariables(const UsedVariables: TStringList; const DataSet: TDataArray; const Expression: TExpression; const Compiler: TRbwParser); virtual;`
	`function IntersectAnnotation(const DataSetFormula: string; const OtherData: TObject): string;`
	`function Intersection(const Point1, Point2: TPoint2D; StartIndex: Integer; out IntersectPoint: TPoint2D): TIntersectResult;`
	`function IsBoundaryTimeDataSetUsed(const DataSet: TDataArray; out OtherData: TObject): boolean;`
	`procedure Loaded; override;`
	`procedure OtherIndex(const LayerOrRow, RowOrColumn: integer; out First, Last: integer; const DataSet: TDataArray);`
	`procedure RotatePoints(AModel: TBaseModel; out RotatedPoints: TEdgePointArray; out TempMinX, TempMinY, TempMaxX, TempMaxY: double);`
	`procedure SetElevationFormula(NewFormula: string); virtual;`
	`procedure SetGeometryUpToDate; virtual;`
	`procedure SetHigherElevationFormula(NewFormula: string); virtual;`
	`procedure SetLowerElevationFormula(NewFormula: string); virtual;`
	`procedure SetName(const Value: TComponentName); override;`
	`procedure SetUpToDate(const Value: boolean); override;`
	`procedure SetViewDirection(const Value: TViewDirection); virtual;`
	`procedure UpdateVariables(const UsedVariables: TStringList; const DataSet: TDataArray; Layer, Row, Column: integer; const Compiler: TRbwParser);`
	`procedure UpdateMixtureExpression;`
	`procedure UpdateFormulaExpression;`
	`function CoordinateCaption: string;`
	`function HigherCoordinateCaption: string;`
	`function LowerCoordinateCaption: string;`
	`function StoreModflowHfbBoundary: Boolean;`
	`function StoreModflowMnw2Boundary: Boolean;`
	`function StoreMt3dmsConcBoundary: Boolean;`
	`function StoreMt3dmsTransObservations: Boolean;`
	`function StoreModflowUzfBoundary: Boolean;`
	`function StoreModflowHeadObservations: Boolean;`
	`function StoreModflowSfrBoundary: Boolean;`
	`function StoreModflowRchBoundary: Boolean;`
	`function StoreModflowEvtBoundary: Boolean;`
	`function StoreModflowEtsBoundary: Boolean;`
	`function StoreModflowResBoundary: Boolean;`
	`function StoreModflowLakBoundary: Boolean;`
	`function StoreModflowChdBoundary: Boolean;`
	`function StoreModflowDrnBoundary: Boolean;`
	`function StoreModflowDrtBoundary: Boolean;`
	`function StoreModflowGhbBoundary: Boolean;`
	`function StoreModflowRivBoundary: Boolean;`
	`function StoreModflowWellBoundary: Boolean;`
	`function StoreWell: boolean;`
	`function StoreFlux: boolean;`
	`function StoreRiver: boolean;`
	`function StoreSpecifiedHead: boolean;`
	`function StoreLeaky: boolean;`
	`function IsHigher3DElevationAssigned(Col, Row, Layer: integer; Model: TBaseModel): boolean;`
	`function IsLower3DElevationAssigned(Col, Row, Layer: integer; Model: TBaseModel): boolean;`
	`procedure GetCellsToAssign(const Grid: TCustomModelGrid; const DataSetFunction: string; OtherData: TObject; const DataSet: TDataArray; CellList: TCellAssignmentList; AssignmentLocation: TAssignmentLocation; AModel: TBaseModel); overload;`
	`procedure GetCellsToAssign(const Mesh: TSutraMesh3D; const DataSetFunction: string; OtherData: TObject; const DataSet: TDataArray; CellList: TCellAssignmentList; AssignmentLocation: TAssignmentLocation; AModel: TBaseModel); overload;`
	`procedure UpdateUzfGage1and2;`
	`procedure UpdateUzfGage3;`
	`procedure CacheSegments;`
	`procedure BeginUpdate;`
	`procedure EndUpdate;`
	`procedure GetModpathCellList(CellList: TCellAssignmentList; AModel: TBaseModel);`
	`function Delegate: TCustomScreenObjectDelegate;`
	`procedure AssignNumericValueToDataSet(const Grid: TCustomModelGrid; const DataSet: TDataArray; Value: double; AModel: TBaseModel);`
	`procedure CreateChdBoundary;`
	`procedure CreateDrnBoundary;`
	`procedure CreateDrtBoundary;`
	`procedure CreateEtsBoundary;`
	`procedure CreateEvtBoundary;`
	`procedure CreateGhbBoundary;`
	`procedure CreateLakBoundary;`
	`procedure CreateRchBoundary;`
	`procedure CreateResBoundary;`
	`procedure CreateRivBoundary;`
	`procedure CreateSfrBoundary;`
	`procedure CreateWelBoundary;`
	`procedure CreateUzfBoundary;`
	`procedure CreateHfbBoundary;`
	`procedure CreateHeadObservations;`
	`procedure CreateGagBoundary;`
	`procedure CreateMnw2Boundary;`
	`procedure CreateMt3dmsConcBoundary;`
	`procedure CreateMt3dmsTransObservations;`
	`function ModflowDataSetUsed(DataArray: TDataArray; AModel: TBaseModel): boolean;`
	`procedure InvalidateSegments;`
	`procedure MovePointsWhenCreatingScreenObjectByDeletingEdge( DeletedEdge: integer; ExistingObject: TScreenObject);`
	`function AllSectionsClosed: boolean;`
	`Procedure DeleteEdge(EdgeToDelete: integer);`
	`procedure ResetBoundaryMixtureSubscriptions;`
	`procedure ResetMixtureSubscriptions;`
	`procedure MovePoints(var Dest: TRealPointArray);`
	`procedure MoveToPoints(const SourcePoints: TRealPointArray);`
	`procedure MoveSelectedPoints(var Dest: TBooleanDynArray);`
	`procedure MoveToSelectedPoints(var Source: TBooleanDynArray);`
	`function AddBoundaryDataSet(const DataSet: TDataArray): integer;`
	`function AddDataSet(const DataSet: TDataArray): Integer; virtual;`
	`procedure AddPoint(const APoint: TPoint2D; NewPart: boolean);`
	`procedure Assign(Source: TPersistent); override;`
	`procedure AssignValuesToModflowDataSet(const Grid: TCustomModelGrid; const DataSet: TDataArray; const Formula: string; AModel: TBaseModel; UseLgrEdgeCells: TLgrCellTreatment; AssignmentLocation: TAssignmentLocation = alAll);`
	`procedure AssignValuesToSutraDataSet(const Mesh: TSutraMesh3D; const DataSet: TDataArray; const Formula: string; AModel: TBaseModel);`
	`procedure AssignValuesToDataSet(const DataSet: TDataArray; AModel: TBaseModel; UseLgrEdgeCells: TLgrCellTreatment); virtual;`
	`function BoundaryDataSetCount: integer;`
	`function BoundaryTypeUsed: TPhastBoundaryTypes;`
	`procedure Changed(Sender: TObject);`
	`procedure ClearBoundaryDataSets; virtual;`
	`procedure ClearDataSets; virtual;`
	`procedure ClearPoints;`
	`procedure ClearSelectedVertices;`
	`function Closed: boolean;`
	`procedure CopyPoints(var Destination: TRealPointArray; const Position, Start: integer; var Count: integer);`
	`constructor Create(AnOwner: TComponent); override;`
	`constructor CreateWithViewDirection(const Model: TBaseModel; const AViewDirection: TViewDirection; out UndoCreateScreenObject: TCustomUndo; const UndoAble: boolean = True); virtual;`
	`procedure DeleteBoundaryDataSet(const Index: Integer);`
	`procedure DeleteDataSet(const Index: Integer); virtual;`
	`procedure DeletePoint(const Index: Integer);`
	`destructor Destroy; override;`
	`function DistanceToScreenObject(const Location: TPoint2D; out ClosestLocation: TPoint2D; const Anisotropy: real; out SectionIndex: integer): real;`
	`procedure Draw(Const Bitmap32: TBitmap32; const Direction: TViewDirection; const DrawAsSelected: Boolean = False); virtual;`
	`procedure Draw3D;`
	`procedure DrawSelected( const BitMap32: TBitmap32; const Direction: TViewDirection);`
	`function GetBoundaryCollection(const TimeList: TPhastTimeList): TCustomPhastBoundaryCollection;`
	`function IndexOfBoundaryDataSet(const DataSet: TDataArray): integer;`
	`function IndexOfDataSet(const DataSet: TDataArray): integer;`
	`function IndexOfPoint(const APoint: TPoint2D): integer;`
	`procedure InsertBoundaryDataSet(const Index: Integer; const DataSet: TDataArray); virtual;`
	`procedure InsertPoint(const Index: Integer; const APoint: TPoint2D);`
	`procedure Invalidate;`
	`procedure InvalidateCoordinates;`
	`function IsPointInside(const X, Y: real; out SectionIndex: integer): boolean; overload;`
	`function IsPointInside(const APoint: TPoint2D; out SectionIndex: integer): boolean; overload;`
	`function Methods: string;`
	`function ObjectIntersectArea(const Col, Row, Layer: integer; AModel: TBaseModel): real;`
	`function ObjectIntersectLength(const Col, Row, Layer: integer; AModel: TBaseModel): real;`
	`function ObjectSectionIntersectLength(const Col, Row, Layer, Section: integer; AModel: TBaseModel): real;`
	`function RemoveDataSet(const DataSet: TDataArray): Integer; virtual;`
	`procedure ResetBoundaryDataSetSubscriptions;`
	`procedure ResetDataSetSubscriptions;`
	`procedure ResetSubscriptions;`
	`function ScreenObjectArea: real;`
	`function ScreenObjectLength: real;`
	`function Select(const XScreenCoordinate, YScreenCoordinate: integer): boolean;`
	`function SelectEdge(const X, Y: integer): integer;`
	`procedure UpdateScreenObjectWithName(const AName: string; const AViewDirection: TViewDirection; out UndoCreateScreenObject: TCustomUndo; const UndoAble: boolean = True); reintroduce; virtual;`
	`class function ValidName(const OriginalName: string): string;`
	`function IsAnyPointCloser(const Location: TPoint2D; var Distance: real; out ClosestLocation: TPoint2D; var SectionIndex: integer; const Anisotropy: real): boolean;`
	`function GetMfBoundary(ParamType: TParameterType): TModflowParamBoundary;`
	`function SingleCellLocation(AModel: TBaseModel): TCellLocation;`
	`procedure UpdateModflowTimes(ModflowTimes: TRealList; StartTestTime, EndTestTime: double; var StartRangeExtended, EndRangeExtended: boolean);`
	`procedure UpdateImportedValues(DataArray: TDataArray);`
	`procedure ReverseDirection;`
	`function RestoreCellsFromCache(CellList: TCellAssignmentList; EvalAt: TEvaluatedAt; Orientation: TDataSetOrientation; AssignmentLocation: TAssignmentLocation; const EncloseAnnotation, IntersectAnnotation: string; AModel: TBaseModel): boolean;`
	`procedure UpdateCellCache(CellList: TCellAssignmentList; EvalAt: TEvaluatedAt; Orientation: TDataSetOrientation; AssignmentLocation: TAssignmentLocation; AModel: TBaseModel);`
	`procedure CreateHydmodData;`
	`procedure CacheValueArrays;`
	`procedure RemoveModelLink(AModel: TBaseModel);`
	`procedure InvalidateCachedCells;`

Properties

	`property SubPolygonCount: integer read GetSubPolygonCount;`
	`property SubPolygons[Index:integer]: TSubPolygon read GetSubPolygon;`
	`property EdgePoints[constIndex:integer]: TEdgePoint read GetEdgePoints write SetEdgePoints;`
	`property MixtureDataSetFormula[constIndex:integer]: string read GetMixtureDataSetFormula write SetMixtureDataSetFormula;`
	`property ModflowBoundaries: TModflowBoundaries read GetModflowBoundaries;`
	`property Higher3DElevations[AModel:TBaseModel]: T3DSparseRealArray read GetHigher3DElevations;`
	`property Lower3DElevations[AModel:TBaseModel]: T3DSparseRealArray read GetLower3DElevations;`
	`property FullObjectIntersectLength: Boolean read FFullObjectIntersectLength write FFullObjectIntersectLength;`
	`property ElevSubscription: TObserver read GetElevSubscription;`
	`property TopElevSubscription: TObserver read GetTopElevSubscription;`
	`property BottomElevSubscription: TObserver read GetBottomElevSubscription;`
	`property SectionCount: integer read GetSectionCount;`
	`property SectionStart[constIndex:integer]: integer read GetSectionStart;`
	`property SectionEnd[constIndex:integer]: integer read GetSectionEnd;`
	`property SectionClosed[constIndex:integer]: boolean read GetSectionClosed;`
	`property SectionLength[constIndex:integer]: integer read GetSectionLength;`
	`property NeedToResetSelectedVertexCount: boolean read FNeedToResetSelectedVertexCount write FNeedToResetSelectedVertexCount;`
	`property BottomElevation: real read FBottomElevation;`
	`property TopElevation: real read FTopElevation;`
	`property BoundaryDataSets[constIndex:integer]: TDataArray read GetBoundaryDataSets write SetBoundaryDataSets;`
	`property BoundaryDataSetFormulas[constIndex:integer]: string read GetBoundaryDataSetFormulas write SetBoundaryDataSetFormulas;`
	`property CanInvalidateModel: boolean read FCanInvalidateModel write SetCanInvalidateModel;`
	`property CanvasCoordinates: TPointArray read GetCanvasCoordinates;`
	`property Capacity: integer read FCapacity write SetCapacity;`
	`property Count: integer read GetCount write SetCount;`
	`property DataSetCapacity: integer read GetDataSetCapacity write SetDataSetCapacity;`
	`property DataSetCount: integer read GetDataSetCount;`
	`property DataSets[constIndex:integer]: TDataArray read GetDataSets write SetDataSets;`
	`property DataSetFormulas[constIndex:integer]: string read GetDataSetFormulas write SetDataSetFormulas;`
	`property Deleted: boolean read FDeleted write SetDeleted;`
	`property MaxX: real read GetMaxX;`
	`property MaxY: real read GetMaxY;`
	`property MinX: real read GetMinX;`
	`property MinY: real read GetMinY;`
	`property Model: TBaseModel read FModel;`
	`property Points[constIndex:integer]: TPoint2D read GetPoints write SetPoints;`
	`property Segments[AModel:TBaseModel]: TCellElementSegmentList read GetSegments;`
	`property SelectedVertexCount: integer read GetSelectedVertexCount;`
	`property SelectedVertices[constIndex:integer]: boolean read GetSelectedVertices write SetSelectedVertices;`
	`property SelectLines: TLines read GetSelectLines;`
	`property CurrentValues: TValueArrayStorage read FCurrentValues;`
	`property ChildModel: TBaseModel read GetChildModel write SetChildModel;`
	`property SutraAngle: Double read GetSutraAngle write SetSutraAngle;`
	`property ChildModelDiscretization: integer read FChildModelDiscretization write FChildModelDiscretization stored False;`
	`property CellSize: real read FCellSize write SetCellSize;`
	`property CellSizeUsed: boolean read FCellSizeUsed write SetCellSizeUsed;`
	`property ColorLine: boolean read FColorLine write SetColorLine;`
	`property ElevationCount: TElevationCount read FElevationCount write SetElevationCount;`
	`property ElevationFormula: string read GetElevationFormula write SetElevationFormula;`
	`property ElevationFunction: string read GetElevationFormula write SetElevationFormula stored False;`
	`property EvaluatedAt: TEvaluatedAt read FEvaluatedAt write SetEvaluatedAt;`
	`property FillColor: TColor read GetFillColor write SetFillColor;`
	`property FillScreenObject: boolean read FFillScreenObject write SetFillScreenObject;`
	`property HigherElevationFormula: string read GetHigherElevationFormula write SetHigherElevationFormula;`
	`property HigherElevationFunction: string read GetHigherElevationFormula write SetHigherElevationFormula stored False;`
	`property LineColor: TColor read GetLineColor write SetLineColor;`
	`property LowerElevationFormula: string read GetLowerElevationFormula write SetLowerElevationFormula;`
	`property LowerElevationFunction: string read GetLowerElevationFormula write SetLowerElevationFormula stored False;`
	`property Selected: boolean read FSelected write SetSelected;`
	`property SetValuesByInterpolation: boolean read FSetValuesByInterpolation write Set_SetValuesByInterpolation;`
	`property SetValuesOfEnclosedCells: boolean read Get_SetValuesOfEnclosedCells write Set_SetValuesOfEnclosedCells;`
	`property SetValuesOfIntersectedCells: boolean read FSetValuesOfIntersectedCells write Set_SetValuesOfIntersectedCells;`
	`property ViewDirection: TViewDirection read FViewDirection write SetViewDirection;`
	`property Visible: boolean read FVisible write SetVisible default True;`
	`property FluxBoundary: TFluxBoundary read GetFluxBoundary write SetFluxBoundary stored StoreFlux;`
	`property InterpValues: TInterpValuesCollection read FInterpValues write SetInterpValues;`
	`property LeakyBoundary: TLeakyBoundary read GetLeakyBoundary write SetLeakyBoundary stored StoreLeaky;`
	`property RiverBoundary: TRiverBoundary read GetRiverBoundary write SetRiverBoundary stored StoreRiver;`
	`property SpecifiedHeadBoundary: TSpecifiedHeadBoundary read GetSpecifiedHeadBoundary write SetSpecifiedHeadBoundary stored StoreSpecifiedHead;`
	`property WellBoundary: TWellBoundary read GetWellBoundary write SetWellBoundary stored StoreWell;`
	`property ModflowChdBoundary: TChdBoundary read GetModflowChdBoundary write SetModflowChdBoundary stored StoreModflowChdBoundary;`
	`property ModflowGhbBoundary: TGhbBoundary read GetModflowGhbBoundary write SetModflowGhbBoundary stored StoreModflowGhbBoundary;`
	`property ModflowWellBoundary: TMfWellBoundary read GetModflowWellBoundary write SetModflowWellBoundary stored StoreModflowWellBoundary;`
	`property ModflowRivBoundary: TRivBoundary read GetModflowRivBoundary write SetModflowRivBoundary stored StoreModflowRivBoundary;`
	`property ModflowDrnBoundary: TDrnBoundary read GetModflowDrnBoundary write SetModflowDrnBoundary stored StoreModflowDrnBoundary;`
	`property ModflowDrtBoundary: TDrtBoundary read GetModflowDrtBoundary write SetModflowDrtBoundary stored StoreModflowDrtBoundary;`
	`property ModflowRchBoundary: TRchBoundary read GetModflowRchBoundary write SetModflowRchBoundary stored StoreModflowRchBoundary;`
	`property ModflowEvtBoundary: TEvtBoundary read GetModflowEvtBoundary write SetModflowEvtBoundary stored StoreModflowEvtBoundary;`
	`property ModflowEtsBoundary: TEtsBoundary read GetModflowEtsBoundary write SetModflowEtsBoundary stored StoreModflowEtsBoundary;`
	`property ModflowResBoundary: TResBoundary read GetModflowResBoundary write SetModflowResBoundary stored StoreModflowResBoundary;`
	`property ModflowLakBoundary: TLakBoundary read GetModflowLakBoundary write SetModflowLakBoundary stored StoreModflowLakBoundary;`
	`property ModflowSfrBoundary: TSfrBoundary read GetModflowSfrBoundary write SetModflowSfrBoundary stored StoreModflowSfrBoundary;`
	`property ModflowUzfBoundary: TUzfBoundary read GetModflowUzfBoundary write SetModflowUzfBoundary stored StoreModflowUzfBoundary;`
	`property ModflowHeadObservations: THobBoundary read GetModflowHeadObservations write SetModflowHeadObservations stored StoreModflowHeadObservations;`
	`property ModflowStreamGage: TStreamGage read GetModflowStreamGage write SetModflowStreamGage stored StoreModflowStreamGage;`
	`property ModflowHfbBoundary: THfbBoundary read GetModflowHfbBoundary write SetModflowHfbBoundary stored StoreModflowHfbBoundary;`
	`property ModflowMnw2Boundary: TMnw2Boundary read GetModflowMnw2Boundary write SetModflowMnw2Boundary stored StoreModflowMnw2Boundary;`
	`property Mt3dmsConcBoundary: TMt3dmsConcBoundary read GetMt3dmsConcBoundary write SetMt3dmsConcBoundary stored StoreMt3dmsConcBoundary;`
	`property Mt3dmsTransObservations: TMt3dmsTransObservations read GetMt3dmsTransObservations write SetMt3dmsTransObservations stored StoreMt3dmsTransObservations;`
	`property SectionStarts: TValueArrayStorage read GetSectionStarts write SetSectionStarts;`
	`property ImportedSectionElevations: TValueArrayStorage read GetImportedSectionElevations write SetImportedSectionElevations stored StoreImportedSectionElevations;`
	`property ImportedHigherSectionElevations: TValueArrayStorage read GetImportedHigherSectionElevations write SetImportedHigherSectionElevations stored StoreImportedHigherSectionElevations;`
	`property ImportedLowerSectionElevations: TValueArrayStorage read GetImportedLowerSectionElevations write SetImportedLowerSectionElevations stored StoreImportedLowerSectionElevations;`
	`property ImportedValues: TValueCollection read FImportedValues write SetImportedValues stored StoreImportedValues;`
	`property IFACE: TIface read FIFACE write SetIFACE default iInternal;`
	`property ModpathParticles: TParticleStorage read FModpathParticles write SetModpathParticles;`
	`property Comment: string read FComment write SetComment;`
	`property PointPositionValues: TPointPositionValues read GetPointPositionValues write SetPointPositionValues stored ShouldStorePointPositionValues;`
	`property ModflowHydmodData: THydmodData read GetModflowHydmodData write SetModflowHydmodData stored StoreModflowHydmodData;`
	`property ChildModelName: string read GetChildModelName write SetChildModelName;`
	`property UsedModels: TUsedWithModelCollection read FUsedModels write SetUsedModels stored True;`
	`property PositionLocked: boolean read FPositionLocked write SetPositionLocked;`
	`property StoredSutraAngle: TRealStorage read FStoredSutraAngle write SetStoredSutraAngle stored SaveSutraAngle;`
	`property SutraBoundaries: TSutraBoundaries read FSutraBoundaries write SetSutraBoundaries stored SaveSutraBoundaries;`
	`property DuplicatesAllowed: Boolean read FDuplicatesAllowed write SetDuplicatesAllowed default True;`

Description

Fields

	`FCachedCells: TCachedCells;`

	`FIntervalTree: TRbwIntervalTree;`

	`FDelegateCollection: TDelegateCollection;`

	`FCanInvalidateModel: boolean;`

	`FModel: TBaseModel;`

	`FDataSetMixtureSubscriptions: TObjectList;`
`FDataSetMixtureSubscriptions` holds all the subscriptions related to mixtures for TDataArrays.

	`FInterpValues: TInterpValuesCollection;`
See InterpValues.

	`FMixtureCompiler: TRbwParser;`
`FMixtureCompiler` is assigned in AssignValuesToDataSet.

	`FMixtureExpression: TExpression;`
`FMixtureExpression` is assigned in AssignValuesToDataSet.

	`FMixtureVariables: TStringList;`
`FMixtureVariables` is assigned and Freed in AssignValuesToDataSet.

	`FFluxBoundary: TFluxBoundary;`
See FluxBoundary.

	`FLeakyBoundary: TLeakyBoundary;`
See LeakyBoundary.

	`FRiverBoundary: TRiverBoundary;`
See RiverBoundary.

	`FSpecifiedHeadBoundary: TSpecifiedHeadBoundary;`
See SpecifiedHeadBoundary.

	`FWellBoundary: TWellBoundary;`
See WellBoundary.

	`FBottomElevation: real;`
`FBottomElevation` is used to temporarily store the lower elevation of the `TScreenObject` in current cell when the `TScreenObject` has an upper and a lower elevation.

	`FBottomElevSubscription: TObserver;`
`FBottomElevSubscription` is a TObserver that responds to changes in any of the data sets referenced in LowerElevationFormula by calling Changed.

	`FBoundaryDataSetFormulas: TList;`
See BoundaryDataSetFormulas.

	`FBoundaryDataSets: TList;`
See BoundaryDataSets.

	`FBoundaryDataSetSubscriptions: TObjectList;`
`FBoundaryDataSetSubscriptions` holds a list of TObservers related to boundary conditions set by this `TScreenObject`. If this `TScreenObject` changes, the TObservers in `FBoundaryDataSetSubscriptions` will ensure that those boundary conditions get updated properly when needed.

	`FCanvasCoordinates: TPointArray;`
See CanvasCoordinates.

	`FCapacity: integer;`
See Capacity.

	`FCellSize: real;`
See CellSize.

	`FCellSizeUsed: boolean;`
See CellSizeUsed.

	`FColorLine: boolean;`
See ColorLine.

	`FCount: integer;`
See Count.

	`FDataSetFormulas: TList;`
See DataSetFormulas.

	`FDataSets: TList;`
See DataSets.

	`FDataSetSubscriptions: TObjectList;`
`FDataSetSubscriptions` holds a list of TObservers related to TDataArrays set by this `TScreenObject`. If this `TScreenObject` changes, the TObservers in `FDataSetSubscriptions` will ensure that those TDataArrays get updated properly when needed.

	`FDeleted: boolean;`
See Deleted.

	`FElevationCount: TElevationCount;`
See ElevationCount and TElevationCount.

	`FElevSubscription: TObserver;`
`FElevSubscription` is a TObserver that responds to changes in any of the data sets referenced in ElevationFormula by calling Changed.

	`FEvaluatedAt: TEvaluatedAt;`
See EvaluatedAt and TEvaluatedAt.

	`FFillColor: TColor;`
See FillColor.

	`FFillScreenObject: boolean;`
See FillScreenObject.

	`FLineColor: TColor;`
See LineColor.

	`FMaxX: real;`
See MaxX.

	`FMaxY: real;`
See MaxY.

	`FMinX: real;`
See MinX.

	`FMinY: real;`
See MinY.

	`FNeedToUpdateLine: boolean;`
`FNeedToUpdateLine` indicates whether or not SelectLines is up-to-date. If it isn't, it will be recalculated when needed.

	`FPoints: TRealPointArray;`
`FPoints`: TRealPointArray; See Points and TRealPointArray.

	`FRecalculateArea: boolean;`
`FRecalculateArea` indicates whether or not FScreenObjectArea is up-to-date. If it isn't, it will be recalculated when needed. See ScreenObjectArea.

	`FRecalculateBox: boolean;`
`FRecalculateBox` indicates whether or not MinX, MaxX, MinY, and MaxY are up-to-date. If the aren't, they will be recalculated when needed.

	`FRecalculateCoordinates: boolean;`
`FRecalculateCoordinates` indicates whether or not FCanvasCoordinates is up-to-date. If it isn't, it will be recalculated when needed. See ScreenObjectArea.

	`FRecalculateLength: boolean;`
`FRecalculateLength` indicates whether or not FScreenObjectLength is up-to-date. If it isn't, it will be recalculated when needed. See ScreenObjectLength.

	`FScreenObjectArea: real;`
See ScreenObjectArea.

	`FScreenObjectLength: real;`
See ScreenObjectLength.

	`FSegments: TCellElementSegmentList;`
See Segments and TCellElementSegmentList.

	`FSegModelAssoc: TAssociateList;`

	`FSelected: boolean;`
See Selected.

	`FSelectedVertexCount: integer;`
See SelectedVertexCount.

	`FSelectedVertices: TBooleanDynArray;`
See SelectedVertices.

	`FSelectLines: TLines;`
See SelectLines and TLine.

	`FSetValuesByInterpolation: boolean;`
See SetValuesByInterpolation.

	`FSetValuesOfEnclosedCells: boolean;`
See SetValuesOfEnclosedCells.

	`FSetValuesOfIntersectedCells: boolean;`
See SetValuesOfIntersectedCells.

	`FLastSubPolygon: TSubPolygon;`
`FLastSubPolygon` is used to determine whether adding a point to `TScreenObject` will cause it to intersect an existing Segment.

	`FTopElevation: real;`
`FTopElevation` is used to temporarily store the upper elevation of the `TScreenObject` in current cell when the `TScreenObject` has an upper and a lower elevation.

	`FTopElevSubscription: TObserver;`
`FTopElevSubscription` is a TObserver that responds to changes in any of the data sets referenced in HigherElevationFormula by calling Changed.

	`FViewDirection: TViewDirection;`
See ViewDirection and TViewDirection.

	`FVisible: boolean;`
See Visible.

	`FNeedToResetSelectedVertexCount: boolean;`
See NeedToResetSelectedVertexCount.

FSubPolygons: TList;

FSubPolygons is actually a TObjectList. FSubPolygons holds instances of TSubPolygon.

Methods

function IsOutsideBoxPlusBuffer(const Location: TPoint2D; const BufferDistance: real; const Anisotropy: real): boolean;

IsOutsideBoxPlusBuffer returns True if Location is outside a box surrounding the TScreenObject plus a buffer distance.

Parameters

ColIndex: indicates the column boundary on the grid. The new point will be where the line intersects this column.
Grid: is the TPhastGrid from which the point is being added.
PreviousPoint: is one of the points defining the line.
APoint: is the other point defining the line.
TempPoints1: is the array to which the point is added.
Count: is the new number of points in TempPoints1.
Position: is the TEdgePosition for the new point.

procedure AddPointFromLayer(const LayerIndex: integer; const Grid: TCustomModelGrid; const PreviousPoint, APoint: TEdgePoint; var TempPoints1: TEdgePointArray; var Count: integer; const Position: TEdgePosition);

AddPointFromLayer creates a TEdgePoint at the layer boundary on Grid indicated by LayerIndex on the line defined by PreviousPoint and APoint. If the new TEdgePoint is between PreviousPoint and APoint, it is added at TempPoints1[Count] and then Count is incremented. The Position of the new TEdgePoint is set to Position. AddPointFromLayer is called when updating Segments.

Parameters

LayerIndex: indicates the layer boundary on the grid. The new point will be where the line intersects this layer.
Grid: is the TPhastGrid from which the point is being added.
PreviousPoint: is one of the points defining the line.
APoint: is the other point defining the line.
TempPoints1: is the array to which the point is added.
Count: is the new number of points in TempPoints1.
Position: is the TEdgePosition for the new point.

procedure AddPointFromRow(const RowIndex: integer; const Grid: TCustomModelGrid; const PreviousPoint, APoint: TEdgePoint; var TempPoints1: TEdgePointArray; var Count: integer; const Position: TEdgePosition);

AddPointFromRow creates a TEdgePoint at the row boundary on Grid indicated by RowIndex on the line defined by PreviousPoint and APoint. If the new TEdgePoint is between PreviousPoint and APoint, it is added at TempPoints1[Count] and then Count is incremented. The Position of the new TEdgePoint is set to Position. AddPointFromRow is called when updating Segments.

Parameters

RowIndex: indicates the row boundary on the grid. The new point will be where the line intersects this row.
Grid: is the TPhastGrid from which the point is being added.
PreviousPoint: is one of the points defining the line.
APoint: is the other point defining the line.
TempPoints1: is the array to which the point is added.
Count: is the new number of points in TempPoints1.
Position: is the TEdgePosition for the new point.

	`procedure Assign3DElevations(Formula: string; const SparseArray: T3DSparseRealArray; AModel: TBaseModel);`

procedure Assign3DElevationsFromFront(const Compiler: TRbwParser; const SparseArray: T3DSparseRealArray; AModel: TBaseModel);

Assign3DElevationsFromFront fills SparseArray with values based on Compiler.CurrentExpression. Only cells whose values ought to be set by the TScreenObject will be set. This procedure is only called if ViewDirection = vdFront.

Parameters

Compiler: is the TRbwParser whose CurrentExpression will be used to assign values.
SparseArray: is a T3DSparseRealArray whose values will be set.

procedure Assign3DElevationsFromSide(const Compiler: TRbwParser; const SparseArray: T3DSparseRealArray; AModel: TBaseModel);

Assign3DElevationsFromSide fills SparseArray with values based on Compiler.CurrentExpression. Only cells whose values ought to be set by the TScreenObject will be set. This procedure is only called if ViewDirection = vdSide.

Parameters

Compiler: is the TRbwParser whose CurrentExpression will be used to assign values.
SparseArray: is a T3DSparseRealArray whose values will be set.

	`procedure AssignHigher3DElevations(AModel: TBaseModel);`
`AssignHigher3DElevations` fills FHigher3DElevations with values based on either HigherElevationFormula or ElevationFormula depending on ElevationCount.

	`procedure AssignLower3DElevations(AModel: TBaseModel);`
`AssignLower3DElevations` fills FLower3DElevations with values based on LowerElevationFormula.

	`procedure CalculateCanvasCoordinates;`
CalculateCanvasCoordinates takes all the TPoint2Ds in Points and calculates the corresponding TPoints. These are stored in FCanvasCoordinates. The TPoints are used when drawing the ScreenObject on the screen.

procedure CreateSubPolygons;

CreateSubPolygons first calls ClearSubPolygons to get rid of existing TSubPolygons. It then creates one TSubPolygon for each section of the TScreenObject. (See SectionCount.) Each TSubPolygon will have access to the TPoint2Ds in its section Points. Each TSubPolygon will divide itself into two additional subcountours until the number of points each has access to is small enough. The TSubPolygons are used in speeding up evaluation of whether a point is inside the TScreenObject.

	`procedure ClearSubPolygons;`
`ClearSubPolygons` destroys TSubPolygons in FSubPolygons.

procedure Draw0Elev(Const Bitmap32: TBitmap32; const Direction: TViewDirection; const DrawAsSelected: Boolean = False);

Draw0Elev is used to draw the TScreenObject when Direction = ViewDirection. The elevation functions (if any) are not used. (To facilitated fast selection of objects, the selected objects are redrawn in an Image32 after being in the normal fashion in a bitmap.

Parameters

Bitmap32: is the TBitmap32 on which the TScreenObject will be drawn.
Direction: is the TViewDirection for Bitmap32.
DrawAsSelected: is used to determine whether to draw the screen object in the normal fashion or as a selected screen object.

procedure Draw1Elev( Const Bitmap32: TBitmap32; const Direction: TViewDirection; const DrawAsSelected: Boolean = False);

Draw1Elev is used to draw the TScreenObject when ElevationCount = ecOne. if Direction = ViewDirection, Draw0Elev is called. Otherwise ElevationFormula is used to determine either the X or Y coordinates.

Parameters

Bitmap32: is the TCanvas on which the TScreenObject will be drawn.
Direction: is the TViewDirection for Bitmap32.
DrawAsSelected: is used to determine whether to draw the screen object in the normal fashion or as a selected screen object. (To facilitate fast selection of objects, the selected objects are redrawn in an Image32 after being in the normal fashion in a bitmap.)

procedure Draw2Elev(Const Bitmap32: TBitmap32; const Direction: TViewDirection; const DrawAsSelected: Boolean = False);

Draw2Elev is used to draw the TScreenObject when ElevationCount = ecTwo. if Direction = ViewDirection, Draw0Elev is called. Otherwise HigherElevationFormula and LowerElevationFormula is used to determine either the X or Y coordinates.

Parameters

Bitmap32: is the TBitmap32 on which the TScreenObject will be drawn.
Direction: is the TViewDirection for Bitmap32.
DrawAsSelected: is used to determine whether to draw the screen object in the normal fashion or as a selected screen object. (To facilitate fast selection of objects, the selected objects are redrawn in an Image32 after being in the normal fashion in a bitmap.)

procedure EvaluateSubPolygon(const ASubPolygon: TSubPolygon; const X, Y: real; var IsInside: boolean);

EvaluateSubPolygon is used to help determine whether the point at X, Y is inside the TScreenObject. (See IsPointInside.) IsInside is updated to reflect the effect of ASubPolygon on the final result. IsInside is not the final result. EvaluateSubPolygon calls itself recursively.

Parameters

ASubPolygon: is the TSubPolygon which will be evaluated.
X: is the X-coordinate of the location being tested.
Y: is the Y-coordinate of the location being tested.
IsInside: represents the effects of ASubPolygon on whether the point (X, Y) is inside the polygon.

function GetACol(const Grid: TCustomModelGrid; const X: double): integer;

If EvaluatedAt = eaNodes, GetACol returns the column whose center is closest to X. except that it can return Grid.ColumnCount for EvaluatedAt = eaBlocks. If EvaluatedAt = eaBlocks GetACol returns the index of the column center that is closest to X. GetACol is similar to GetColumn. (X is in a coordinates system parallel to the grid.) GetACol is called by UpdateTopSegments and UpdateFrontSegments.

Parameters

Grid: is the TPhastGrid from which the column boundary will be extracted.
X: is the X coordinate (in a coordinates system parallel to the grid) of the location of interest.

function GetAPhastLayer(const Grid: TCustomModelGrid; const Z: double): integer;

If EvaluatedAt = eaNodes, GetAPhastLayer returns the layer boundary that is closest to Z. If EvaluatedAt = eaBlocks GetAPhastLayer returns the index of the layer center that is closest to Z except that it can return Grid.LayerCount for EvaluatedAt = eaBlocks. GetAPhastLayer is called by UpdateFrontSegments and UpdateSideSegments.

Parameters

Grid: is the TPhastGrid from which the layer boundary will be extracted.
Z: is the Z coordinate (in a coordinates system parallel to the grid) of the location of interest.

function GetARow(const Grid: TCustomModelGrid; const Y: double): integer;

If EvaluatedAt = eaNodes, GetARow returns the row boundary that is closest to Y ( except that it can return Grid.RowCount for EvaluatedAt = eaBlocks. If EvaluatedAt = eaBlocks GetARow returns the index of the row center that is closest to Y. (Y is in a coordinates system parallel to the grid.) GetARow is called by UpdateTopSegments and UpdateSideSegments.

Parameters

Grid: is the TPhastGrid from which the layer boundary will be extracted.
Y: is the Y coordinate (in a coordinates system parallel to the grid) of the location of interest.

	`function GetBoundaryDataSetFormulas(const Index: integer): string;`
`GetBoundaryDataSetFormulas` is the Read function for the BoundaryDataSetFormulas property.

	`function GetBoundaryDataSets(const Index: integer): TDataArray;`
`GetBoundaryDataSets` is the Read function for the BoundaryDataSets property.

	`function GetCanvasCoordinates: TPointArray;`
`GetCanvasCoordinates` is the Read function for the CanvasCoordinates property. It recalculates the coordinates when needed.

function GetColumn(const Grid: TCustomModelGrid; const X: real): integer;

GetColumn returns the column number that contains X. GetColumn is similar to GetACol.

Parameters

Grid: is the TPhastGrid from which the column boundary will be extracted.
X: is the X coordinate (in a coordinates system parallel to the grid) of the location of interest.

procedure GetColumns(const Grid: TCustomModelGrid; TempMinX, TempMaxX: real; out FirstCol, LastCol: integer);

GetColumns sets FirstCol and LastCol to the range of columns intersected by the TScreenObject.

Parameters

Grid: is the grid being tested
TempMinX: is the minimum X value in the grid coordinate system.
TempMaxX: is the maximum X value in the grid coordinate system.
FirstCol: is the first column intersected by TempMinX to TempMaxX.
LastCol: is the last column intersected by TempMinX to TempMaxX.

	`function GetCount: integer;`
See Count.

	`function GetDataSetCapacity: integer;`
See DataSetCapacity.

	`function GetDataSetCount: integer;`
See DataSetCount.

	`function GetDataSetFormulas(const Index: integer): string;`
See DataSetFormulas.

	`function GetDataSets(const Index: integer): TDataArray;`
See DataSets.

	`function GetEdgePoints(const Index: integer): TEdgePoint;`
See EdgePoints.

	`function GetFillColor: TColor;`
See FillColor.

	`procedure GetGridCellOrElementLimits(const Col, Row, Layer: integer; out XMin, XMax, YMin, YMax: double; AModel: TBaseModel);`
`GetGridCellOrElementLimits` sets XMin, XMax, YMin, and YMax to be the positions of the grid cell or element specified by Col, Row, and Layer. Which is used depends on EvaluatedAt.

	`function GetHigher3DElevations(AModel: TBaseModel): T3DSparseRealArray;`
`GetHigher3DElevations` calls UpdateHigher3DElevations. Then it returns FHigher3DElevations.

function GetLayer(const Grid: TCustomModelGrid; const Z: real): integer;

GetLayer returns the layer number that contains Z. GetLayer is similar to GetAPhastLayer.

Parameters

Grid: is the TPhastGrid from which the layer boundary will be extracted.
Z: is the Z coordinate (in a coordinates system parallel to the grid) of the location of interest.

procedure GetLayers(const Grid: TCustomModelGrid; TempMinZ, TempMaxZ: real; out FirstLayer, LastLayer: integer);

GetLayers sets FirstLayer and LastLayer to the range of layers intersected by the TScreenObject.

Parameters

Grid: is the grid being tested
TempMinZ: is the minimum Z value in the grid coordinate system.
TempMaxZ: is the maximum Z value in the grid coordinate system.
FirstLayer: is the first layer intersected by TempMinZ to TempMaxZ.
LastRow: is the last layer intersected by TempMinZ to TempMaxZ.
LastLayer: specifies how to interpret the columns.

	`function GetLineColor: TColor;`
See LineColor.

	`function GetLower3DElevations(AModel: TBaseModel): T3DSparseRealArray;`
`GetLower3DElevations` calls UpdateLower3DElevations. Then it returns FLower3DElevations.

	`function GetMaxX: real;`
See MaxX.

	`function GetMaxY: real;`
See MaxY.

	`function GetMinX: real;`
See MinX.

	`function GetMinY: real;`
See MinY.

	`function GetPoints(const Index: integer): TPoint2D;`
See Points.

function GetRow(const Grid: TCustomModelGrid; const Y: real): integer;

GetRow returns the row number that contains Y. GetRow is similar to GetARow.

Parameters

Grid: is the TPhastGrid from which the row boundary will be extracted.
Y: is the Y coordinate (in a coordinates system parallel to the grid) of the location of interest.

procedure GetRows(const Grid: TCustomModelGrid; TempMinY, TempMaxY: real; out FirstRow, LastRow: integer);

GetRows sets FirstRow and LastRow to the range of rows intersected by the TScreenObject.

Parameters

Grid: is the grid being tested
TempMinY: is the minimum Y value in the grid coordinate system.
TempMaxY: is the maximum Y value in the grid coordinate system.
FirstRow: is the first row intersected by TempMinY to TempMaxY.
LastRow: is the last row intersected by TempMinY to TempMaxY.
EvaluatedAt: specifies how to interpret the columns.

	`function GetSelectedVertexCount: integer;`
See SelectedVertexCount.

	`function GetSelectedVertices(const index: integer): boolean;`
See SelectedVertices.

	`function GetSelectLines: TLines;`
See SelectLines.

	`procedure Grow;`
`Grow` increases Capacity.

	`procedure GrowBy(Amount: integer);`
`GrowBy` increases Capacity by Amount.

	`function InsideBox(const X, Y: real): boolean;`
`InsideBox` returns true if the point (X,Y) is inside the bounding box for the `TScreenObject`.

function MinDistPointLine(const P, A, B: TPoint2D; out Closest: TPoint2D; const Anisotropy: real): real;

MinDistPointLine calculates the distance between a point and a line segment.

Parameters

P: is the point.
A: is one of the points defining the line segment.
B: is the other point defining the line segment.
Closest: is the closest point on the line segment to P.
Anisotropy: is the Anisotropy used in calculating the distance.

	`function PointToPointDist(const A, B: TPoint2D; const Anisotropy: real): real;`
`PointToPointDist` returns the distance between points A and B taking into account Anisotropy.

	`procedure ResetBottomElevationFormula(const Compiler: TRbwParser; const ErrorMessage: string);`
`ResetBottomElevationFormula` is used if LowerElevationFormula has an error to reset it to a default valid value.

	`procedure ResetElevationFormula(const Compiler: TRbwParser; const ErrorMessage: string);`
`ResetElevationFormula` is used if ElevationFormula has an error to reset it to a default valid value.

	`procedure ResetSelectedVertexCount;`
`ResetSelectedVertexCount` deselects all vertices in the `TScreenObject`.

	`procedure ResetTopElevationFormula(const Compiler: TRbwParser; const ErrorMessage: string);`
`ResetTopElevationFormula` is used if HigherElevationFormula has an error to reset it to a default valid value.

	`procedure SetBoundaryDataSetFormulas(const Index: integer; const Value: string);`
See BoundaryDataSetFormulas.

	`procedure SetBoundaryDataSets(const Index: integer; const DataSet: TDataArray);`
See BoundaryDataSets.

	`procedure SetCapacity(Value: integer);`
See Capacity.

	`procedure SetCellSize(const Value: real);`
See CellSize.

	`procedure SetCellSizeUsed(const Value: boolean);`
See CellSizeUsed.

	`procedure SetColorLine(const Value: boolean);`
See ColorLine.

	`procedure SetCount(const Value: integer);`
See Count.

	`procedure SetDataSetCapacity(const Value: integer);`
See DataSetCapacity.

	`procedure SetDataSetFormulas(const Index: integer; Value: string);`
See DataSetFormulas.

	`procedure SetDataSets(const Index: integer; const DataSet: TDataArray);`
See DataSets.

	`procedure SetDeleted(const Value: boolean);`
See Deleted.

	`procedure SetEdgePoints(const Index: integer; const Value: TEdgePoint);`
See EdgePoints.

	`procedure SetElevationCount(const Value: TElevationCount);`
See ElevationCount.

	`procedure SetEvaluatedAt(const Value: TEvaluatedAt);`
See EvaluatedAt.

	`procedure SetFillColor(const Value: TColor);`
See FillColor.

	`procedure SetFillScreenObject(const Value: boolean);`
See FillScreenObject.

	`procedure SetLineColor(const Value: TColor);`
See LineColor.

	`procedure SetPoints(const Index: integer; const Value: TPoint2D);`
See Points.

	`procedure SetSelected(const Value: boolean);`
See Selected.

	`procedure SetSelectedVertices(const index: integer; const Value: boolean);`
See SelectedVertices.

	`procedure Set_SetValuesByInterpolation(const Value: boolean);`
See SetValuesByInterpolation.

	`procedure Set_SetValuesOfEnclosedCells(const Value: boolean);`
See SetValuesOfEnclosedCells.

	`procedure Set_SetValuesOfIntersectedCells(const Value: boolean);`
See SetValuesOfIntersectedCells.

	`procedure SetVisible(const Value: boolean);`
See Visible.

procedure SortPoints(const Input: TEdgePointArray; out SortedPoints: TEdgePointArray; const APoint, PreviousPoint: TEdgePoint; const MaxLength: integer; Const EpsilonX: real = 0; Const EpsilonY: real = 0);

SortPoints sorts the points in Input and returns the sorted points in SortedPoints. The points in Input lie along the line (PreviousPoint,APoint). They are sorted so that they occur in order along that line. Duplicate points are eliminated.

Parameters

Input: is an array of TEdgePoints to be sorted.
SortedPoints: is an array of TEdgePoints obtained by sorting Input.
APoint: is the end point of a line along which are all the points in Input.
PreviousPoint: is the beginning point of a line along which are all the points in Input.
MaxLength: is the number of points in Input to be sorted.

	`procedure UpdateBox;`
`UpdateBox` updates MinX, MaxX, MinY, and MaxY.

	`procedure UpdateFrontSegments(AModel: TBaseModel; const EvaluatedAt: TEvaluatedAt);`
`UpdateFrontSegments` calls Delegate.UpdateFrontSegments.

	`procedure UpdateSideSegments(AModel: TBaseModel; const EvaluatedAt: TEvaluatedAt);`
`UpdateSideSegments` calls Delegate.UpdateSideSegments.

	`procedure UpdateTopSegments( const EvaluatedAt: TEvaluatedAt; const PointsRotated: boolean; var RotatedPoints: TEdgePointArray; AModel: TBaseModel);`
`UpdateTopSegments` updates the contents of Segments when ViewDirection = vdTop.

	`procedure ValidateIndex(const Index: integer); inline;`
`ValidateIndex` is used when accessing vertices to raise an exception if Index is invalid.

	`function ValidCell(const Col, Row, Layer: integer; Model: TBaseModel): boolean;`
`ValidCell` returns false if Col, Row, Layer refer to an invalid cell. Only two of the three are checked. The ones that are checked depend on ViewDirection

	`function Get_SetValuesOfEnclosedCells: boolean;`
See SetValuesOfEnclosedCells.

procedure UpdateHigher3DElevations(AModel: TBaseModel);

On input, Sorter contains a series of pointers to TPoint2Ds that are on a straight line and Point1 and Point2 are points defining the endpoints of the line. On exit the contents of Sorter will be rearranged so that they are in order from Point1 toward Point2. procedure SortPointsInCorrectDirection(Sorter: TList; const Point1, Point2: TPoint2D); UpdateHigher3DElevations is used to specify the intersection of a segment of TScreenObject with the box defined by XMin, XMax, YMin, YMax.

On exit, Point1 and Point2 are the points of the segment; TempPoints will contain the intersection points; and PointCount will contain the number of points of intersection. procedure GetPointsOnLineSegment(const RotatedPoints: TRealPointArray; const XMin, XMax, YMin, YMax: Double; const Index: Integer; out Point1, Point2: TPoint2D; out TempPoints: T2DRealPointArray6; out PointCount: Integer); UpdateHigher3DElevations returns the proper TCustomScreenObjectDelegate for the active TPhastModel.ModelSelection.

	`procedure UpdateLower3DElevations(AModel: TBaseModel);`

	`procedure AssignIntegerDataWithPhastInterpolation(const DataSet: TDataArray; const LayerIndex, RowIndex, ColIndex: integer; const Comment: string; const InterpValue: TInterpValuesItem);`
`AssignIntegerDataWithPhastInterpolation` is used to assign data to a particular cell when PHAST-style interpolation is used and the data is integer data. See TPhastInterpolationValues.

	`procedure AssignRealDataWithPhastInterpolation(const DataSet: TDataArray; const LayerIndex, RowIndex, ColIndex: integer; const Comment: string; const InterpValue: TInterpValuesItem);`
`AssignRealDataWithPhastInterpolation` is used to assign data to a particular cell when PHAST-style interpolation is used and the data is real-number data. See TPhastInterpolationValues.

	`function GetMixtureDataSetFormula(const Index: integer): string;`
See MixtureDataSetFormula.

	`procedure SetMixtureDataSetFormula(const Index: integer; const Value: string);`
See MixtureDataSetFormula.

procedure InitializeMixtureExpression(out Compiler: TRbwParser; out MixtureFormula: string; out Expression: TExpression; const DataSet: TDataArray; const OtherData: TObject);

The purpose of InitializeMixtureExpression is to (1) determine the formula for a mixture to use with using PHAST-style interpolation, (2) determine the TRbwParser to use with that formula, and (3) compile that formula into a TExpression. See TPhastInterpolationValues.

Parameters

Compiler: is set in InitializeMixtureExpression to the correct TRbwParser to use with the mixture formula.
MixtureFormula: is set in InitializeMixtureExpression to the formula for the mixture.
Expression: is set in InitializeMixtureExpression to the TExpression that results from compiling MixtureFormula.
DataSet: is the TDataArray to which the mixture formula applies.
OtherData: if DataSet is a normal data set, OtherData is a TInterpValuesItem. if DataSet represents a boundary condition, OtherData is a TCustomPhastBoundaryCondition.

	`function ThreeDBoundaryFormula: string;`
`ThreeDBoundaryFormula` returns a formula that can be used to identify the type of 3D boundary condition (if any) that is assigned with this `TScreenObject`.

	`function TwoDBoundaryFormula: string;`
`TwoDBoundaryFormula` returns a formula that can be used to identify the type of 2D boundary condition (if any) that is assigned with this `TScreenObject`.

	`function ZoomBox(VD: TViewDirection): TQrbwZoomBox2;`

	`function FrameScreenObject(VD: TViewDirection): TScreenObject;`

	`function IAmACurrentScreenObject: Boolean;`

	`procedure NotifyGuiOfChange(Sender: TObject);`
`NotifyGuiOfChange` calls ScreenObjectsChanged.

	`procedure SetModflowChdBoundary(const Value: TChdBoundary);`

	`procedure RefreshGui(Sender: TObject);`

	`procedure SetModflowGhbBoundary(const Value: TGhbBoundary);`

	`procedure SetModflowWellBoundary(const Value: TMfWellBoundary);`

	`procedure SetModflowRivBoundary(const Value: TRivBoundary);`

	`procedure SetModflowDrnBoundary(const Value: TDrnBoundary);`

	`procedure SetModflowDrtBoundary(const Value: TDrtBoundary);`

	`procedure SetModflowRchBoundary(const Value: TRchBoundary);`

	`procedure SetModflowEvtBoundary(const Value: TEvtBoundary);`

	`procedure SetModflowEtsBoundary(const Value: TEtsBoundary);`

	`procedure SetModflowResBoundary(const Value: TResBoundary);`

	`procedure SetModflowLakBoundary(const Value: TLakBoundary);`

	`procedure GetInterpDistance(const InterpValue: TInterpValuesItem; var Distance: Double; const DataSet: TDataArray; const LayerIndex, RowIndex, ColIndex: Integer);`

	`procedure AssignTopDataSetValues( Expression: TExpression; const DataSetFunction: string; Compiler: TRbwParser; UsedVariables: TStringList; OtherData: TObject; const DataSet: TDataArray; AModel: TBaseModel; AssignmentLocation: TAssignmentLocation = alAll);`

	`function GetSegments(AModel: TBaseModel): TCellElementSegmentList;`

	`function GetSectionCount: integer;`

	`function GetSectionEnd(const Index: integer): integer;`

	`function GetSectionStart(const Index: integer): integer;`

	`function GetSectionClosed(const Index: integer): boolean;`

	`function GetSectionLength(const Index: integer): integer;`

	`procedure SetModflowSfrBoundary(const Value: TSfrBoundary);`

	`function GetModflowSfrBoundary: TSfrBoundary;`

	`function GetModflowLakBoundary: TLakBoundary;`

	`function GetModflowResBoundary: TResBoundary;`

	`function GetModflowEtsBoundary: TEtsBoundary;`

	`function GetModflowEvtBoundary: TEvtBoundary;`

	`function GetModflowRchBoundary: TRchBoundary;`

	`function GetModflowDrtBoundary: TDrtBoundary;`

	`function GetModflowDrnBoundary: TDrnBoundary;`

	`function GetModflowRivBoundary: TRivBoundary;`

	`function GetModflowWellBoundary: TMfWellBoundary;`

	`function GetModflowGhbBoundary: TGhbBoundary;`

	`function GetModflowChdBoundary: TChdBoundary;`

	`function GetFluxBoundary: TFluxBoundary;`

	`function GetLeakyBoundary: TLeakyBoundary;`

	`function GetRiverBoundary: TRiverBoundary;`

	`function GetSpecifiedHeadBoundary: TSpecifiedHeadBoundary;`

	`function GetSpecifiedSolutionBoundary: TSpecifiedSolutionBoundary;`

	`function GetWellBoundary: TWellBoundary;`

	`function GetModflowBoundaries: TModflowBoundaries;`

	`procedure SubPolygonXLimits(Subject: TObject; out LowerBoundary, UpperBoundary: double);`

	`procedure SubPolygonYLimits(Subject: TObject; out LowerBoundary, UpperBoundary: double);`

	`function GetModflowUzfBoundary: TUzfBoundary;`

	`procedure SetModflowUzfBoundary(const Value: TUzfBoundary);`

	`procedure Draw1ElevModflow(const Direction: TViewDirection; const Bitmap32: TBitmap32; const DrawAsSelected: Boolean; AModel: TBaseModel);`

	`function GetModflowHeadObservations: THobBoundary;`

	`procedure SetModflowHeadObservations(const Value: THobBoundary);`

	`procedure SetSectionStarts(const Value: TValueArrayStorage);`

	`function GetSectionStarts: TValueArrayStorage;`

	`procedure CreateSectionStarts;`

	`procedure SetImportedSectionElevations(const Value: TValueArrayStorage);`

	`procedure SetImportedHigherSectionElevations( const Value: TValueArrayStorage);`

	`procedure SetImportedLowerSectionElevations( const Value: TValueArrayStorage);`

	`function GetImportedHigherSectionElevations: TValueArrayStorage;`

	`function GetImportedLowerSectionElevations: TValueArrayStorage;`

	`function GetImportedSectionElevations: TValueArrayStorage;`

procedure Assign3DElevationsFromTop(const Compiler: TRbwParser; const SparseArray: T3DSparseRealArray; AModel: TBaseModel);

Assign3DElevationsFromTop fills SparseArray with values based on Compiler.CurrentExpression. Only cells whose values ought to be set by the TScreenObject will be set. This procedure is only called if ViewDirection = vdTop.

Parameters

Compiler: is the TRbwParser whose CurrentExpression will be used to assign values.
SparseArray: is a T3DSparseRealArray whose values will be set.

	`procedure Draw1ElevPhast(const Direction: TViewDirection; const Bitmap32: TBitmap32; const DrawAsSelected: Boolean);`

	`procedure Draw1ElevSutra(const Direction: TViewDirection; const Bitmap32: TBitmap32; const DrawAsSelected: Boolean);`

	`procedure SetImportedValues(const Value: TValueCollection);`

	`procedure SetModflowHfbBoundary(const Value: THfbBoundary);`

	`function GetModflowHfbBoundary: THfbBoundary;`

	`function GetElevSubscription: TObserver;`

	`function GetTopElevSubscription: TObserver;`

	`function GetBottomElevSubscription: TObserver;`

	`procedure SetIFACE(const Value: TIface);`

	`procedure SetModpathParticles(const Value: TParticleStorage);`

	`function StoreImportedHigherSectionElevations: Boolean;`

	`function StoreImportedLowerSectionElevations: Boolean;`

	`function StoreImportedSectionElevations: Boolean;`

	`function StoreImportedValues: Boolean;`

	`function GetModflowStreamGage: TStreamGage;`

	`procedure SetModflowStreamGage(const Value: TStreamGage);`

	`function StoreModflowStreamGage: Boolean;`

	`procedure RemoveElevationSubscription(Sender: TObject; const AName: string);`

	`procedure RemoveHigherElevationSubscription(Sender: TObject; const AName: string);`

	`procedure RemoveLowerElevationSubscription(Sender: TObject; const AName: string);`

	`procedure RestoreElevationSubscription(Sender: TObject; const AName: string);`

	`procedure RestoreHigherElevationSubscription(Sender: TObject; const AName: string);`

	`procedure RestoreLowerElevationSubscription(Sender: TObject; const AName: string);`

	`procedure RemoveDataArraySubscription(Sender: TObject; const AName: string);`

	`procedure RestoreDataArraySubscription(Sender: TObject; const AName: string);`

	`function GetElevationFormula: string;`

	`function GetHigherElevationFormula: string;`

	`function GetLowerElevationFormula: string;`

	`procedure CreateOrRetrieveBoundaryFormulaObject(const Index: Integer; ADataSet: TDataArray; var FormulaObject: TFormulaObject);`

	`procedure RestoreBoundaryDataArraySubscription(Sender: TObject; const AName: string);`

	`procedure RemoveBoundaryDataArraySubscription(Sender: TObject; const AName: string);`

	`function GetModflowMnw2Boundary: TMnw2Boundary;`

	`procedure SetModflowMnw2Boundary(const Value: TMnw2Boundary);`

	`procedure CacheElevationArrays;`

	`procedure SetComment(const Value: string);`

	`procedure SetPointPositionValues(const Value: TPointPositionValues);`

	`function GetPointPositionValues: TPointPositionValues;`

	`function ShouldStorePointPositionValues: Boolean;`

	`function GetModflowHydmodData: THydmodData;`

	`procedure SetModflowHydmodData(const Value: THydmodData);`

	`function StoreModflowHydmodData: Boolean;`

	`procedure SetChildModelName(const Value: string);`

	`function GetChildModel: TBaseModel;`

	`procedure SetChildModel(const Value: TBaseModel);`

	`function GetChildModelName: string;`

	`procedure SetUsedModels(const Value: TUsedWithModelCollection);`

	`procedure RemoveLakeID_Connection;`

	`procedure AddTopSubSegments(var ASegment: TCellElementSegment; AModel: TBaseModel);`
When a TCellElementSegment at a cell in the parent model is at the interface with a child model, `AddTopSubSegments` adds subsegments that are in the unshared part of the cell.

	`procedure SetPositionLocked(const Value: boolean);`

	`function GetMt3dmsConcBoundary: TMt3dmsConcBoundary;`

	`procedure SetMt3dmsConcBoundary(const Value: TMt3dmsConcBoundary);`

	`function GetMt3dmsTransObservations: TMt3dmsTransObservations;`

	`procedure SetMt3dmsTransObservations(const Value: TMt3dmsTransObservations);`

	`function SaveSutraAngle: Boolean;`

	`procedure SetStoredSutraAngle(const Value: TRealStorage);`

	`procedure InvalidateModelEvent(Sender: TObject);`

	`function GetSutraAngle: Double;`

	`procedure SetSutraAngle(const Value: Double);`

	`procedure SetSutraBoundaries(const Value: TSutraBoundaries);`

	`function SaveSutraBoundaries: Boolean;`

	`procedure ResetFormula(const Compiler: TRbwParser; const ErrorMessage, Source: string; var Formula: string; DataType: TRbwDataType);`

	`procedure SetCanInvalidateModel(const Value: boolean);`

	`procedure EliminateHoleCells(CellList: TCellAssignmentList);`

	`procedure SetDuplicatesAllowed(const Value: Boolean);`

	`procedure EliminateDuplicates(CellList: TCellAssignmentList; AModel: TBaseModel);`

	`procedure DeleteExtraSections;`

	`procedure CreatePhastFluxBoundary;`

	`procedure CreatePhastLeakyBoundary;`

	`procedure CreatePhastRiverBoundary;`

	`procedure CreatePhastSpecifiedHeadBoundary;`

	`procedure CreatePhastSpecifiedSolutionBoundary;`

	`procedure CreatePhastWellBoundary;`

	`procedure CreateElevationSubscription;`

	`procedure CreateTopElevationSubscription;`

	`procedure CreateBottomElevationSubscription;`

	`procedure CreateBoundaryDataSetFormulas;`

	`procedure CreateBoundaryDataSetSubscriptions;`

	`procedure CreateBoundaryDataSets;`

	`procedure Draw2ElevModflow(const Direction: TViewDirection; const Bitmap32: TBitmap32; AModel: TBaseModel);`

	`procedure Draw2ElevPhast(const Direction: TViewDirection; const Bitmap32: TBitmap32);`

	`procedure Draw2ElevSutra(const Direction: TViewDirection; const Bitmap32: TBitmap32);`

	`procedure SetValueStorageField(const Value: TValueArrayStorage; var StoredValues: TValueArrayStorage);`

	`procedure CreateValueArrayStorage(var StoredValues: TValueArrayStorage);`

	`procedure DrawModflowSideSegmentRightOutsideAbove( SidePoints: T2DRealPointArray; LocalDelegate: TModflowDelegate; ModflowGrid: TModflowGrid; LayerIndex: Integer; ColIndex: Integer; RowIndex: Integer; SegmentList: TList);`

	`procedure DrawModflowSideSegmentAboveOutsideRight( RowIndex: Integer; ColIndex: Integer; LayerIndex: Integer; ModflowGrid: TModflowGrid; LocalDelegate: TModflowDelegate; SidePoints: T2DRealPointArray; SegmentList: TList);`

	`procedure DrawModflowSideSegmentAboveOutsideLeft( SidePoints: T2DRealPointArray; RowIndex: Integer; ColIndex: Integer; LayerIndex: Integer; LocalDelegate: TModflowDelegate; SegmentList: TList);`

	`procedure DrawModflowSideSegmentLeftOutsideAbove( RowIndex: Integer; ColIndex: Integer; LayerIndex: Integer; LocalDelegate: TModflowDelegate; SidePoints: T2DRealPointArray; SegmentList: TList);`

	`procedure DrawModflowSideSegmentAboveRight(SidePoints: T2DRealPointArray; RowIndex: Integer; ColIndex: Integer; LayerIndex: Integer; ModflowGrid: TModflowGrid; LocalDelegate: TModflowDelegate; SegmentList: TList);`

	`procedure DrawModflowSideSegmentAboveLeft( RowIndex: Integer; ColIndex: Integer; LayerIndex: Integer; LocalDelegate: TModflowDelegate; SidePoints: T2DRealPointArray; SegmentList: TList);`

	`procedure DrawModflowSideSegmentBottomLeft(SidePoints: T2DRealPointArray; RowIndex: Integer; ColIndex: Integer; LayerIndex: Integer; ModflowGrid: TModflowGrid; LocalDelegate: TModflowDelegate; SegmentList: TList);`

	`procedure DrawModflowSideSegmentTopLeft( RowIndex: Integer; ColIndex: Integer; LayerIndex: Integer; LocalDelegate: TModflowDelegate; SidePoints: T2DRealPointArray; SegmentList: TList);`

	`procedure DrawModflowSideSegmentInsideTopRight(LayerIndex: Integer; ModflowGrid: TModflowGrid; LocalDelegate: TModflowDelegate; SidePoints: T2DRealPointArray; RowIndex: Integer; ColIndex: Integer; SegmentList: TList);`

	`procedure DrawModflowSideSegmentInsideBottomRight( SidePoints: T2DRealPointArray; RowIndex: Integer; ColIndex: Integer; LayerIndex: Integer; ModflowGrid: TModflowGrid; LocalDelegate: TModflowDelegate; SegmentList: TList);`

	`procedure DrawModflowSideSegmentInsideBottomLeft( SidePoints: T2DRealPointArray; RowIndex: Integer; ColIndex: Integer; LayerIndex: Integer; ModflowGrid: TModflowGrid; LocalDelegate: TModflowDelegate; SegmentList: TList);`

	`procedure DrawModflowSideSegmentInsideTopLeft(ModflowGrid: TModflowGrid; LocalDelegate: TModflowDelegate; var SidePoints: T2DRealPointArray; RowIndex: Integer; ColIndex: Integer; LayerIndex: Integer; SegmentList: TList);`

	`procedure DrawModflowFrontSegmentRightOutsideAbove( FrontPoints: T2DRealPointArray; RowIndex: Integer; ColIndex: Integer; LayerIndex: Integer; ModflowGrid: TModflowGrid; LocalDelegate: TModflowDelegate; SegmentList: TList);`

	`procedure DrawModflowFrontSegmentAboveOutsideRight( LocalDelegate: TModflowDelegate; FrontPoints: T2DRealPointArray; RowIndex: Integer; ColIndex: Integer; LayerIndex: Integer; ModflowGrid: TModflowGrid; SegmentList: TList);`

	`procedure DrawModflowFrontSegmentAboveOutsideLeft( FrontPoints: T2DRealPointArray; RowIndex: Integer; ColIndex: Integer; LayerIndex: Integer; LocalDelegate: TModflowDelegate; SegmentList: TList);`

	`procedure DrawModflowFrontSegmentLeftOutsideAbove( FrontPoints: T2DRealPointArray; RowIndex: Integer; ColIndex: Integer; LayerIndex: Integer; LocalDelegate: TModflowDelegate; SegmentList: TList);`

	`procedure DrawModflowFrontSegmentAboveRight( RowIndex: Integer; ColIndex: Integer; LayerIndex: Integer; ModflowGrid: TModflowGrid; LocalDelegate: TModflowDelegate; FrontPoints: T2DRealPointArray; SegmentList: TList);`

	`procedure DrawModflowFrontSegmentAboveLeft( FrontPoints: T2DRealPointArray; RowIndex: Integer; ColIndex: Integer; LayerIndex: Integer; LocalDelegate: TModflowDelegate; SegmentList: TList);`

	`procedure DrawModflowFrontSegmentBottomLeft(ModflowGrid: TModflowGrid; LocalDelegate: TModflowDelegate; FrontPoints: T2DRealPointArray; RowIndex: Integer; ColIndex: Integer; LayerIndex: Integer; SegmentList: TList);`

	`procedure DrawModflowFrontSegmentTopLeft( RowIndex: Integer; ColIndex: Integer; LayerIndex: Integer; LocalDelegate: TModflowDelegate; FrontPoints: T2DRealPointArray; SegmentList: TList);`

	`procedure DrawModflowFrontSegmentInsideTopRight( FrontPoints: T2DRealPointArray; RowIndex: Integer; ColIndex: Integer; LayerIndex: Integer; ModflowGrid: TModflowGrid; LocalDelegate: TModflowDelegate; SegmentList: TList);`

	`procedure DrawModflowFrontSegmentInsideBottomRight( RowIndex: Integer; ColIndex: Integer; LayerIndex: Integer; ModflowGrid: TModflowGrid; LocalDelegate: TModflowDelegate; FrontPoints: T2DRealPointArray; SegmentList: TList);`

	`procedure DrawModflowFrontSegmentInsideBottomLeft( FrontPoints: T2DRealPointArray; RowIndex: Integer; ColIndex: Integer; LayerIndex: Integer; ModflowGrid: TModflowGrid; LocalDelegate: TModflowDelegate; SegmentList: TList);`

	`procedure DrawModflowFrontSegmentInsideTopLeft( var FrontPoints: T2DRealPointArray; RowIndex: Integer; ColIndex: Integer; LayerIndex: Integer; ModflowGrid: TModflowGrid; LocalDelegate: TModflowDelegate; SegmentList: TList);`

	`procedure DrawModflowTopSegmentRightOutsideAbove( RowIndex: Integer; ColIndex: Integer; SegmentList: TList; LayerIndex: Integer; ModflowGrid: TModflowGrid; LocalDelegate: TModflowDelegate);`

	`procedure DrawModflowTopSegmentAboveOutsideRight( RowIndex: Integer; ColIndex: Integer; SegmentList: TList; LayerIndex: Integer; ModflowGrid: TModflowGrid; LocalDelegate: TModflowDelegate);`

	`procedure DrawModflowTopSegmentAboveOutsideLeft( RowIndex: Integer; ColIndex: Integer; SegmentList: TList; LayerIndex: Integer; ModflowGrid: TModflowGrid; LocalDelegate: TModflowDelegate);`

	`procedure DrawModflowTopSegmentLeftOutsideAbove( RowIndex: Integer; ColIndex: Integer; SegmentList: TList; LayerIndex: Integer; ModflowGrid: TModflowGrid; LocalDelegate: TModflowDelegate);`

	`procedure DrawModflowTopSegmentAboveRight( RowIndex: Integer; ColIndex: Integer; SegmentList: TList; LayerIndex: Integer; ModflowGrid: TModflowGrid; LocalDelegate: TModflowDelegate);`

	`procedure DrawModflowTopSegmentAboveLeft( RowIndex: Integer; ColIndex: Integer; SegmentList: TList; LayerIndex: Integer; ModflowGrid: TModflowGrid; LocalDelegate: TModflowDelegate);`

	`procedure DrawModflowTopSegmentBottomLeft( RowIndex: Integer; ColIndex: Integer; SegmentList: TList; LayerIndex: Integer; ModflowGrid: TModflowGrid; LocalDelegate: TModflowDelegate);`

	`procedure DrawModflowTopSegmentTopLeft( RowIndex: Integer; ColIndex: Integer; SegmentList: TList; LayerIndex: Integer; ModflowGrid: TModflowGrid; LocalDelegate: TModflowDelegate);`

	`procedure DrawModflowTopSegmentInsideTopRight(ModflowGrid: TModflowGrid; LocalDelegate: TModflowDelegate; RowIndex: Integer; ColIndex: Integer; SegmentList: TList; LayerIndex: Integer);`

	`procedure DrawModflowTopSegmentInsideBottomRight(RowIndex: Integer; ColIndex: Integer; SegmentList: TList; LayerIndex: Integer; ModflowGrid: TModflowGrid; LocalDelegate: TModflowDelegate);`

	`procedure DrawModflowTopSegmentInsideBottomLeft(SegmentList: TList; LayerIndex: Integer; ModflowGrid: TModflowGrid; LocalDelegate: TModflowDelegate; RowIndex: Integer; ColIndex: Integer);`

	`procedure DrawModflowTopSegmentInsideTopLeft(RowIndex: Integer; ColIndex: Integer; SegmentList: TList; LayerIndex: Integer; ModflowGrid: TModflowGrid; LocalDelegate: TModflowDelegate);`

	`procedure DrawSegmentList(const Direction: TViewDirection; const Bitmap32: TBitmap32; SegmentList: TList);`

	`procedure UpdateHigherElevationSubscriptions(var NewFormula: string; OldFormula: string);`

	`procedure UpdateLowerElevationSubscriptions(var NewFormula: string; OldFormula: string);`

	`procedure UpdateElevationSubscriptions(var NewFormula: string; OldFormula: string);`

	`procedure CreateGpcPolygon;`

	`procedure EvaluateDataArrayExpression(const DataSet: TDataArray; var Expression: TExpression; const Compiler: TRbwParser);`

	`procedure DrawPointMarker(LineColor32: TColor32; FillColor32: TColor32; const Bitmap32: TBitmap32; IntPoint: TPoint; LineWidth: Single; PointWithValue: boolean);`

	`procedure SetElevationFormulaParser;`

	`function GetElevationCompiler: TRbwParser;`

	`procedure SetHigherElevationFormulaParser;`

	`procedure SetLowerElevationFormulaParser;`

	`procedure CreateElevationFormulaObject;`

	`procedure CreateHigherElevationFormulaObject;`

	`procedure CreateLowerElevationFormulaObject;`

	`procedure CreateFormulaObjects;`

	`procedure SetFormulaParsers;`

	`procedure CreateOrRetrieveFormulaObject(const Index: Integer; ADataSet: TDataArray; var FormulaObject: TFormulaObject);`

	`procedure RemoveSubscriptionFromList(const AName: string; Sender: TObject; List: TList; SubscriptionList: TObjectList);`

	`procedure RestoreSubscriptionToList(List: TList; const AName: string; Sender: TObject; Subscriptions: TObjectList);`

	`function GetTestDataArray(const DataSet: TDataArray): TDataArray;`

	`procedure AddTopGridSegments(AModel: TBaseModel; const EvaluatedAt: TEvaluatedAt; LowerElevDataSets: TList; HigherElevExpression: TExpression; LayerLimit: Integer; HigherElevDataSets: TList; LowerElevVariables: TList; const PointsRotated: Boolean; HigherElevVariables: TList; var RotatedPoints: TEdgePointArray; LowerElevExpression: TExpression);`

	`procedure AddTopMeshSegments(AModel: TBaseModel; const EvaluatedAt: TEvaluatedAt; LowerElevDataSets: TList; HigherElevExpression: TExpression; LayerLimit: Integer; HigherElevDataSets: TList; LowerElevVariables: TList; HigherElevVariables: TList; LowerElevExpression: TExpression);`

	`procedure UpdateModel(Model: TBaseModel);`

	`procedure InvalidateModel;`

	`function PhastBoundaryType: TPhastBoundaryTypes;`
`PhastBoundaryType` indicates what sort of PHAST boundary (if any) is specified by this `TScreenObject`.

procedure AssignCellValue(const UsedVariables: TStringList; const DataSet: TDataArray; LayerIndex, RowIndex, ColIndex: integer; const Compiler: TRbwParser; const Annotation: string; var Expression: TExpression; const OtherData: TObject);

AssignCellValue assigns a value to a particular cell in DataSet.

In AssignCellValue:

(1) If OtherData = nil or not TInterpValuesItem(OtherData).Values.UsePHAST_Interpolation, AssignCellValue evaluates Expression using Compiler and assigns the result to DataSet at the location (LayerIndex, RowIndex, ColIndex). The variables listed in UsedVariables are updated before Expression is evaluated. OtherData can be used when overriding AssignCellValue to pass additional data to the procedure. DataSet.Annotation at location (LayerIndex, RowIndex, ColIndex) is assigned the value of Annotation

(2) Otherwise, values are assigned to DataSet at the location LayerIndex, RowIndex, ColIndex using PHAST-style interpolation. (See TPhastInterpolationValues.) Expression and Compiler are not used in this case and the variables listed in UsedVariables are not updated.

OtherData is set in IsBoundaryTimeDataSetUsed.

	`procedure AssignValuesToFrontDataSet( const DataSet: TDataArray; OtherData: TObject; AModel: TBaseModel; UseLgrEdgeCells: TLgrCellTreatment);`
`AssignValuesToFrontDataSet` calls (Delegate).AssignValuesToFrontDataSet.

	`procedure AssignValuesToSideDataSet( const DataSet: TDataArray; OtherData: TObject; AModel: TBaseModel; UseLgrEdgeCells: TLgrCellTreatment);`
`AssignValuesToSideDataSet` calls (Delegate).AssignValuesToSideDataSet.

	`procedure AssignValuesToTopDataSet( const DataSet: TDataArray; OtherData: TObject; AModel: TBaseModel);`
`AssignValuesToTopDataSet` initializes variables needed by the formula for the TDataArray and then assigns values to the data set based on that formula for intersected and enclosed cells or elements. `AssignValuesToTopDataSet` is only used when ViewDirection = vdTop. See AssignValuesToDataSet.

	`function BoundaryType: integer;`
`BoundaryType` returns an integer that indicates what type of PHAST boundary condition, if any, is specified by this `TScreenObject`.

	`function CanAddDataSet(const DataSet: TDataArray): boolean;`
`CanAddDataSet` returns `True` if DataSet can be added to the `TScreenObject`.

function DataSetUsed(const DataSet: TDataArray; var OtherData: TObject; AModel: TBaseModel): boolean;

DataSetUsed returns True if

DataSet is a TSparseArrayPhastInterpolationDataSet,
DataSet is a TCustomPhastDataSet and DataSet is specified by this TScreenObject, or
the value of DataSet is set by this TScreenObject or if DataSet equals TopBoundaryType, FrontBoundaryType, SideBoundaryType, or Top2DBoundaryType.

OtherData may be changed in DataSetUsed.

	`function EncloseAnnotation(const DataSetFormula: string; const OtherData: TObject): string;`
`EncloseAnnotation` returns a string that indicates that the value of a cell or element was specified by being enclosed in this `TScreenObject` and how the value at that location was determined.

	`function GetCompiler(const Orientation: TDataSetOrientation): TRbwParser; overload;`
`GetCompiler` gets a TRbwParser consistent with Orientation and EvaluatedAt.

	`function GetCompiler(const Orientation: TDataSetOrientation; const EvaluatedAt: TEvaluatedAt): TRbwParser; overload;`

	`function Get1DCompiler: TRbwParser;`

	`procedure GetRotatedPoints(out RotatedPoints: TRealPointArray);`
`GetRotatedPoints` sets RotatedPoints to be an array of TPoint2Ds in the coordinate system of the grid.

procedure InitializeExpression(out Compiler: TRbwParser; out DataSetFormula: string; out Expression: TExpression; const DataSet: TDataArray; const OtherData: TObject);

InitializeExpression

gets the proper DataSetFormula to apply to DataSet,
gets the proper TRbwParser for DataSet, and
compiles DataSetFormula to get Expression.

However, it doesn't need to do any of that is PHAST-style interpolation is used. See TPhastInterpolationValues.

Parameters

Compiler: is the correct TRbwParser to use with DataSet.
DataSetFormula: is the formula that will be used to assign values to DataSet.
Expression: is the TExpression that will be used to assign values to DataSet.
DataSet: is the TDataArray to which values will be assigned.
OtherData: can be used to pass other data to InitializeExpression. It is an TInterpValuesItem

	`procedure InitializeVariables(const UsedVariables: TStringList; const DataSet: TDataArray; const Expression: TExpression; const Compiler: TRbwParser); virtual;`
`InitializeVariables` fills UsedVariables with the names of the variables use by Expression. It initializes the TDataArrays associated with those variables.

	`function IntersectAnnotation(const DataSetFormula: string; const OtherData: TObject): string;`
`IntersectAnnotation` provides a string that can be used in annotations to indicate that the value of a cell or element has been set by virtue of being intersected by a `TScreenObject` and how the value at that location was determined.

	`function Intersection(const Point1, Point2: TPoint2D; StartIndex: Integer; out IntersectPoint: TPoint2D): TIntersectResult;`
Intersection is used when determining whether adding a point to a `TScreenObject` will cause it to intersect itself. Point1 and Point2 define a line segment. IntersectPoint is the point of intersection (if one exists) between the last section of `TScreenObject` and the line segment. `Intersection` returns True if the line segment intersects the `TScreenObject`.

	`function IsBoundaryTimeDataSetUsed(const DataSet: TDataArray; out OtherData: TObject): boolean;`
`IsBoundaryTimeDataSetUsed` returns `True` if DataSet is specified by a boundary condition and, if so, sets OtherData to the relevant TCustomPhastBoundaryCondition. if `IsBoundaryTimeDataSetUsed` returns `False`, OtherData is set to nil.

	`procedure Loaded; override;`

procedure OtherIndex(const LayerOrRow, RowOrColumn: integer; out First, Last: integer; const DataSet: TDataArray);

The purpose of OtherIndex is to get First and Last. They are the indices of the first and last layer, row, or column perpendicular to the plain of TViewDirection that are enclosed or intersected by the TScreenObject.

In commented-out code, First and Last and changed to frmGoPhast.PhastGrid.LayerCount for river data sets. It has been commented-out because it messes up the display of the river data on the status bar.

It would be good to find a way around this problem.

	`procedure RotatePoints(AModel: TBaseModel; out RotatedPoints: TEdgePointArray; out TempMinX, TempMinY, TempMaxX, TempMaxY: double);`
`RotatePoints` sets RotatedPoints to be Points rotated to the grid coordinate system. TempMinX, TempMinY, TempMaxX, TempMaxY are set to the minimum and maximum X and Y coordinates of any of the points in the `TScreenObject` in the Grid coordinate system.

	`procedure SetElevationFormula(NewFormula: string); virtual;`
See ElevationFormula. `SetElevationFormula` makes changes in the TObservers as required.

	`procedure SetGeometryUpToDate; virtual;`
`SetGeometryUpToDate` sets UpToDate to true as well as FElevSubscription, FTopElevSubscription, and FBottomElevSubscription.

	`procedure SetHigherElevationFormula(NewFormula: string); virtual;`
See HigherElevationFormula. `SetHigherElevationFormula` makes changes in the TObservers as required.

	`procedure SetLowerElevationFormula(NewFormula: string); virtual;`
See LowerElevationFormula. `SetLowerElevationFormula` makes changes in the TObservers as required.

	`procedure SetName(const Value: TComponentName); override;`
See Name.

procedure SetUpToDate(const Value: boolean); override;

SetUpToDate calls inherited. Then if Value is True,

SetUpToDate sets all the TObserver.UpToDate to True for all TObservers in FDataSetSubscriptions.
SetUpToDate sets all the TObserver.UpToDate to True for all TObservers in FDataSetMixtureSubscriptions.

	`procedure SetViewDirection(const Value: TViewDirection); virtual;`
See ViewDirection.

	`procedure UpdateVariables(const UsedVariables: TStringList; const DataSet: TDataArray; Layer, Row, Column: integer; const Compiler: TRbwParser);`
`UpdateVariables` gets the variables names from UsedVariables and gets the corresponding TCustomValues from Compiler. It sets each TCustomValue to have the value of its corresponding data set at the location specified by Layer, Row, Column. However, if the corresponding TDataArray, is a 2D data set, either Layer, Row, or Column is changed to zero.

	`procedure UpdateMixtureExpression;`
`UpdateMixtureExpression` calls TCustomPhastBoundary.UpdateMixtureExpression for FluxBoundary, LeakyBoundary, RiverBoundary, SpecifiedHeadBoundary, and WellBoundary.

	`procedure UpdateFormulaExpression;`

	`function CoordinateCaption: string;`

	`function HigherCoordinateCaption: string;`

	`function LowerCoordinateCaption: string;`

	`function StoreModflowHfbBoundary: Boolean;`

	`function StoreModflowMnw2Boundary: Boolean;`

	`function StoreMt3dmsConcBoundary: Boolean;`

	`function StoreMt3dmsTransObservations: Boolean;`

	`function StoreModflowUzfBoundary: Boolean;`

	`function StoreModflowHeadObservations: Boolean;`

	`function StoreModflowSfrBoundary: Boolean;`

	`function StoreModflowRchBoundary: Boolean;`

	`function StoreModflowEvtBoundary: Boolean;`

	`function StoreModflowEtsBoundary: Boolean;`

	`function StoreModflowResBoundary: Boolean;`

	`function StoreModflowLakBoundary: Boolean;`

	`function StoreModflowChdBoundary: Boolean;`

	`function StoreModflowDrnBoundary: Boolean;`

	`function StoreModflowDrtBoundary: Boolean;`

	`function StoreModflowGhbBoundary: Boolean;`

	`function StoreModflowRivBoundary: Boolean;`

	`function StoreModflowWellBoundary: Boolean;`

	`function StoreWell: boolean;`
`StoreWell` determines whether WellBoundary is stored.

	`function StoreFlux: boolean;`
`StoreFlux` determines whether FluxBoundary is stored.

	`function StoreRiver: boolean;`
`StoreRiver` determines whether RiverBoundary is stored.

	`function StoreSpecifiedHead: boolean;`
`StoreSpecifiedHead` determines whether SpecifiedHeadBoundary is stored.

	`function StoreLeaky: boolean;`
`StoreLeaky` determines whether LeakyBoundary is stored.

	`function IsHigher3DElevationAssigned(Col, Row, Layer: integer; Model: TBaseModel): boolean;`

	`function IsLower3DElevationAssigned(Col, Row, Layer: integer; Model: TBaseModel): boolean;`

	`procedure GetCellsToAssign(const Grid: TCustomModelGrid; const DataSetFunction: string; OtherData: TObject; const DataSet: TDataArray; CellList: TCellAssignmentList; AssignmentLocation: TAssignmentLocation; AModel: TBaseModel); overload;`

	`procedure GetCellsToAssign(const Mesh: TSutraMesh3D; const DataSetFunction: string; OtherData: TObject; const DataSet: TDataArray; CellList: TCellAssignmentList; AssignmentLocation: TAssignmentLocation; AModel: TBaseModel); overload;`

	`procedure UpdateUzfGage1and2;`

	`procedure UpdateUzfGage3;`

	`procedure CacheSegments;`

	`procedure BeginUpdate;`

	`procedure EndUpdate;`

	`procedure GetModpathCellList(CellList: TCellAssignmentList; AModel: TBaseModel);`

	`function Delegate: TCustomScreenObjectDelegate;`

	`procedure AssignNumericValueToDataSet(const Grid: TCustomModelGrid; const DataSet: TDataArray; Value: double; AModel: TBaseModel);`

	`procedure CreateChdBoundary;`

	`procedure CreateDrnBoundary;`

	`procedure CreateDrtBoundary;`

	`procedure CreateEtsBoundary;`

	`procedure CreateEvtBoundary;`

	`procedure CreateGhbBoundary;`

	`procedure CreateLakBoundary;`

	`procedure CreateRchBoundary;`

	`procedure CreateResBoundary;`

	`procedure CreateRivBoundary;`

	`procedure CreateSfrBoundary;`

	`procedure CreateWelBoundary;`

	`procedure CreateUzfBoundary;`

	`procedure CreateHfbBoundary;`

	`procedure CreateHeadObservations;`

	`procedure CreateGagBoundary;`

	`procedure CreateMnw2Boundary;`

	`procedure CreateMt3dmsConcBoundary;`

	`procedure CreateMt3dmsTransObservations;`

	`function ModflowDataSetUsed(DataArray: TDataArray; AModel: TBaseModel): boolean;`

	`procedure InvalidateSegments;`

	`procedure MovePointsWhenCreatingScreenObjectByDeletingEdge( DeletedEdge: integer; ExistingObject: TScreenObject);`

	`function AllSectionsClosed: boolean;`

	`Procedure DeleteEdge(EdgeToDelete: integer);`

	`procedure ResetBoundaryMixtureSubscriptions;`
`ResetBoundaryMixtureSubscriptions` calls TCustomPhastBoundaryCondition.ResetMixtureSubscription for each solution boundary condition.

	`procedure ResetMixtureSubscriptions;`
`ResetMixtureSubscriptions` sets UpToDate to `True` for all members of FDataSetMixtureSubscriptions

	`procedure MovePoints(var Dest: TRealPointArray);`

	`procedure MoveToPoints(const SourcePoints: TRealPointArray);`

	`procedure MoveSelectedPoints(var Dest: TBooleanDynArray);`

	`procedure MoveToSelectedPoints(var Source: TBooleanDynArray);`

function AddBoundaryDataSet(const DataSet: TDataArray): integer;

BoundaryDataSets are data sets associated with a boundary condition whose values are set by the object. An example is the hydraulic conductivity of a leaky boundary. AddBoundaryDataSet adds a boundary data set to BoundaryDataSets. The position of the boundary data sets in BoundaryDataSets is the result of the function. This result may then be used to set a formula for the data set in BoundaryDataSetFormulas.

Properties

	`property SubPolygonCount: integer read GetSubPolygonCount;`

	`property SubPolygons[Index:integer]: TSubPolygon read GetSubPolygon;`

	`property EdgePoints[constIndex:integer]: TEdgePoint read GetEdgePoints write SetEdgePoints;`
`EdgePoints` provides a way of accessing Points using TEdgePoints instead of TPoint2Ds.

	`property MixtureDataSetFormula[constIndex:integer]: string read GetMixtureDataSetFormula write SetMixtureDataSetFormula;`
`MixtureDataSetFormula` is used to access the formula for the Mixture specified by Index when PHAST style interpolation is used with a mixture. See TPhastInterpolationValues.

	`property ModflowBoundaries: TModflowBoundaries read GetModflowBoundaries;`

	`property Higher3DElevations[AModel:TBaseModel]: T3DSparseRealArray read GetHigher3DElevations;`
`Higher3DElevations` contains a set of higher elevations for points that could be in the `TScreenObject`. It is indexed by [Layer, Row, Column].

	`property Lower3DElevations[AModel:TBaseModel]: T3DSparseRealArray read GetLower3DElevations;`
`Lower3DElevations` contains a set of lower elevations for points that could be in the `TScreenObject`. It is indexed by [Layer, Row, Column].

	`property FullObjectIntersectLength: Boolean read FFullObjectIntersectLength write FFullObjectIntersectLength;`

	`property ElevSubscription: TObserver read GetElevSubscription;`

	`property TopElevSubscription: TObserver read GetTopElevSubscription;`

	`property BottomElevSubscription: TObserver read GetBottomElevSubscription;`

	`property SectionCount: integer read GetSectionCount;`

	`property SectionStart[constIndex:integer]: integer read GetSectionStart;`

	`property SectionEnd[constIndex:integer]: integer read GetSectionEnd;`

	`property SectionClosed[constIndex:integer]: boolean read GetSectionClosed;`

	`property SectionLength[constIndex:integer]: integer read GetSectionLength;`

	`property NeedToResetSelectedVertexCount: boolean read FNeedToResetSelectedVertexCount write FNeedToResetSelectedVertexCount;`
`NeedToResetSelectedVertexCount` indicates whether or not SelectedVertexCount is up-to-date. If it isn't, it will be recalculated when needed.

	`property BottomElevation: real read FBottomElevation;`

	`property TopElevation: real read FTopElevation;`

property BoundaryDataSets[constIndex:integer]: TDataArray read GetBoundaryDataSets write SetBoundaryDataSets;

BoundaryDataSets are data sets associated with a boundary condition whose values are set by the object. An example is the hydraulic conductivity of a leaky boundary.

	`FGpcPolygons: TGpcPolygonClass;`
each contour in `FGpcPolygons` contains one of the closed sections of this instance of `TScreenObject`.

	`FIsUpdating: boolean;`
`FIsUpdating` is true during UpdateScreenObject.

	`function IsAnyPointInSubPolygonCloser(const Location: TPoint2D; var Distance: real; out ClosestLocation: TPoint2D; const Anisotropy: real; const ASubPolygon: TSubPolygon): boolean;`
`IsAnyPointInSubPolygonCloser` tests whether any point on the two TSubPolygons is closer to Location than Distance. If so, `IsAnyPointInSubPolygonCloser` returns `True` and Distance is set to the distance to the closest point on The `TScreenObject` and ClosestLocation is set to the location whose point was closest to Location.

	`procedure AddPoint(const APoint: TPoint2D; NewPart: boolean);`
`AddPoint` adds a point to Points. If CheckPoint is true, each point is checked for validity when added. A point is invalid if it causes the `TScreenObject` to cross itself.

	`procedure Assign(Source: TPersistent); override;`
In `Assign`, if Source is a `TScreenObject`, its properties are copied into the current `TScreenObject`.

	`procedure AssignValuesToDataSet(const DataSet: TDataArray; AModel: TBaseModel; UseLgrEdgeCells: TLgrCellTreatment); virtual;`
`AssignValuesToDataSet` is a key method of `TScreenObject`. It is used to assign values to a data set based on the function for that data set. `AssignValuesToDataSet` first checks whether it should set the values DataSet and if so, does. It calls one of the protected procedures AssignValuesToTopDataSet, AssignValuesToFrontDataSet, or AssignValuesToSideDataSet to do most of the work.

	`function BoundaryDataSetCount: integer;`
`BoundaryDataSetCount` is the number of boundary BoundaryDataSets affected by the `TScreenObject`.

	`function BoundaryTypeUsed: TPhastBoundaryTypes;`
`BoundaryTypeUsed` returns `True` if this `TScreenObject` affects a boundary condition.

	`procedure Changed(Sender: TObject);`
`Changed` is an event handler for TObserver.OnUpToDateSet for FElevSubscription, FTopElevSubscription, and FBottomElevSubscription. If Sender ( = TObserver) isn't up to date, the `TScreenObject` is invalidated. (See Invalidate.)

	`procedure ClearBoundaryDataSets; virtual;`
`ClearBoundaryDataSets` removes all the members from BoundaryDataSets.

	`procedure ClearDataSets; virtual;`
`ClearDataSets` clears InterpValues. `ClearDataSets` also unsubscribes to everything in FDataSetMixtureSubscriptions and clears FDataSetMixtureSubscriptions. `ClearDataSets` removes all the members from DataSets. This involves unsubscribing to all the subscriptions related to all members of DataSets

	`procedure ClearPoints;`
`ClearPoints` removes all the members from Points.

	`procedure ClearSelectedVertices;`
If any individual vertices in an object are selected, `ClearSelectedVertices` unselects them.

	`function Closed: boolean;`
`Closed` returns true if an object is closed.

	`procedure CopyPoints(var Destination: TRealPointArray; const Position, Start: integer; var Count: integer);`
`CopyPoints` copies TPoint2Ds from Points into Destination. Position is the location in Destination where the first of the Points will be copied. Start is the location of the first point in Points to be copied. Count is the number of points to be copied. However, the number of points actually copied may be less than Count if there are not enough points in Count

	`constructor Create(AnOwner: TComponent); override;`
`Create` creates a `TScreenObject`.

	`constructor CreateWithViewDirection(const Model: TBaseModel; const AViewDirection: TViewDirection; out UndoCreateScreenObject: TCustomUndo; const UndoAble: boolean = True); virtual;`
`CreateWithViewDirection` creates a `TScreenObject`, assigns it a name and if UndoAble is true, creates a TUndoCreateScreenObject that may be used to undo or redo creation of the `TScreenObject`.

	`procedure DeletePoint(const Index: Integer);`
`DeletePoint` removes the point at Index from Points. It does not check that removing that point will still keep the Points all valid. For example, it does not check that the screen object does not cross itself after deleting a point.

	`destructor Destroy; override;`
`Destroy` destroys the `TScreenObject`. `Destroy` should not be called directly. Call Free instead.

	`function DistanceToScreenObject(const Location: TPoint2D; out ClosestLocation: TPoint2D; const Anisotropy: real; out SectionIndex: integer): real;`
`DistanceToScreenObject` returns the distance from Location to the closest point on the `TScreenObject`. ClosestLocation will be set to that location. Anisotropy is taken into account when computing the distance.

Class TScreenObject

Unit

Declaration

Description

Hierarchy

Overview

Fields

Methods

Properties

Description

Fields

See also

Methods

See also

See also

Parameters

Parameters

Parameters

Parameters

Parameters

Parameters

Parameters

Parameters

Parameters

Parameters

Parameters

Parameters

Parameters

Parameters

Parameters

Parameters

Parameters

Parameters

Parameters

Parameters

Parameters

Parameters

Parameters

See also

See also

See also

See also

Properties

See also

See also

See also

See also

See also

	`procedure Draw(Const Bitmap32: TBitmap32; const Direction: TViewDirection; const DrawAsSelected: Boolean = False); virtual;`
`Draw` is the primary routine for drawing a `TScreenObject`. Bitmap32 is the TBitmap32 on which the TScreenObject should be drawn. Direction is the direction from which the `TScreenObject` will be viewed. DrawAsSelected indicates whether the screen object should be drawn as a selected `TScreenObject`. (See DrawSelected.)

	`procedure DrawSelected( const BitMap32: TBitmap32; const Direction: TViewDirection);`
If a `TScreenObject` is Selected, `DrawSelected` calls Draw with DrawAsSelected = True. DrawSelected is used for drawing just the selected `TScreenObject` so that the entire view of the model doesn't need to be redrawn when just the selected screen objects have changed.

	`function GetBoundaryCollection(const TimeList: TPhastTimeList): TCustomPhastBoundaryCollection;`
`GetBoundaryCollection` returns the TCustomPhastBoundaryCollection one of whose TPhastTimeLists is TimeList.

	`function IndexOfBoundaryDataSet(const DataSet: TDataArray): integer;`
`IndexOfBoundaryDataSet` returns the position of DataSet in BoundaryDataSets.

	`function IndexOfDataSet(const DataSet: TDataArray): integer;`
IndexOfDataSet returns the position of DataSet in DataSets.

	`function IndexOfPoint(const APoint: TPoint2D): integer;`
`IndexOfPoint` returns the first position of APoint in Points. An exact match is required.

	`procedure InsertBoundaryDataSet(const Index: Integer; const DataSet: TDataArray); virtual;`
`InsertBoundaryDataSet` inserts DataSet in BoundaryDataSets at Index if it is not already in BoundaryDataSets.

	`procedure InsertPoint(const Index: Integer; const APoint: TPoint2D);`
`InsertPoint` inserts APoint in Points at Index. It does not check that the point that is inserted will leave the `TScreenObject` in a valid state. For instance, the `TScreenObject` might cross itself after `InsertPoint`.

	`procedure Invalidate;`
`Invalidate` is called when the `TScreenObject` has been changed. Everything that depends on the `TScreenObject` gets notified of the change

	`procedure InvalidateCoordinates;`
`InvalidateCoordinates` is called when the CanvasCoordinates need to be recalculated. The recalculation does not occur until the next time the CanvasCoordinates are needed.