Class TfrmCustomImportSimpleFile

Description

Hierarchy

Fields

Methods

Properties

Unit

frmCustomImportSimpleFileUnit

Declaration

type TfrmCustomImportSimpleFile = class(TfrmCustomGoPhast)

Description

TfrmCustomImportSimpleFile is a base class used to import DXF and Surfer grid files into ModelMuse.

See miImportDXFFileClick.

Hierarchy

TForm
TfrmCustomGoPhast
TfrmCustomImportSimpleFile

Overview

Fields

	`btnCancel: TBitBtn;`
	`btnHelp: TBitBtn;`
	`btnOK: TBitBtn;`
	`cbEnclosedCells: TCheckBox;`
	`cbInterpolation: TCheckBox;`
	`cbIntersectedCells: TCheckBox;`
	`comboDataSets: TComboBox;`
	`comboInterpolators: TComboBox;`
	`lblDataSet: TLabel;`
	`lblInterpolator: TLabel;`
	`OpenDialogFile: TOpenDialog;`
	`rgEvaluatedAt: TRadioGroup;`
	`Values: array of array of double;`
	`Counts: array of array of integer;`
	`CenterPoints: array of array of TPoint2D;`
	`Distances: array of array of double;`
	`MinX: Real;`
	`MaxX: Real;`
	`MinY: Real;`
	`MaxY: Real;`
	`LocalModel: TCustomModel;`

Methods

	`procedure cbEnclosedCellsClick(Sender: TObject);`
	`procedure comboDataSetsChange(Sender: TObject);`
	`procedure comboInterpolatorsChange(Sender: TObject);`
	`procedure FormCreate(Sender: TObject); override;`
	`procedure rgEvaluatedAtClick(Sender: TObject);`
	`procedure FormDestroy(Sender: TObject); override;`
	`procedure GetDiscretizationMinMax;`
	`procedure HandleAPoint(APoint3D: TPoint3D; ImportMethod: TImportMethod; EvalAt: TEvaluatedAt; Grid: TCustomModelGrid; Mesh: TSutraMesh3D);`
	`procedure UpdateEvalAt;`
	`procedure GetDataSets; virtual;`
	`procedure GetInterpolators;`
	`procedure MakeNewDataSet(NewDataSets: TList; Suffix, Classification: string; NewDataSetNeeded: Boolean; FileName: string = '');`
	`procedure SetCheckBoxCaptions; virtual;`
	`procedure InitializeArrays(ImportMethod: TImportMethod);`
	`procedure AssignPointsAndValues(Grid: TCustomModelGrid; AScreenObject: TScreenObject; Item: TValueArrayItem; ComparePoints: Boolean = False);`
	`procedure ComputeAverage(ImportMethod: TImportMethod; ImportProgress: TImportProgress = nil);`

Description

Fields

	`btnCancel: TBitBtn;`
Clicking `btnCancel` closes `TfrmCustomImportSimpleFile` without doing anything.

	`btnHelp: TBitBtn;`
Clicking `btnHelp` displays help about `TfrmCustomImportSimpleFile`.

	`btnOK: TBitBtn;`

	`cbEnclosedCells: TCheckBox;`
`cbEnclosedCells` indicates that the value of the imported TScreenObjects should set the value of enclosed cells or elements in the related TDataArray.

	`cbInterpolation: TCheckBox;`
`cbInterpolation` indicates that the value of the imported TScreenObjects should set the value of cells or elements in the related TDataArray by interpolation.

	`cbIntersectedCells: TCheckBox;`
`cbIntersectedCells` indicates that the value of the imported TScreenObjects should set the value of intersected cells or elements in the related TDataArray.

	`comboDataSets: TComboBox;`
`comboDataSets` is used to select the name of the TDataArray to be affected by the imported TScreenObjects.

	`comboInterpolators: TComboBox;`
`comboInterpolators` is the name of the TCustom2DInterpolater that will be used with a new TDataArray.

	`lblDataSet: TLabel;`
`lblDataSet` displays "Data Set".

	`lblInterpolator: TLabel;`
`lblInterpolator` displays "Interpolator".

	`OpenDialogFile: TOpenDialog;`
`OpenDialogFile` is used to select the DXF file.

	`rgEvaluatedAt: TRadioGroup;`
`rgEvaluatedAt` indicates whether a new data set will be evaluated at elements or cells.

	`Values: array of array of double;`
FQuadTree: TRbwQuadTree; FOutline: TSubPolygon;

	`Counts: array of array of integer;`

	`CenterPoints: array of array of TPoint2D;`

	`Distances: array of array of double;`

	`MinX: Real;`

	`MaxX: Real;`

	`MinY: Real;`

	`MaxY: Real;`

	`LocalModel: TCustomModel;`

Methods

	`procedure cbEnclosedCellsClick(Sender: TObject);`
`cbEnclosedCellsClick` makes sure that at least one of the following checkboxes is checked: cbEnclosedCells, cbIntersectedCells, and cbInterpolation. If not, their fonts are changed to emphasize them and btnOK is disabled.

	`procedure comboDataSetsChange(Sender: TObject);`
`comboDataSetsChange` enables or disables comboInterpolators depending on whether a new TDataArray is to be created. comboInterpolators will be enabled if a new TDataArray is to be created.

	`procedure comboInterpolatorsChange(Sender: TObject);`
`comboInterpolatorsChange` enables cbInterpolation if an interpolator is specified.

	`procedure FormCreate(Sender: TObject); override;`
`FormCreate` calls GetInterpolators.

	`procedure rgEvaluatedAtClick(Sender: TObject);`
`rgEvaluatedAtClick` changes the captions of cbEnclosedCells, cbIntersectedCells, and cbInterpolation.

	`procedure FormDestroy(Sender: TObject); override;`

	`procedure GetDiscretizationMinMax;`

	`procedure HandleAPoint(APoint3D: TPoint3D; ImportMethod: TImportMethod; EvalAt: TEvaluatedAt; Grid: TCustomModelGrid; Mesh: TSutraMesh3D);`

	`procedure UpdateEvalAt;`
`UpdateEvalAt` updates the contents of rgEvaluatedAt to the appropriate values depending on what model (PHAST or MODFLOW) is selected.

	`procedure GetDataSets; virtual;`
`GetDataSets` fills comboDataSets with the names of TDataArrays that can be used by the imported TScreenObjects.

	`procedure GetInterpolators;`
`GetInterpolators` fills comboInterpolators with a list of TCustom2DInterpolaters.

	`procedure MakeNewDataSet(NewDataSets: TList; Suffix, Classification: string; NewDataSetNeeded: Boolean; FileName: string = '');`
If comboDataSets.ItemIndex = 0, `MakeNewDataSet` creates a new TDataArray with an Orientation of dsoTop and adds it to NewDataSets. Suffix is a string that will be added to the end of the file name when generating the data set name. Classification is the Classification of the TDataArray. If `MakeNewDataSet` does create a new TDataArray, comboDataSets.Text is set to the name of the TDataArray.

	`procedure SetCheckBoxCaptions; virtual;`
Set the captions of cbEnclosedCells, cbIntersectedCells, and cbInterpolation based on rgEvaluatedAt.ItemIndex depending on what model (PHAST or MODFLOW) is selected.

	`procedure InitializeArrays(ImportMethod: TImportMethod);`

	`procedure AssignPointsAndValues(Grid: TCustomModelGrid; AScreenObject: TScreenObject; Item: TValueArrayItem; ComparePoints: Boolean = False);`

	`procedure ComputeAverage(ImportMethod: TImportMethod; ImportProgress: TImportProgress = nil);`

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