Class THfbBoundary

Unit

ModflowHfbUnit

Declaration

type THfbBoundary = class(TModflowScreenObjectProperty)

Description

Hierarchy

• TPersistent
• TModflowScreenObjectProperty
• THfbBoundary

Overview

Fields

	FAdjustmentMethod: TAdjustmentMethod;
	FThicknessFormula: TFormulaObject;
	FHydraulicConductivityFormula: TFormulaObject;
	FParameterName: string;
	FUsed: boolean;
	FHfbObserver: TObserver;
	FHydraulicConductivityObserver: TObserver;
	FThicknessObserver: TObserver;
	FParameterNameObserver: TObserver;
	FAdjustmentMethodObserver: TObserver;
	FUsedObserver: TObserver;
	FObserverList: TList;

Methods

	procedure SetAdjustmentMethod(const Value: TAdjustmentMethod);
	procedure SetHydraulicConductivity(Value: string);
	procedure SetParameterName(const Value: string);
	procedure SetThickness(const Value: string);
	procedure SetUsed(const Value: boolean);
	function GetHydraulicConductivityObserver: TObserver;
	function GetThicknessObserver: TObserver;
	function GetParameterNameObserver: TObserver;
	procedure HandleChangedValue(Observer: TObserver);
	function GetAdjustmentMethodObserver: TObserver;
	procedure CreateObserver(ObserverNameRoot: string; var Observer: TObserver);
	function GetUsedObserver: TObserver;
	function CreateFormulaObject(Orientation: TDataSetOrientation): TFormulaObject;
	procedure UpdateFormula(Value: string; Position: Integer; var FormulaObject: TFormulaObject);
	procedure UpdateFormulaDependencies(OldFormula: string; var NewFormula: string; Observer: TObserver; Compiler: TRbwParser);
	function GetHydraulicConductivity: string;
	function GetThickness: string;
	procedure ResetItemObserver(Index: integer);
	procedure RemoveSubscription(Sender: TObject; const AName: string);
	procedure RestoreSubscription(Sender: TObject; const AName: string);
	procedure GetPropertyObserver(Sender: TObject; List: TList);
	procedure CreateFormulaObjects;
	Procedure Assign(Source: TPersistent); override;
	Constructor Create(Model: TBaseModel; ScreenObject: TObject);
	destructor Destroy; override;
	function Used: boolean; override;
	procedure HandleChangedParameterValue;
	procedure InvalidateDisplay;

Properties

	property HydraulicConductivityObserver: TObserver read GetHydraulicConductivityObserver;
	property ThicknessObserver: TObserver read GetThicknessObserver;
	property ParameterNameObserver: TObserver read GetParameterNameObserver;
	property AdjustmentMethodObserver: TObserver read GetAdjustmentMethodObserver;
	property UsedObserver: TObserver read GetUsedObserver;
	property HfbObserver: TObserver read FHfbObserver;
	property ParameterName: string read FParameterName write SetParameterName;
	property HydraulicConductivityFormula: string read GetHydraulicConductivity write SetHydraulicConductivity;
	property ThicknessFormula: string read GetThickness write SetThickness;
	property AdjustmentMethod: TAdjustmentMethod read FAdjustmentMethod write SetAdjustmentMethod;
	property IsUsed: boolean read FUsed write SetUsed;

Description

Fields

	FAdjustmentMethod: TAdjustmentMethod;

	FThicknessFormula: TFormulaObject;

	FHydraulicConductivityFormula: TFormulaObject;

	FParameterName: string;

	FUsed: boolean;

	FHfbObserver: TObserver;

	FHydraulicConductivityObserver: TObserver;

	FThicknessObserver: TObserver;

	FParameterNameObserver: TObserver;

	FAdjustmentMethodObserver: TObserver;

	FUsedObserver: TObserver;

	FObserverList: TList;

Methods

	procedure SetAdjustmentMethod(const Value: TAdjustmentMethod);

	procedure SetHydraulicConductivity(Value: string);

	procedure SetParameterName(const Value: string);

	procedure SetThickness(const Value: string);

	procedure SetUsed(const Value: boolean);

	function GetHydraulicConductivityObserver: TObserver;

	function GetThicknessObserver: TObserver;

	function GetParameterNameObserver: TObserver;

	procedure HandleChangedValue(Observer: TObserver);

	function GetAdjustmentMethodObserver: TObserver;

	procedure CreateObserver(ObserverNameRoot: string; var Observer: TObserver);

	function GetUsedObserver: TObserver;

	function CreateFormulaObject(Orientation: TDataSetOrientation): TFormulaObject;

	procedure UpdateFormula(Value: string; Position: Integer; var FormulaObject: TFormulaObject);

	procedure UpdateFormulaDependencies(OldFormula: string; var NewFormula: string; Observer: TObserver; Compiler: TRbwParser);

	function GetHydraulicConductivity: string;

	function GetThickness: string;

	procedure ResetItemObserver(Index: integer);

	procedure RemoveSubscription(Sender: TObject; const AName: string);

	procedure RestoreSubscription(Sender: TObject; const AName: string);

	procedure GetPropertyObserver(Sender: TObject; List: TList);

	procedure CreateFormulaObjects;

	Procedure Assign(Source: TPersistent); override;

	Constructor Create(Model: TBaseModel; ScreenObject: TObject);

	destructor Destroy; override;

	function Used: boolean; override;

	procedure HandleChangedParameterValue;

	procedure InvalidateDisplay;

Properties

	property HydraulicConductivityObserver: TObserver read GetHydraulicConductivityObserver;

	property ThicknessObserver: TObserver read GetThicknessObserver;

	property ParameterNameObserver: TObserver read GetParameterNameObserver;

	property AdjustmentMethodObserver: TObserver read GetAdjustmentMethodObserver;

	property UsedObserver: TObserver read GetUsedObserver;

	property HfbObserver: TObserver read FHfbObserver;

	property ParameterName: string read FParameterName write SetParameterName;

	property HydraulicConductivityFormula: string read GetHydraulicConductivity write SetHydraulicConductivity;

	property ThicknessFormula: string read GetThickness write SetThickness;

	property AdjustmentMethod: TAdjustmentMethod read FAdjustmentMethod write SetAdjustmentMethod;

	property IsUsed: boolean read FUsed write SetUsed;