Class TfrmManageParameters

Unit

frmManageParametersUnit

Declaration

type TfrmManageParameters = class(TfrmCustomGoPhast)

Description

TfrmCustomGoPhast is the ancestor of all TForms in GoPhast.

TfrmCustomGoPhast handles setting the color and font. TfrmCustomGoPhast also tries to keep from appearing at a location where it can't be seen. )

Hierarchy

• TForm
• TfrmCustomGoPhast
• TfrmManageParameters

Overview

Fields

	rdgParameters: TRbwDataGrid4;
	pnlBottom: TPanel;
	lblNumParameters: TLabel;
	seNumberOfParameters: TJvSpinEdit;
	btnDelete: TBitBtn;
	btnOK: TBitBtn;
	btnCancel: TBitBtn;
	btnHelp: TBitBtn;
	btnImportPval: TButton;
	dlgOpenPval: TOpenDialog;
	FSteadyParameters: TModflowSteadyParameters;
	FHufParameters: THufModflowParameters;
	FTransientListParameters: TModflowTransientListParameters;
	FSfrParamInstances: TSfrParamInstances;
	FParamList: TList;
	FDeletingParam: Boolean;

Methods

	procedure FormCreate(Sender: TObject); override;
	procedure FormDestroy(Sender: TObject); override;
	procedure rdgParametersSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: string);
	procedure rdgParametersStateChange(Sender: TObject; ACol, ARow: Integer; const Value: TCheckBoxState);
	procedure btnDeleteClick(Sender: TObject);
	procedure seNumberOfParametersChange(Sender: TObject);
	procedure rdgParametersMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
	procedure btnOKClick(Sender: TObject);
	procedure rdgParametersBeforeDrawCell(Sender: TObject; ACol, ARow: Integer);
	procedure rdgParametersSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);
	procedure btnImportPvalClick(Sender: TObject);
	procedure GetData;
	procedure SetData;
	procedure UpdateParameterTable;
	function ParamValid(ParamType: TParameterType): boolean;
	procedure CreateParameter(ParamIndex: TParameterType; ARow: Integer);
	procedure UpdateParameter(ParamIndex: TParameterType; var AParam: TModflowParameter; ARow: Integer);
	procedure CreateOrUpdateParameter(ARow: Integer);
	procedure DeleteAParam(ARow: Integer);

Description

Fields

	rdgParameters: TRbwDataGrid4;

	pnlBottom: TPanel;

	lblNumParameters: TLabel;

	seNumberOfParameters: TJvSpinEdit;

	btnDelete: TBitBtn;

	btnOK: TBitBtn;

	btnCancel: TBitBtn;

	btnHelp: TBitBtn;

	btnImportPval: TButton;

	dlgOpenPval: TOpenDialog;

	FSteadyParameters: TModflowSteadyParameters;

	FHufParameters: THufModflowParameters;

	FTransientListParameters: TModflowTransientListParameters;

	FSfrParamInstances: TSfrParamInstances;

	FParamList: TList;

	FDeletingParam: Boolean;

Methods

	procedure FormCreate(Sender: TObject); override;

	procedure FormDestroy(Sender: TObject); override;

	procedure rdgParametersSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: string);

	procedure rdgParametersStateChange(Sender: TObject; ACol, ARow: Integer; const Value: TCheckBoxState);

	procedure btnDeleteClick(Sender: TObject);

	procedure seNumberOfParametersChange(Sender: TObject);

	procedure rdgParametersMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

	procedure btnOKClick(Sender: TObject);

	procedure rdgParametersBeforeDrawCell(Sender: TObject; ACol, ARow: Integer);

	procedure rdgParametersSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);

	procedure btnImportPvalClick(Sender: TObject);

	procedure GetData;

	procedure SetData;

	procedure UpdateParameterTable;

	function ParamValid(ParamType: TParameterType): boolean;

	procedure CreateParameter(ParamIndex: TParameterType; ARow: Integer);

	procedure UpdateParameter(ParamIndex: TParameterType; var AParam: TModflowParameter; ARow: Integer);

	procedure CreateOrUpdateParameter(ARow: Integer);

	procedure DeleteAParam(ARow: Integer);