Description | Hierarchy | Fields | Methods | Properties |
type TfrmSelectResultToImport = class(TfrmCustomGoPhast)
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. )
btnHelp: TBitBtn; |
|
btnOK: TBitBtn; |
|
btnCancel: TBitBtn; |
|
odSelectFiles: TJvOpenDialog; |
|
comboColorGrid: TComboBox; |
|
Label1: TLabel; |
|
btnSelectAll: TButton; |
|
btnSelectNone: TButton; |
|
rgDisplayChoice: TRadioGroup; |
|
Panel1: TPanel; |
|
rdgModels: TRbwDataGrid4; |
|
clData: TJvCheckListBox; |
|
splitData: TSplitter; |
|
FPeriods: TIntegerList; |
|
FSteps: TIntegerList; |
|
FTransportSteps: TIntegerList; |
|
FDescriptions: TStringList; |
|
FFileStream: TFileStream; |
|
FFileVariable: TFileVariable; |
|
FResultFormat: TModflowResultFormat; |
|
FAskedUser: Boolean; |
|
FCreateNewDataSet: Boolean; |
|
FMaxPeriod: Integer; |
|
FMaxTrans: integer; |
|
FMaxStep: Integer; |
|
FMaxLayer: Integer; |
|
FGrid: TModflowGrid; |
|
FNewDataSetNames: TStringList; |
|
FNewDefaultDataSetNames: TStringList; |
|
FFormulaAssigners: TFormulaAssignerList; |
|
FModifiedParentDataSets: TList; |
procedure clDataClickCheck(Sender: TObject); |
|
procedure FormCreate(Sender: TObject); override; |
|
procedure FormDestroy(Sender: TObject); override; |
|
procedure btnOKClick(Sender: TObject); |
|
procedure odSelectFilesTypeChange(Sender: TObject); |
|
procedure btnSelectAllClick(Sender: TObject); |
|
procedure btnSelectNoneClick(Sender: TObject); |
|
procedure rdgModelsBeforeDrawCell(Sender: TObject; ACol, ARow: Integer); |
|
procedure rdgModelsButtonClick(Sender: TObject; ACol, ARow: Integer); |
|
function DefaultFileName(AModel: TCustomModel): string; |
|
function OpenResultFile(AFileName: string;out Precision: TModflowPrecision; out HufFormat: boolean): boolean; |
|
procedure ReadArray(var AnArray: TModflowDoubleArray; var EndReached: Boolean; var NTRANS, KPER, KSTP, ILAY: Integer; var TOTIM: TModflowDouble; var Description: string; Precision: TModflowPrecision; ShouldReadArray: boolean); |
|
procedure CreateOrRetrieveLayerDataSet(const Description: string; NTRANS, KSTP, KPER, ILAY: integer; TOTIM: TModflowDouble; out LayerData: TDataArray; out OldComment: string; NewDataSets: TList; ScreenObjectsToDelete: TScreenObjectList; FileNames: string; AModel: TCustomModel; DataArrayForm: TDataArrayForm = dafLayer); |
|
procedure CreateScreenObject(LayerIndex: integer; AModel: TCustomModel; out ScreenObject: TScreenObject); |
|
procedure AssignValues(LayerIndex: integer; ScreenObject: TScreenObject; LayerData: TDataArray; AnArray: TModflowDoubleArray; ValuesToIgnore: TOneDRealArray; AModel: TCustomModel; out MinMaxAssigned: boolean); |
|
procedure CreateOrRetrieve3DDataSet(Description: string; NTRANS, KPER, KSTP: integer; TOTIM: TModflowDouble; LayerNumbers: TIntegerList; LayerDataSets: TList; out New3DArray: TDataArray; out OldComment: string; FluxData: boolean; NewDataSets: TList; FileNames: string; AModel: TCustomModel); |
|
procedure CloseFiles; |
|
procedure Read3DArray(var NLAY: Integer; var EndReached: Boolean; var KPER, KSTP: Integer; var TOTIM: TModflowDouble; var Description: string; var A3DArray: T3DTModflowArray; Precision: TModflowPrecision; HufFormat: boolean; ShouldReadArray: boolean); |
|
procedure Assign3DValues(ScreenObject: TScreenObject; LayerData: TDataArray; AnArray: T3DTModflowArray; LayerIndex: integer; CheckAllLayers: boolean; ValuesToIgnore: TOneDRealArray; AModel: TCustomModel); |
|
procedure SetData; |
|
function AskUserIfNewDataSet: boolean; |
|
procedure AssignLimits(MinValues, MaxValues: TRealList; New3DArray: TDataArray; ValuesToIgnore: TOneDRealArray); |
|
procedure AssignObjectName(var ScreenObject: TScreenObject; LayerData: TDataArray); |
|
procedure UpdateCombo; |
|
procedure GetShouldIgnore(ValuesToIgnore: TOneDRealArray; Temp: TModflowFloat; var ShouldIgnore: Boolean); |
|
function SubsidenceDescription(DESC: String; ILAY: integer): string; |
|
procedure AdjustTotalTime(var TOTIM: TModflowDouble); |
|
procedure AssignWaterTableArray( var WaterTableArray: TModflowDoubleArray; ILAY: Integer; AnArray: TModflowDoubleArray; ValuesToIgnore: TOneDRealArray; const Description: string); |
|
procedure AssignWaterTable(NewDataSets: TList; OldComments: TStringList; DataSetNames: TStringList; ScreenObjectsToDelete: TScreenObjectList; NewCreateScreenObjects: TList; NTRANS, KPER: Integer; WaterTableArray: TModflowDoubleArray; KSTP: Integer; const Description: string; ValuesToIgnore: TOneDRealArray; TOTIM: TModflowDouble; FileNames: string; AModel: TCustomModel); |
|
procedure SetDefaultDisplayOption; |
|
function ReadDataHeadings(AModel: TCustomModel; RowIndex: integer; AFileName: string): boolean; |
|
procedure AddModelRow(AModel: TCustomModel; ARow: integer; AFileName: string); |
|
procedure UpdateOldComments(OldComments: TStringList; ADataArray: TDataArray; OldComment: string); |
|
function SelectFiles: boolean; |
btnHelp: TBitBtn; |
|
btnOK: TBitBtn; |
|
btnCancel: TBitBtn; |
|
odSelectFiles: TJvOpenDialog; |
|
comboColorGrid: TComboBox; |
|
Label1: TLabel; |
|
btnSelectAll: TButton; |
|
btnSelectNone: TButton; |
|
rgDisplayChoice: TRadioGroup; |
|
Panel1: TPanel; |
|
rdgModels: TRbwDataGrid4; |
|
clData: TJvCheckListBox; |
|
splitData: TSplitter; |
|
FPeriods: TIntegerList; |
|
FSteps: TIntegerList; |
|
FTransportSteps: TIntegerList; |
|
FDescriptions: TStringList; |
|
FFileStream: TFileStream; |
|
FFileVariable: TFileVariable; |
|
FResultFormat: TModflowResultFormat; |
|
FAskedUser: Boolean; |
|
FCreateNewDataSet: Boolean; |
|
FMaxPeriod: Integer; |
|
FMaxTrans: integer; |
|
FMaxStep: Integer; |
|
FMaxLayer: Integer; |
|
FGrid: TModflowGrid; |
|
FNewDataSetNames: TStringList; |
|
FNewDefaultDataSetNames: TStringList; |
|
FFormulaAssigners: TFormulaAssignerList; |
|
FModifiedParentDataSets: TList; |
|
procedure clDataClickCheck(Sender: TObject); |
|
procedure FormCreate(Sender: TObject); override; |
|
procedure FormDestroy(Sender: TObject); override; |
|
procedure btnOKClick(Sender: TObject); |
|
procedure odSelectFilesTypeChange(Sender: TObject); |
|
procedure btnSelectAllClick(Sender: TObject); |
|
procedure btnSelectNoneClick(Sender: TObject); |
|
procedure rdgModelsBeforeDrawCell(Sender: TObject; ACol, ARow: Integer); |
|
procedure rdgModelsButtonClick(Sender: TObject; ACol, ARow: Integer); |
|
function DefaultFileName(AModel: TCustomModel): string; |
|
function OpenResultFile(AFileName: string;out Precision: TModflowPrecision; out HufFormat: boolean): boolean; |
|
procedure ReadArray(var AnArray: TModflowDoubleArray; var EndReached: Boolean; var NTRANS, KPER, KSTP, ILAY: Integer; var TOTIM: TModflowDouble; var Description: string; Precision: TModflowPrecision; ShouldReadArray: boolean); |
|
procedure CreateOrRetrieveLayerDataSet(const Description: string; NTRANS, KSTP, KPER, ILAY: integer; TOTIM: TModflowDouble; out LayerData: TDataArray; out OldComment: string; NewDataSets: TList; ScreenObjectsToDelete: TScreenObjectList; FileNames: string; AModel: TCustomModel; DataArrayForm: TDataArrayForm = dafLayer); |
|
procedure CreateScreenObject(LayerIndex: integer; AModel: TCustomModel; out ScreenObject: TScreenObject); |
|
procedure AssignValues(LayerIndex: integer; ScreenObject: TScreenObject; LayerData: TDataArray; AnArray: TModflowDoubleArray; ValuesToIgnore: TOneDRealArray; AModel: TCustomModel; out MinMaxAssigned: boolean); |
|
procedure CreateOrRetrieve3DDataSet(Description: string; NTRANS, KPER, KSTP: integer; TOTIM: TModflowDouble; LayerNumbers: TIntegerList; LayerDataSets: TList; out New3DArray: TDataArray; out OldComment: string; FluxData: boolean; NewDataSets: TList; FileNames: string; AModel: TCustomModel); |
|
procedure CloseFiles; |
|
procedure Read3DArray(var NLAY: Integer; var EndReached: Boolean; var KPER, KSTP: Integer; var TOTIM: TModflowDouble; var Description: string; var A3DArray: T3DTModflowArray; Precision: TModflowPrecision; HufFormat: boolean; ShouldReadArray: boolean); |
|
procedure Assign3DValues(ScreenObject: TScreenObject; LayerData: TDataArray; AnArray: T3DTModflowArray; LayerIndex: integer; CheckAllLayers: boolean; ValuesToIgnore: TOneDRealArray; AModel: TCustomModel); |
|
procedure SetData; |
|
function AskUserIfNewDataSet: boolean; |
|
procedure AssignLimits(MinValues, MaxValues: TRealList; New3DArray: TDataArray; ValuesToIgnore: TOneDRealArray); |
|
procedure AssignObjectName(var ScreenObject: TScreenObject; LayerData: TDataArray); |
|
procedure UpdateCombo; |
|
procedure GetShouldIgnore(ValuesToIgnore: TOneDRealArray; Temp: TModflowFloat; var ShouldIgnore: Boolean); |
|
function SubsidenceDescription(DESC: String; ILAY: integer): string; |
|
procedure AdjustTotalTime(var TOTIM: TModflowDouble); |
|
In the label for data sets, TOTIM will be measured from the end of the first stress period if there are more than one stress period and the first stress period is a steady-state stress period. |
procedure AssignWaterTableArray( var WaterTableArray: TModflowDoubleArray; ILAY: Integer; AnArray: TModflowDoubleArray; ValuesToIgnore: TOneDRealArray; const Description: string); |
|
procedure AssignWaterTable(NewDataSets: TList; OldComments: TStringList; DataSetNames: TStringList; ScreenObjectsToDelete: TScreenObjectList; NewCreateScreenObjects: TList; NTRANS, KPER: Integer; WaterTableArray: TModflowDoubleArray; KSTP: Integer; const Description: string; ValuesToIgnore: TOneDRealArray; TOTIM: TModflowDouble; FileNames: string; AModel: TCustomModel); |
|
procedure SetDefaultDisplayOption; |
|
function ReadDataHeadings(AModel: TCustomModel; RowIndex: integer; AFileName: string): boolean; |
|
Private declarations |
procedure AddModelRow(AModel: TCustomModel; ARow: integer; AFileName: string); |
|
procedure UpdateOldComments(OldComments: TStringList; ADataArray: TDataArray; OldComment: string); |
|
function SelectFiles: boolean; |
|