Class THeadObsCollection

Unit

ModflowHeadObsResults

Declaration

type THeadObsCollection = class(TPhastCollection)

Description

TPhastCollection invalidates the model when it is changed.

Hierarchy

• TCollection
• TPhastCollection
• THeadObsCollection

Overview

Fields

	FFileName: string;
	FFileDate: TDateTime;
	FMaxTimeLimit: TColoringLimit;
	FMaxResidualLimit: TColoringLimit;
	FMinTimeLimit: TColoringLimit;
	FMinResidualLimit: TColoringLimit;
	FPositiveColor: TColor;
	FNegativeColor: TColor;
	FPositiveColor32: TColor32;
	FNegativeColor32: TColor32;
	FMaxResidual: double;
	FMaxSymbolSize: integer;
	FDisplayResiduals: boolean;

Methods

	procedure SetFileName(const Value: string);
	procedure SetFileDate(const Value: TDateTime);
	procedure SetMaxResidualLimit(const Value: TColoringLimit);
	procedure SetMaxTimeLimit(const Value: TColoringLimit);
	procedure SetMinResidualLimit(const Value: TColoringLimit);
	procedure SetMinTimeLimit(const Value: TColoringLimit);
	function GetHeadObs(Index: Integer): THeadObsItem;
	procedure UpdateVisibleItems(Sender: TObject);
	procedure SetNegativeColor(const Value: TColor);
	procedure SetPositiveColor(const Value: TColor);
	procedure SetMaxSymbolSize(const Value: integer);
	procedure SetDisplayResiduals(const Value: boolean);
	procedure Assign(Source: TPersistent); override;
	constructor Create(Model: TBaseModel);
	destructor Destroy; override;
	procedure Draw(const BitMap: TBitmap32; const ZoomBox: TQRbwZoomBox2);
	function ReadFromFile: boolean;
	procedure CalculateMaxResidual;

Properties

	property HeadObs[Index:Integer]: THeadObsItem read GetHeadObs;
	property MaxResidual: double read FMaxResidual write FMaxResidual;
	property FileName: string read FFileName write SetFileName;
	property FileDate: TDateTime read FFileDate write SetFileDate;
	property MaxResidualLimit: TColoringLimit read FMaxResidualLimit write SetMaxResidualLimit;
	property MinResidualLimit: TColoringLimit read FMinResidualLimit write SetMinResidualLimit;
	property MaxTimeLimit: TColoringLimit read FMaxTimeLimit write SetMaxTimeLimit;
	property MinTimeLimit: TColoringLimit read FMinTimeLimit write SetMinTimeLimit;
	property NegativeColor: TColor read FNegativeColor write SetNegativeColor default clRed;
	property PositiveColor: TColor read FPositiveColor write SetPositiveColor default clBlue;
	property MaxSymbolSize: integer read FMaxSymbolSize write SetMaxSymbolSize default 20;
	property Visible: boolean read FDisplayResiduals write SetDisplayResiduals default True;

Description

Fields

	FFileName: string;

	FFileDate: TDateTime;

	FMaxTimeLimit: TColoringLimit;

	FMaxResidualLimit: TColoringLimit;

	FMinTimeLimit: TColoringLimit;

	FMinResidualLimit: TColoringLimit;

	FPositiveColor: TColor;

	FNegativeColor: TColor;

	FPositiveColor32: TColor32;

	FNegativeColor32: TColor32;

	FMaxResidual: double;

	FMaxSymbolSize: integer;

	FDisplayResiduals: boolean;

Methods

	procedure SetFileName(const Value: string);

	procedure SetFileDate(const Value: TDateTime);

	procedure SetMaxResidualLimit(const Value: TColoringLimit);

	procedure SetMaxTimeLimit(const Value: TColoringLimit);

	procedure SetMinResidualLimit(const Value: TColoringLimit);

	procedure SetMinTimeLimit(const Value: TColoringLimit);

	function GetHeadObs(Index: Integer): THeadObsItem;

	procedure UpdateVisibleItems(Sender: TObject);

	procedure SetNegativeColor(const Value: TColor);

	procedure SetPositiveColor(const Value: TColor);

	procedure SetMaxSymbolSize(const Value: integer);

	procedure SetDisplayResiduals(const Value: boolean);

	procedure Assign(Source: TPersistent); override;

	constructor Create(Model: TBaseModel);

	destructor Destroy; override;

	procedure Draw(const BitMap: TBitmap32; const ZoomBox: TQRbwZoomBox2);

	function ReadFromFile: boolean;

	procedure CalculateMaxResidual;

Properties

	property HeadObs[Index:Integer]: THeadObsItem read GetHeadObs;

	property MaxResidual: double read FMaxResidual write FMaxResidual;

	property FileName: string read FFileName write SetFileName;

	property FileDate: TDateTime read FFileDate write SetFileDate;

	property MaxResidualLimit: TColoringLimit read FMaxResidualLimit write SetMaxResidualLimit;

	property MinResidualLimit: TColoringLimit read FMinResidualLimit write SetMinResidualLimit;

	property MaxTimeLimit: TColoringLimit read FMaxTimeLimit write SetMaxTimeLimit;

	property MinTimeLimit: TColoringLimit read FMinTimeLimit write SetMinTimeLimit;

	property NegativeColor: TColor read FNegativeColor write SetNegativeColor default clRed;

	property PositiveColor: TColor read FPositiveColor write SetPositiveColor default clBlue;

	property MaxSymbolSize: integer read FMaxSymbolSize write SetMaxSymbolSize default 20;

	property Visible: boolean read FDisplayResiduals write SetDisplayResiduals default True;