Class TfrmModflowParameters

DescriptionHierarchyFieldsMethodsProperties

Unit

Declaration

type TfrmModflowParameters = class(TfrmCustomGoPhast)

Description

no description available, TfrmCustomGoPhast description follows

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

Overview

Fields

Implicit JvNetscapeSplitter1: TJvNetscapeSplitter;
Implicit pnlRight: TPanel;
Implicit pnlParameterCount: TPanel;
Implicit lblNumParameters: TLabel;
Implicit btnDelete: TBitBtn;
Implicit seNumberOfParameters: TJvSpinEdit;
Implicit rbwParamCountController: TRbwController;
Implicit pnlBottom: TPanel;
Implicit btnHelp: TBitBtn;
Implicit btnOK: TBitBtn;
Implicit btnCancel: TBitBtn;
Implicit tvParameterTypes: TTreeView;
Implicit dgSteadyParameters: TRbwDataGrid4;
Implicit pnlTop: TPanel;
Implicit rdeParamValue: TRbwDataEntry;
Implicit lblParamValue: TLabel;
Implicit cbUseZone: TCheckBox;
Implicit cbUseMultiplier: TCheckBox;
Implicit jvplParameters: TJvPageList;
Implicit jvspSteadyParameters: TJvStandardPage;
Implicit jvspTransientParameters: TJvStandardPage;
Implicit dgTransientParameters: TRbwDataGrid4;
Implicit jvspBlank: TJvStandardPage;
Implicit lblBlankInstruction: TLabel;
Private SteadyParameters: TModflowSteadyParameters;
Private TransientListParameters: TModflowTransientListParameters;
Private PriorNumberOfParameters: integer;
Private CurrentParameterType: TParameterType;
Private ActiveGrid: TRbwDataGrid4;

Methods

Implicit procedure seNumberOfParametersChange(Sender: TObject);
Implicit procedure btnDeleteClick(Sender: TObject);
Implicit procedure dgSteadyParametersSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);
Implicit procedure FormCreate(Sender: TObject); override;
Implicit procedure FormDestroy(Sender: TObject);
Implicit procedure dgSteadyParametersBeforeDrawCell(Sender: TObject; ACol, ARow: Integer);
Implicit procedure tvParameterTypesChange(Sender: TObject; Node: TTreeNode);
Implicit procedure btnOKClick(Sender: TObject);
Implicit procedure seNumberOfParametersEnter(Sender: TObject);
Implicit procedure dgSteadyParametersSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: string);
Implicit procedure dgSteadyParametersStateChange(Sender: TObject; ACol, ARow: Integer; const Value: TCheckBoxState);
Implicit procedure dgSteadyParametersColSize(Sender: TObject; ACol, PriorWidth: Integer);
Implicit procedure dgSteadyParametersMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Implicit procedure dgSteadyParametersMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Implicit procedure rdeParamValueChange(Sender: TObject);
Implicit procedure cbUseZoneClick(Sender: TObject);
Implicit procedure cbUseMultiplierClick(Sender: TObject);
Implicit procedure dgSteadyParametersHorizontalScroll(Sender: TObject);
Private procedure FillTree;
Private procedure GetData;
Private procedure SetData;
Private procedure AssignParameterToRow(RowIndex: Integer; Parameter: TModflowParameter);
Private procedure ClearFirstRow;
Private function NewParameterName: string;
Private procedure ArrangeMultiEditControls;

Description

Fields

Implicit JvNetscapeSplitter1: TJvNetscapeSplitter;
 
Implicit pnlRight: TPanel;
 
Implicit pnlParameterCount: TPanel;
 
Implicit lblNumParameters: TLabel;
 
Implicit btnDelete: TBitBtn;
 
Implicit seNumberOfParameters: TJvSpinEdit;
 
Implicit rbwParamCountController: TRbwController;
 
Implicit pnlBottom: TPanel;
 
Implicit btnHelp: TBitBtn;
 
Implicit btnOK: TBitBtn;
 
Implicit btnCancel: TBitBtn;
 
Implicit tvParameterTypes: TTreeView;
 
Implicit dgSteadyParameters: TRbwDataGrid4;
 
Implicit pnlTop: TPanel;
 
Implicit rdeParamValue: TRbwDataEntry;
 
Implicit lblParamValue: TLabel;
 
Implicit cbUseZone: TCheckBox;
 
Implicit cbUseMultiplier: TCheckBox;
 
Implicit jvplParameters: TJvPageList;
 
Implicit jvspSteadyParameters: TJvStandardPage;
 
Implicit jvspTransientParameters: TJvStandardPage;
 
Implicit dgTransientParameters: TRbwDataGrid4;
 
Implicit jvspBlank: TJvStandardPage;
 
Implicit lblBlankInstruction: TLabel;
 
Private SteadyParameters: TModflowSteadyParameters;
 
Private TransientListParameters: TModflowTransientListParameters;
 
Private PriorNumberOfParameters: integer;
 
Private CurrentParameterType: TParameterType;
 
Private ActiveGrid: TRbwDataGrid4;
 

Methods

Implicit procedure seNumberOfParametersChange(Sender: TObject);
 
Implicit procedure btnDeleteClick(Sender: TObject);
 
Implicit procedure dgSteadyParametersSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);
 
Implicit procedure FormCreate(Sender: TObject); override;
 
Implicit procedure FormDestroy(Sender: TObject);
 
Implicit procedure dgSteadyParametersBeforeDrawCell(Sender: TObject; ACol, ARow: Integer);
 
Implicit procedure tvParameterTypesChange(Sender: TObject; Node: TTreeNode);
 
Implicit procedure btnOKClick(Sender: TObject);
 
Implicit procedure seNumberOfParametersEnter(Sender: TObject);
 
Implicit procedure dgSteadyParametersSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: string);
 
Implicit procedure dgSteadyParametersStateChange(Sender: TObject; ACol, ARow: Integer; const Value: TCheckBoxState);
 
Implicit procedure dgSteadyParametersColSize(Sender: TObject; ACol, PriorWidth: Integer);
 
Implicit procedure dgSteadyParametersMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
 
Implicit procedure dgSteadyParametersMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
 
Implicit procedure rdeParamValueChange(Sender: TObject);
 
Implicit procedure cbUseZoneClick(Sender: TObject);
 
Implicit procedure cbUseMultiplierClick(Sender: TObject);
 
Implicit procedure dgSteadyParametersHorizontalScroll(Sender: TObject);
 
Private procedure FillTree;
 
Private procedure GetData;
 
Private procedure SetData;
 
Private procedure AssignParameterToRow(RowIndex: Integer; Parameter: TModflowParameter);
 
Private procedure ClearFirstRow;
 
Private function NewParameterName: string;
 
Private procedure ArrangeMultiEditControls;
 

Generated by PasDoc 0.12.1 on 2013-05-13 15:41:39