Class TfrmSelectResultToImport

DescriptionHierarchyFieldsMethodsProperties

Unit

Declaration

type TfrmSelectResultToImport = 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 btnHelp: TBitBtn;
Implicit btnOK: TBitBtn;
Implicit btnCancel: TBitBtn;
Implicit odSelectFiles: TJvOpenDialog;
Implicit comboColorGrid: TComboBox;
Implicit Label1: TLabel;
Implicit btnSelectAll: TButton;
Implicit btnSelectNone: TButton;
Implicit rgDisplayChoice: TRadioGroup;
Implicit Panel1: TPanel;
Implicit rdgModels: TRbwDataGrid4;
Implicit clData: TJvCheckListBox;
Implicit splitData: TSplitter;
Private FPeriods: TIntegerList;
Private FSteps: TIntegerList;
Private FTransportSteps: TIntegerList;
Private FDescriptions: TStringList;
Private FFileStream: TFileStream;
Private FFileVariable: TFileVariable;
Private FResultFormat: TModflowResultFormat;
Private FAskedUser: Boolean;
Private FCreateNewDataSet: Boolean;
Private FMaxPeriod: Integer;
Private FMaxTrans: integer;
Private FMaxStep: Integer;
Private FMaxLayer: Integer;
Private FGrid: TModflowGrid;
Private FNewDataSetNames: TStringList;
Private FNewDefaultDataSetNames: TStringList;
Private FFormulaAssigners: TFormulaAssignerList;
Private FModifiedParentDataSets: TList;

Methods

Implicit procedure clDataClickCheck(Sender: TObject);
Implicit procedure FormCreate(Sender: TObject); override;
Implicit procedure FormDestroy(Sender: TObject); override;
Implicit procedure btnOKClick(Sender: TObject);
Implicit procedure odSelectFilesTypeChange(Sender: TObject);
Implicit procedure btnSelectAllClick(Sender: TObject);
Implicit procedure btnSelectNoneClick(Sender: TObject);
Implicit procedure rdgModelsBeforeDrawCell(Sender: TObject; ACol, ARow: Integer);
Implicit procedure rdgModelsButtonClick(Sender: TObject; ACol, ARow: Integer);
Private function DefaultFileName(AModel: TCustomModel): string;
Private function OpenResultFile(AFileName: string;out Precision: TModflowPrecision; out HufFormat: boolean): boolean;
Private procedure ReadArray(var AnArray: TModflowDoubleArray; var EndReached: Boolean; var NTRANS, KPER, KSTP, ILAY: Integer; var TOTIM: TModflowDouble; var Description: string; Precision: TModflowPrecision; ShouldReadArray: boolean);
Private 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);
Private procedure CreateScreenObject(LayerIndex: integer; AModel: TCustomModel; out ScreenObject: TScreenObject);
Private procedure AssignValues(LayerIndex: integer; ScreenObject: TScreenObject; LayerData: TDataArray; AnArray: TModflowDoubleArray; ValuesToIgnore: TOneDRealArray; AModel: TCustomModel; out MinMaxAssigned: boolean);
Private 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);
Private procedure CloseFiles;
Private 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);
Private procedure Assign3DValues(ScreenObject: TScreenObject; LayerData: TDataArray; AnArray: T3DTModflowArray; LayerIndex: integer; CheckAllLayers: boolean; ValuesToIgnore: TOneDRealArray; AModel: TCustomModel);
Private procedure SetData;
Private function AskUserIfNewDataSet: boolean;
Private procedure AssignLimits(MinValues, MaxValues: TRealList; New3DArray: TDataArray; ValuesToIgnore: TOneDRealArray);
Private procedure AssignObjectName(var ScreenObject: TScreenObject; LayerData: TDataArray);
Private procedure UpdateCombo;
Private procedure GetShouldIgnore(ValuesToIgnore: TOneDRealArray; Temp: TModflowFloat; var ShouldIgnore: Boolean);
Private function SubsidenceDescription(DESC: String; ILAY: integer): string;
Private procedure AdjustTotalTime(var TOTIM: TModflowDouble);
Private procedure AssignWaterTableArray( var WaterTableArray: TModflowDoubleArray; ILAY: Integer; AnArray: TModflowDoubleArray; ValuesToIgnore: TOneDRealArray; const Description: string);
Private 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);
Private procedure SetDefaultDisplayOption;
Private function ReadDataHeadings(AModel: TCustomModel; RowIndex: integer; AFileName: string): boolean;
Private procedure AddModelRow(AModel: TCustomModel; ARow: integer; AFileName: string);
Private procedure UpdateOldComments(OldComments: TStringList; ADataArray: TDataArray; OldComment: string);
Public function SelectFiles: boolean;

Description

Fields

Implicit btnHelp: TBitBtn;
 
Implicit btnOK: TBitBtn;
 
Implicit btnCancel: TBitBtn;
 
Implicit odSelectFiles: TJvOpenDialog;
 
Implicit comboColorGrid: TComboBox;
 
Implicit Label1: TLabel;
 
Implicit btnSelectAll: TButton;
 
Implicit btnSelectNone: TButton;
 
Implicit rgDisplayChoice: TRadioGroup;
 
Implicit Panel1: TPanel;
 
Implicit rdgModels: TRbwDataGrid4;
 
Implicit clData: TJvCheckListBox;
 
Implicit splitData: TSplitter;
 
Private FPeriods: TIntegerList;
 
Private FSteps: TIntegerList;
 
Private FTransportSteps: TIntegerList;
 
Private FDescriptions: TStringList;
 
Private FFileStream: TFileStream;
 
Private FFileVariable: TFileVariable;
 
Private FResultFormat: TModflowResultFormat;
 
Private FAskedUser: Boolean;
 
Private FCreateNewDataSet: Boolean;
 
Private FMaxPeriod: Integer;
 
Private FMaxTrans: integer;
 
Private FMaxStep: Integer;
 
Private FMaxLayer: Integer;
 
Private FGrid: TModflowGrid;
 
Private FNewDataSetNames: TStringList;
 
Private FNewDefaultDataSetNames: TStringList;
 
Private FFormulaAssigners: TFormulaAssignerList;
 
Private FModifiedParentDataSets: TList;
 

Methods

Implicit procedure clDataClickCheck(Sender: TObject);
 
Implicit procedure FormCreate(Sender: TObject); override;
 
Implicit procedure FormDestroy(Sender: TObject); override;
 
Implicit procedure btnOKClick(Sender: TObject);
 
Implicit procedure odSelectFilesTypeChange(Sender: TObject);
 
Implicit procedure btnSelectAllClick(Sender: TObject);
 
Implicit procedure btnSelectNoneClick(Sender: TObject);
 
Implicit procedure rdgModelsBeforeDrawCell(Sender: TObject; ACol, ARow: Integer);
 
Implicit procedure rdgModelsButtonClick(Sender: TObject; ACol, ARow: Integer);
 
Private function DefaultFileName(AModel: TCustomModel): string;
 
Private function OpenResultFile(AFileName: string;out Precision: TModflowPrecision; out HufFormat: boolean): boolean;
 
Private procedure ReadArray(var AnArray: TModflowDoubleArray; var EndReached: Boolean; var NTRANS, KPER, KSTP, ILAY: Integer; var TOTIM: TModflowDouble; var Description: string; Precision: TModflowPrecision; ShouldReadArray: boolean);
 
Private 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);
 
Private procedure CreateScreenObject(LayerIndex: integer; AModel: TCustomModel; out ScreenObject: TScreenObject);
 
Private procedure AssignValues(LayerIndex: integer; ScreenObject: TScreenObject; LayerData: TDataArray; AnArray: TModflowDoubleArray; ValuesToIgnore: TOneDRealArray; AModel: TCustomModel; out MinMaxAssigned: boolean);
 
Private 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);
 
Private procedure CloseFiles;
 
Private 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);
 
Private procedure Assign3DValues(ScreenObject: TScreenObject; LayerData: TDataArray; AnArray: T3DTModflowArray; LayerIndex: integer; CheckAllLayers: boolean; ValuesToIgnore: TOneDRealArray; AModel: TCustomModel);
 
Private procedure SetData;
 
Private function AskUserIfNewDataSet: boolean;
 
Private procedure AssignLimits(MinValues, MaxValues: TRealList; New3DArray: TDataArray; ValuesToIgnore: TOneDRealArray);
 
Private procedure AssignObjectName(var ScreenObject: TScreenObject; LayerData: TDataArray);
 
Private procedure UpdateCombo;
 
Private procedure GetShouldIgnore(ValuesToIgnore: TOneDRealArray; Temp: TModflowFloat; var ShouldIgnore: Boolean);
 
Private function SubsidenceDescription(DESC: String; ILAY: integer): string;
 
Private 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.

Private procedure AssignWaterTableArray( var WaterTableArray: TModflowDoubleArray; ILAY: Integer; AnArray: TModflowDoubleArray; ValuesToIgnore: TOneDRealArray; const Description: string);
 
Private 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);
 
Private procedure SetDefaultDisplayOption;
 
Private function ReadDataHeadings(AModel: TCustomModel; RowIndex: integer; AFileName: string): boolean;

Private declarations

Private procedure AddModelRow(AModel: TCustomModel; ARow: integer; AFileName: string);
 
Private procedure UpdateOldComments(OldComments: TStringList; ADataArray: TDataArray; OldComment: string);
 
Public function SelectFiles: boolean;
 

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