Class TframeScreenObjectParam

Unit

frameScreenObjectParamUnit

Declaration

type TframeScreenObjectParam = class(TframeScreenObjectNoParam)

Description

TframeScreenObjectParam is used to define time-varying MODFLOW boundary condition data associated with TScreenObjects when parameter instances can be defined.

Typically, the first two columns of dgModflowBoundary will have the start and ending times for the boundary condtion. Following that will be columns representing the values to be assigned the boundary. Then there will be columns representing the MODFLOW parameters associated with the boundary. The objects property of Row 0 will have the TModflowParameter in the column corresponding to the column for that TModflowParameter. clbParameters will indicate which TModflowParameters are in use.

Hierarchy

• TFrame
• TframeScreenObject
• TframeScreenObjectNoParam
• TframeScreenObjectParam

Overview

Fields

	splitHorizontal: TSplitter;
	clbParameters: TJvxCheckListBox;
	FUnselectableColumnsIfParametersUsed: TColumns;
	FParameterColumnSuffix: TStrings;

Methods

	procedure clbParametersStateChange(Sender: TObject; Index: Integer);
	procedure dgModflowBoundarySelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);
	procedure SetUnselectableColumnsIfParametersUsed(const Value: TColumns);
	procedure SetParameterColumnSuffix(const Value: TStrings);
	function ParamColumnCaption(NameIndex: integer): string; virtual;
	procedure InitializeFrame(Boundary: TModflowBoundary);
	constructor Create(AOwner: TComponent); override;
	destructor Destroy; override;

Properties

	property UnselectableColumnsIfParametersUsed: TColumns read FUnselectableColumnsIfParametersUsed write SetUnselectableColumnsIfParametersUsed;
	property ParameterColumnSuffix: TStrings read FParameterColumnSuffix write SetParameterColumnSuffix;

Description

Fields

	splitHorizontal: TSplitter;
splitHorizontal separates clbParameters from dgModflowBoundary.

	clbParameters: TJvxCheckListBox;
clbParameters is used to indicate which parameters are being used.

	FUnselectableColumnsIfParametersUsed: TColumns;
See UnselectableColumnsIfParametersUsed.

	FParameterColumnSuffix: TStrings;
See ParameterColumnSuffix.

Methods

	procedure clbParametersStateChange(Sender: TObject; Index: Integer);
clbParametersStateChange is the OnChange event for clbParameters. clbParametersStateChange inserts columns into dgModflowBoundary or deletes them. When inserting a column, it puts a TModflowParameter in dgModflowBoundaryObjects at Row = 0 and Col = the new column.

	procedure dgModflowBoundarySelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);
dgModflowBoundarySelectCell prevents the user from selecting certain cells.

	procedure SetUnselectableColumnsIfParametersUsed(const Value: TColumns);
See UnselectableColumnsIfParametersUsed.

	procedure SetParameterColumnSuffix(const Value: TStrings);
See ParameterColumnSuffix.

	function ParamColumnCaption(NameIndex: integer): string; virtual;
Private declarations

	procedure InitializeFrame(Boundary: TModflowBoundary);

	constructor Create(AOwner: TComponent); override;

	destructor Destroy; override;

Properties

	property UnselectableColumnsIfParametersUsed: TColumns read FUnselectableColumnsIfParametersUsed write SetUnselectableColumnsIfParametersUsed;
If parameters related to this boundary condition are used anywhere in the model, the user shouldn't be able to select certain columns in dgModflowBoundary. UnselectableColumnsIfParametersUsed indicates which ones it shouldn't be possible to select.

	property ParameterColumnSuffix: TStrings read FParameterColumnSuffix write SetParameterColumnSuffix;
ParameterColumnSuffix is a string appended to the end of a column name.