Class TfrmImportShapefile

DescriptionHierarchyFieldsMethodsProperties

Unit

frmImportShapefileUnit

Declaration

type TfrmImportShapefile = class(TfrmCustomGoPhast)

Description

TfrmImportShapefile is used to import Shapefiles.

Hierarchy

Overview

Fields

Implicit btnAll: TButton;
Implicit btnCancel: TBitBtn;
Implicit btnHelp: TBitBtn;
Implicit btnNone: TButton;
Implicit btnOK: TBitBtn;
Implicit btnToggle: TButton;
Implicit cbCoordinateConversion: TCheckBox;
Implicit comboEllipsoid: TComboBox;
Implicit imageUtmZones: TImage;
Implicit lblCoordinateConversionInfo: TLabel;
Implicit lblCoordinates: TLabel;
Implicit lblEllipsoid: TLabel;
Implicit lblUtmZoneNumber: TLabel;
Implicit OpenDialogShape: TOpenDialog;
Implicit pcImportShape: TPageControl;
Implicit pnlButton: TPanel;
Implicit pnlData: TPanel;
Implicit Shape1: TShape;
Implicit Shape2: TShape;
Implicit Shape3: TShape;
Implicit Shape4: TShape;
Implicit Shape5: TShape;
Implicit Shape6: TShape;
Implicit Shape7: TShape;
Implicit Shape8: TShape;
Implicit Shape9: TShape;
Implicit Shape10: TShape;
Implicit tabData: TTabSheet;
Implicit tabCoordinateConversion: TTabSheet;
Implicit xbShapeDataBase: TXBase;
Implicit seZoneNumber: TJvSpinEdit;
Implicit pnlDataGrids: TPanel;
Implicit dgFields: TRbwDataGrid4;
Implicit tabFeatures: TTabSheet;
Implicit pnlBoundaryCondition: TPanel;
Implicit splitterBoundary: TSplitter;
Implicit pnlBoundaryControls: TPanel;
Implicit lblBoundaryTimeCount: TLabel;
Implicit comboBoundaryChoice: TComboBox;
Implicit seBoundaryTimeCount: TJvSpinEdit;
Implicit rdgBoundaryConditions: TRbwDataGrid4;
Implicit plBoundary: TJvPageList;
Implicit jvspNone: TJvStandardPage;
Implicit jvspPhastSpecifiedHead: TJvStandardPage;
Implicit lblSolutionType: TLabel;
Implicit comboSolutionType: TComboBox;
Implicit jvspPhastLeaky: TJvStandardPage;
Implicit jvspPhastRiver: TJvStandardPage;
Implicit jvspPhastWell: TJvStandardPage;
Implicit lblRiverDescripton: TLabel;
Implicit lblRiverHydraulicConductivity: TLabel;
Implicit lblRiverWidth: TLabel;
Implicit lblRiverDepth: TLabel;
Implicit lblRiverBedThickness: TLabel;
Implicit lblLeakyHydraulicConductivity: TLabel;
Implicit lblLeakyThickness: TLabel;
Implicit comboLeakyHydraulicConductivity: TComboBox;
Implicit comboLeakyThickness: TComboBox;
Implicit comboRiverDescripton: TComboBox;
Implicit comboRiverHydraulicConductivity: TComboBox;
Implicit comboRiverWidth: TComboBox;
Implicit comboRiverDepth: TComboBox;
Implicit comboRiverBedThickness: TComboBox;
Implicit pnlPhastWell: TPanel;
Implicit lblWellDescription: TLabel;
Implicit WellDescription: TComboBox;
Implicit lblWellDiameter: TLabel;
Implicit comboWellDiameter: TComboBox;
Implicit lblWellLandSurfaceDatum: TLabel;
Implicit comboWellLandSurfaceDatum: TComboBox;
Implicit lblWellPumpAllocation: TLabel;
Implicit comboWellPumpAllocation: TComboBox;
Implicit comboWellIntervalStyle: TComboBox;
Implicit lblWellIntervalStyle: TLabel;
Implicit lblWellIntervals: TLabel;
Implicit seWellIntervals: TJvSpinEdit;
Implicit dgWellElevations: TRbwDataGrid4;
Implicit jvspConductanceInterp: TJvStandardPage;
Implicit lblConductanceInterpretation: TLabel;
Implicit comboFormulaInterp: TComboBox;
Implicit lblBoundaryChoice: TLabel;
Implicit jvspModflowSFR: TJvStandardPage;
Implicit pcSFR: TPageControl;
Implicit tabSfrBasic: TTabSheet;
Implicit tabSfrUnsaturated: TTabSheet;
Implicit lblSfrSegmentNumber: TLabel;
Implicit comboSfrSegmentNumber: TComboBox;
Implicit lblReachLength: TLabel;
Implicit lblStreamTop: TLabel;
Implicit lblStreambedThickness: TLabel;
Implicit lblSlope: TLabel;
Implicit lblStreambedK: TLabel;
Implicit lblSaturatedVolumetricWater: TLabel;
Implicit lblInitialVolumetricWater: TLabel;
Implicit lblBrooksCoreyExponent: TLabel;
Implicit lblMaxUnsaturatedKz: TLabel;
Implicit comboSfrReachLength: TComboBox;
Implicit comboSfrStreambedTop: TComboBox;
Implicit comboSfrStreamSlope: TComboBox;
Implicit comboSfrStreambedThickness: TComboBox;
Implicit comboSfrStreambedKv: TComboBox;
Implicit comboSaturatedVolumetricWater: TComboBox;
Implicit comboInitialVolumetricWater: TComboBox;
Implicit comboBrooksCoreyExponent: TComboBox;
Implicit comboaxUnsaturatedKz: TComboBox;
Implicit jvspModflowLAK: TJvStandardPage;
Implicit LblLakeID: TLabel;
Implicit comboLakeID: TComboBox;
Implicit lblInitialStage: TLabel;
Implicit comboInitialStage: TComboBox;
Implicit lblSill: TLabel;
Implicit comboSill: TComboBox;
Implicit lblCenterLake: TLabel;
Implicit comboCenterLake: TComboBox;
Implicit lblNumShapes: TLabel;
Implicit tabOptions: TTabSheet;
Implicit cbImportObjects: TCheckBox;
Implicit cbEnclosedCells: TCheckBox;
Implicit cbIntersectedCells: TCheckBox;
Implicit cbInterpolation: TCheckBox;
Implicit cbImportGrid: TCheckBox;
Implicit lblImportCriterion: TLabel;
Implicit lblCombineShapes: TLabel;
Implicit lblVisibility: TLabel;
Implicit edImportCriterion: TEdit;
Implicit comboJoinObjects: TJvImageComboBox;
Implicit comboVisibility: TJvImageComboBox;
Implicit rgEvaluatedAt: TRadioGroup;
Implicit btnImportCriterion: TButton;
Implicit rgElevationCount: TRadioGroup;
Implicit lblZ: TLabel;
Implicit edZ: TRbwEdit;
Implicit lblHighZ: TLabel;
Implicit edHighZ: TRbwEdit;
Implicit lblLowZ: TLabel;
Implicit edLowZ: TRbwEdit;
Implicit btnZ: TButton;
Implicit btnHighZ: TButton;
Implicit btnLowZ: TButton;
Implicit jvspModflowDRT: TJvStandardPage;
Implicit lblConductanceInterpretationDRT: TLabel;
Implicit comboFormulaInterpDRT: TComboBox;
Implicit lblDrainReturnLocationMethod: TLabel;
Implicit comboDrainReturnLocationMethod: TComboBox;
Implicit pcDrtReturnLChoice: TJvPageControl;
Implicit tabDrtNone: TTabSheet;
Implicit tabDrtLocation: TTabSheet;
Implicit lblDrtX: TLabel;
Implicit lblDrtY: TLabel;
Implicit lblDrtZ: TLabel;
Implicit rdeDrtX: TRbwDataEntry;
Implicit rdeDrtY: TRbwDataEntry;
Implicit rdeDrtZ: TRbwDataEntry;
Implicit tabDrtCell: TTabSheet;
Implicit lblDrtCol: TLabel;
Implicit lblDrtRow: TLabel;
Implicit lblDrtLay: TLabel;
Implicit rdeDrtLay: TRbwDataEntry;
Implicit rdeDrtRow: TRbwDataEntry;
Implicit rdeDrtCol: TRbwDataEntry;
Implicit jvspModflowHFB: TJvStandardPage;
Implicit lblHydraulicConductivity: TLabel;
Implicit lblBarrierThickness: TLabel;
Implicit rgAngleAdjustment: TRadioGroup;
Implicit comboHfbHydCond: TComboBox;
Implicit comboHfbThickness: TComboBox;
Implicit jvspModflowHOB: TJvStandardPage;
Implicit lblHeadObservationNames: TLabel;
Implicit comboHeadObservationNames: TComboBox;
Implicit lblHeadObsType: TLabel;
Implicit comboHeadObsType: TComboBox;
Implicit rdeIgnoreValues: TRbwDataEntry;
Implicit lblIgnoreValues: TLabel;
Implicit comboITT: TComboBox;
Implicit lblITT: TLabel;
Implicit jvspModflowMNW2: TJvStandardPage;
Implicit pcMnw2: TPageControl;
Implicit tabBasic: TTabSheet;
Implicit lblWellId: TLabel;
Implicit lblLossType: TLabel;
Implicit lblPartialPenetration: TLabel;
Implicit lblZPump: TLabel;
Implicit tabLossControls: TTabSheet;
Implicit lblWellRadius: TLabel;
Implicit lblSkinRadius: TLabel;
Implicit lblBCoefficient: TLabel;
Implicit lblCCoefficient: TLabel;
Implicit lblPCoefficient: TLabel;
Implicit lblCellToWellConductance: TLabel;
Implicit lblKSkin: TLabel;
Implicit tabDischargeAdjustment: TTabSheet;
Implicit lblReferenceHead: TLabel;
Implicit lblLiftQ0: TLabel;
Implicit lblLiftQMax: TLabel;
Implicit lblWellTolerance: TLabel;
Implicit lblMnw2PumplocX: TLabel;
Implicit lblMnw2PumplocY: TLabel;
Implicit lblMnw2PumplocZ: TLabel;
Implicit lblPumpLocation: TLabel;
Implicit comboMnw2WellId: TComboBox;
Implicit comboMnw2LossType: TComboBox;
Implicit comboSpecifyPump: TComboBox;
Implicit lblSpecifyPump: TLabel;
Implicit comboZPump: TComboBox;
Implicit comboMnw2PumplocX: TComboBox;
Implicit comboMnw2PumplocY: TComboBox;
Implicit comboMnw2PumplocZ: TComboBox;
Implicit lblConstrainPumping: TLabel;
Implicit comboConstrainPumping: TComboBox;
Implicit lblPartialPenetrationFlag: TLabel;
Implicit comboPartialPenetrationFlag: TComboBox;
Implicit comboPartialPenetration: TComboBox;
Implicit lblPumpCap: TLabel;
Implicit comboPumpCap: TComboBox;
Implicit comboWellRadius: TComboBox;
Implicit comboSkinRadius: TComboBox;
Implicit comboKSkin: TComboBox;
Implicit comboBCoefficient: TComboBox;
Implicit comboCCoefficient: TComboBox;
Implicit comboPCoefficient: TComboBox;
Implicit comboCellToWellConductance: TComboBox;
Implicit comboReferenceHead: TComboBox;
Implicit comboLiftQ0: TComboBox;
Implicit comboLiftQMax: TComboBox;
Implicit comboWellTolerance: TComboBox;
Implicit rpShapeCompiler: TRbwParser;
Implicit memoMultipleParts: TMemo;
Implicit pnlDataTop: TPanel;
Implicit cbSelect: TCheckBox;
Implicit comboInterpolaters: TComboBox;
Private FGeometryFileName: string;
Private FIndexFileName: string;
Private FDataBaseFileName: string;
Private FAllowShapesToCombine: boolean;
Private FShouldEnableImportGrid: Boolean;
Private FFieldTypes: array of TRbwDataType;
Private FGeometryFile: TShapefileGeometryReader;
Private FRealFieldNames: TStringList;
Private FIntegerFieldNames: TStringList;
Private FBooleanFieldNames: TStringList;
Private FStringFieldNames: TStringList;
Private FRealFieldAndGlobalVariablesNames: TStringList;
Private FRealFieldGlobalsAndDataSetsNames: TStringList;
Private FShapeCount: integer;
Private FFieldNumbers: TStringList;
Private FNumPointsInCurrentShape: Integer;
Private FInvalidParameterNames: TStringList;
Private FCombinedObjectsAllowed: Boolean;
Private FObsCount: Integer;
Private CombinedObjects: boolean;

Methods

Implicit procedure btnImportCriterionClick(Sender: TObject);
Implicit procedure btnSelectClick(Sender: TObject);
Implicit procedure btnOKClick(Sender: TObject);
Implicit procedure btnToggleClick(Sender: TObject);
Implicit procedure cbCoordinateConversionClick(Sender: TObject);
Implicit procedure cbEnclosedCellsClick(Sender: TObject);
Implicit procedure comboEllipsoidChange(Sender: TObject);
Implicit procedure dgFieldsDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
Implicit procedure dgFieldsSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);
Implicit procedure dgFieldsSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: String);
Implicit procedure edImportCriterionExit(Sender: TObject);
Implicit procedure FormCreate(Sender: TObject); override;
Implicit procedure FormDestroy(Sender: TObject); override;
Implicit procedure rgEvaluatedAtClick(Sender: TObject);
Implicit procedure cbImportObjectsClick(Sender: TObject);
Implicit procedure cbImportGridClick(Sender: TObject);
Implicit procedure comboBoundaryChoiceChange(Sender: TObject);
Implicit procedure comboRealFieldChange(Sender: TObject);
Implicit procedure comboBooleanFieldChange(Sender: TObject);
Implicit procedure BoundaryGridBeforeDrawCell(Sender: TObject; ACol, ARow: Integer);
Implicit procedure seWellIntervalsChange(Sender: TObject);
Implicit procedure comboJoinObjectsChange(Sender: TObject);
Implicit procedure seBoundaryTimeCountChange(Sender: TObject);
Implicit procedure rdgBoundaryConditionsDistributeTextProgress(Sender: TObject; Position, Max: Integer);
Implicit procedure btnElevFormulaEdit(Sender: TObject);
Implicit procedure edZExit(Sender: TObject);
Implicit procedure edHighZExit(Sender: TObject);
Implicit procedure edLowZExit(Sender: TObject);
Implicit procedure rgElevationCountClick(Sender: TObject);
Implicit procedure comboDrainReturnLocationMethodChange(Sender: TObject);
Implicit procedure dgFieldsColSize(Sender: TObject; ACol, PriorWidth: Integer);
Implicit procedure dgFieldsMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Implicit procedure cbSelectClick(Sender: TObject);
Implicit procedure comboInterpolatersChange(Sender: TObject);
Private function CheckDataSets: boolean;
Private procedure CheckImportCriterionFormula(AFormula: string);
Private procedure CreateVariables(Parser: TRbwParser);
Private procedure GetDataSets(const ARow: integer);
Private procedure GetInterpolators(const ARow: integer);
Private function LatLongToPoint(Long, Lat: double): TPoint;
Private function LatLongToUTM_Zone(const LongitudeDegrees, LatitudeDegrees: double): integer;
Private procedure MakeNewDataSets(NewDataSets: TList);
Private procedure SetCheckBoxCaptions;
Private procedure SetData;
Private procedure ShapefileProgress(Sender: TObject; FractionDone: double);
Private function SimpleLongToUTM_Zone(const LongitudeDegrees: double): integer;
Private procedure ImportGrid(FieldNames: TStringList);
Private procedure EnableOK;
Private procedure InitializeBoundaryConditionControls;
Private procedure AssignBoundary(AScreenObject: TScreenObject);
Private procedure AssignAPhastSpecifiedHeadBoundary(AScreenObject: TScreenObject);
Private procedure AssignAPhastBoundary(Boundary: TCustomInterpolatedBoundary);
Private function GetRealFormulaFromText(const Text: string; DataSetsOK: boolean = True; FormulaOK: boolean = False): string;
Private function GetRealValueFromText(const FieldName: AnsiString): Extended; overload;
Private function GetRealValueFromText(const FieldName: String): Extended; overload;
Private procedure AssignAPhastLeakyBoundary(AScreenObject: TScreenObject);
Private procedure AssignAPhastRiverBoundary(AScreenObject: TScreenObject);
Private function GetStringValueFromText(const FieldName: String): string; overload;
Private function GetStringValueFromText(const FieldName: AnsiString): string; overload;
Private function GetBooleanValueFromText(FieldName: AnsiString): Boolean; overload;
Private function GetBooleanValueFromText(FieldName: String): Boolean; overload;
Private procedure AssignAPhastWellBoundary(AScreenObject: TScreenObject);
Private procedure EnableFeatureImport;
Private procedure ImportModflowChdBoundary(AScreenObject: TScreenObject);
Private procedure InitializeBoundaryControlsForCHD;
Private procedure InitializeBoundaryControlsForGHB;
Private procedure ImportModflowGhbBoundary(AScreenObject: TScreenObject);
Private procedure InitializeBoundaryControlsForWEL;
Private procedure ImportModflowWelBoundary(AScreenObject: TScreenObject);
Private procedure InitializeBoundaryControlsForRIV;
Private procedure ImportModflowRivPackage(AScreenObject: TScreenObject);
Private procedure InitializeBoundaryControlsForDRN;
Private procedure ImportModflowDrnPackage(AScreenObject: TScreenObject);
Private procedure InitializeBoundaryControlsForRCH(Packages: TModflowPackages);
Private function GetIntegerValueFromText(const FieldName: AnsiString): integer; overload;
Private function GetIntegerValueFromText(const FieldName: String): integer; overload;
Private procedure ImportModflowRchPackage(Packages: TModflowPackages; AScreenObject: TScreenObject);
Private procedure InitializeBoundaryControlsForEVT(Packages: TModflowPackages);
Private procedure ImportModflowEvtPackage(Packages: TModflowPackages; AScreenObject: TScreenObject);
Private procedure InitializeBoundaryControlsForETS(Packages: TModflowPackages);
Private procedure ImportModflowEtsPackage(AScreenObject: TScreenObject; Packages: TModflowPackages);
Private procedure InitializeBoundaryControlsForHOB;
Private procedure ImportModflowHobPackage(AScreenObject: TScreenObject);
Private function GetFormulaInterpretation(combo: TComboBox): TFormulaInterpretation;
Private procedure AssignColFeatureProperties;
Private procedure EnableEvalAt;
Private procedure AssignInterpolator(DataSet: TDataArray; Index: Integer; out NewProperties, OldProperties: TPhastDataSetStorage);
Private procedure ChangeInterpolators(NewProperties, OldProperties: TList);
Private procedure InitializeBoundaryControlsForSFR;
Private procedure ImportModflowSfrPackage(AScreenObject: TScreenObject);
Private procedure InitializeBoundaryControlsForLAK;
Private procedure ImportModflowLakPackage(AScreenObject: TScreenObject);
Private procedure CheckElevationFormula(Edit: TRbwEdit; AFormula: string);
Private procedure InitializeBoundaryControlsForDRT;
Private procedure ImportModflowDrtPackage(AScreenObject: TScreenObject);
Private procedure InitializeBoundaryControlsForRES(Packages: TModflowPackages);
Private procedure ImportModflowResPackage(AScreenObject: TScreenObject);
Private procedure InitializeBoundaryControlsForHFB;
Private procedure ImportModflowHfbPackage(AScreenObject: TScreenObject);
Private procedure InitializeBoundaryControlsForUZF;
Private procedure ImportModflowUzfPackage(AScreenObject: TScreenObject);
Private function GetIntegerFormulaFromText(const text: AnsiString; DataSetsOK: boolean = True): string; overload;
Private function GetIntegerFormulaFromText(const text: String; DataSetsOK: boolean = True): string; overload;
Private procedure CreateDataSetVariables(Parser: TRbwParser; EvalAt: TEvaluatedAt);
Private function DataArrayOrientationOK(DataArray: TDataArray): boolean;
Private procedure AddModflowPackageToImportChoices( APackage: TModflowPackageSelection);
Private procedure InitializeBoundaryControlsForMnw2;
Private procedure ImportModflowMnw2Package(AScreenObject: TScreenObject);
Private procedure GetTransientParameter(var Param: TModflowTransientListParameter; var ParameterName: string; ParameterColumn: Integer; Row: Integer);
Private procedure GetNewOrExistingBoundaryItem( var AnItem: TCustomModflowBoundaryItem; const ParameterName: string; var Param: TModflowTransientListParameter; var ParamItem: TModflowParamItem; Boundary: TModflowParamBoundary; ItemIndex: integer);
Private procedure AddParameterNamesToPickList(ParameterType: TParameterType; ParameterColumn: Integer);
Private procedure EnableJoinObjects;
Private function GetFieldNumberFromName(CellText: AnsiString): Integer;
Private procedure Fill_comboInterpolaters;
Private function AssociatedConcColumns: integer;
Private function CreateConcItem(ConcBoundary: TMt3dmsConcBoundary; ItemIndex: Integer; Item: TCustomModflowBoundaryItem): TMt3dmsConcItem;
Private function CreateConcBoundary(AScreenObject: TScreenObject): TMt3dmsConcBoundary;
Private procedure ImportConcItemForCombinedShapes(ConcItem: TMt3dmsConcItem; StartingConcIndex: Integer; ItemIndex: Integer; AScreenObject: TScreenObject);
Private function GetConcSpeciesItem(AComp: TMobileChemSpeciesItem; ConcIndex: Integer; ConcItem: TMt3dmsConcItem): TStringConcValueItem;
Private procedure ImportConcItemForSeparateShapes(ItemIndex: Integer; ConcItem: TMt3dmsConcItem; StartingConcIndex: Integer);
Private procedure InitializeColumnsForMt3dConc(StartingConcIndex: Integer);
Public function GetData: boolean;

Description

Fields

Implicit btnAll: TButton;

btnAll: TButton; See btnSelectClick.

Implicit btnCancel: TBitBtn;

btnCancel: TBitBtn; Clicking btnCancel closes the TfrmImportShapefile without changing anything.

Implicit btnHelp: TBitBtn;

btnHelp: TBitBtn; Clicking btnHelp show help on the TfrmImportShapefile.

Implicit btnNone: TButton;

btnNone: TButton; See btnSelectClick.

Implicit btnOK: TBitBtn;

btnOK: TBitBtn; See btnOKClick.

Implicit btnToggle: TButton;

btnToggle: TButton; See btnToggleClick.

Implicit cbCoordinateConversion: TCheckBox;

cbCoordinateConversion is used to turn on or off coordinate transformations from decimal degrees to UTM coordinates.

Implicit comboEllipsoid: TComboBox;

comboEllipsoid is used to choose the ellipsoid for the coordinate conversion.

Implicit imageUtmZones: TImage;

imageUtmZones is an image of the UTM zones.

Implicit lblCoordinateConversionInfo: TLabel;

lblCoordinateConversionInfo tells that 10 points will be plotted on the map if coordinate conversion is to be performed.

Implicit lblCoordinates: TLabel;

lblCoordinates gives the coordinates of the first point.

Implicit lblEllipsoid: TLabel;

lblEllipsoid is the label for comboEllipsoid.

Implicit lblUtmZoneNumber: TLabel;

lblUtmZoneNumber is the label for seZoneNumber.

Implicit OpenDialogShape: TOpenDialog;

OpenDialogShape: TOpenDialog; OpenDialogShape is used to select the Shapefile.

Implicit pcImportShape: TPageControl;

pcImportShape is TPageControl used to hold tabData and tabCoordinateConversion.

Implicit pnlButton: TPanel;

pnlButton: TPanel; pnlButton holds the buttons and other controls at the bottom of the TfrmImportShapefile.

Implicit pnlData: TPanel;

pnlData holds controls used to determine how the shapes in the Shapefile will be imported.

Implicit Shape1: TShape;

Shape1 shows the first point to be plotted on the map.

Implicit Shape2: TShape;

Shape2 shows the second point to be plotted on the map.

Implicit Shape3: TShape;

Shape3 shows the third point to be plotted on the map.

Implicit Shape4: TShape;

Shape4 shows the fourth point to be plotted on the map.

Implicit Shape5: TShape;

Shape5 shows the fifth point to be plotted on the map.

Implicit Shape6: TShape;

Shape6 shows the sixth point to be plotted on the map.

Implicit Shape7: TShape;

Shape7 shows the seventh point to be plotted on the map.

Implicit Shape8: TShape;

Shape8 shows the eighth point to be plotted on the map.

Implicit Shape9: TShape;

Shape9 shows the ninth point to be plotted on the map.

Implicit Shape10: TShape;

Shape10 shows the tenth point to be plotted on the map.

Implicit tabData: TTabSheet;

tabData holds the controls that determine how the shapes in the Shapefile will be imported.

Implicit tabCoordinateConversion: TTabSheet;

tabCoordinateConversion holds the controls used to convert from decimal degrees to UTM coordinates.

Implicit xbShapeDataBase: TXBase;

xbShapeDataBase: TXBase; xbShapeDataBase is used to read the database file that is part of the Shapefile.

Implicit seZoneNumber: TJvSpinEdit;
 
Implicit pnlDataGrids: TPanel;
 
Implicit dgFields: TRbwDataGrid4;
 
Implicit tabFeatures: TTabSheet;
 
Implicit pnlBoundaryCondition: TPanel;
 
Implicit splitterBoundary: TSplitter;
 
Implicit pnlBoundaryControls: TPanel;
 
Implicit lblBoundaryTimeCount: TLabel;
 
Implicit comboBoundaryChoice: TComboBox;
 
Implicit seBoundaryTimeCount: TJvSpinEdit;
 
Implicit rdgBoundaryConditions: TRbwDataGrid4;
 
Implicit plBoundary: TJvPageList;
 
Implicit jvspNone: TJvStandardPage;
 
Implicit jvspPhastSpecifiedHead: TJvStandardPage;
 
Implicit lblSolutionType: TLabel;
 
Implicit comboSolutionType: TComboBox;
 
Implicit jvspPhastLeaky: TJvStandardPage;
 
Implicit jvspPhastRiver: TJvStandardPage;
 
Implicit jvspPhastWell: TJvStandardPage;
 
Implicit lblRiverDescripton: TLabel;
 
Implicit lblRiverHydraulicConductivity: TLabel;
 
Implicit lblRiverWidth: TLabel;
 
Implicit lblRiverDepth: TLabel;
 
Implicit lblRiverBedThickness: TLabel;
 
Implicit lblLeakyHydraulicConductivity: TLabel;
 
Implicit lblLeakyThickness: TLabel;
 
Implicit comboLeakyHydraulicConductivity: TComboBox;
 
Implicit comboLeakyThickness: TComboBox;
 
Implicit comboRiverDescripton: TComboBox;
 
Implicit comboRiverHydraulicConductivity: TComboBox;
 
Implicit comboRiverWidth: TComboBox;
 
Implicit comboRiverDepth: TComboBox;
 
Implicit comboRiverBedThickness: TComboBox;
 
Implicit pnlPhastWell: TPanel;
 
Implicit lblWellDescription: TLabel;
 
Implicit WellDescription: TComboBox;
 
Implicit lblWellDiameter: TLabel;
 
Implicit comboWellDiameter: TComboBox;
 
Implicit lblWellLandSurfaceDatum: TLabel;
 
Implicit comboWellLandSurfaceDatum: TComboBox;
 
Implicit lblWellPumpAllocation: TLabel;
 
Implicit comboWellPumpAllocation: TComboBox;
 
Implicit comboWellIntervalStyle: TComboBox;
 
Implicit lblWellIntervalStyle: TLabel;
 
Implicit lblWellIntervals: TLabel;
 
Implicit seWellIntervals: TJvSpinEdit;
 
Implicit dgWellElevations: TRbwDataGrid4;
 
Implicit jvspConductanceInterp: TJvStandardPage;
 
Implicit lblConductanceInterpretation: TLabel;
 
Implicit comboFormulaInterp: TComboBox;
 
Implicit lblBoundaryChoice: TLabel;
 
Implicit jvspModflowSFR: TJvStandardPage;
 
Implicit pcSFR: TPageControl;
 
Implicit tabSfrBasic: TTabSheet;
 
Implicit tabSfrUnsaturated: TTabSheet;
 
Implicit lblSfrSegmentNumber: TLabel;
 
Implicit comboSfrSegmentNumber: TComboBox;
 
Implicit lblReachLength: TLabel;
 
Implicit lblStreamTop: TLabel;
 
Implicit lblStreambedThickness: TLabel;
 
Implicit lblSlope: TLabel;
 
Implicit lblStreambedK: TLabel;
 
Implicit lblSaturatedVolumetricWater: TLabel;
 
Implicit lblInitialVolumetricWater: TLabel;
 
Implicit lblBrooksCoreyExponent: TLabel;
 
Implicit lblMaxUnsaturatedKz: TLabel;
 
Implicit comboSfrReachLength: TComboBox;
 
Implicit comboSfrStreambedTop: TComboBox;
 
Implicit comboSfrStreamSlope: TComboBox;
 
Implicit comboSfrStreambedThickness: TComboBox;
 
Implicit comboSfrStreambedKv: TComboBox;
 
Implicit comboSaturatedVolumetricWater: TComboBox;
 
Implicit comboInitialVolumetricWater: TComboBox;
 
Implicit comboBrooksCoreyExponent: TComboBox;
 
Implicit comboaxUnsaturatedKz: TComboBox;
 
Implicit jvspModflowLAK: TJvStandardPage;
 
Implicit LblLakeID: TLabel;
 
Implicit comboLakeID: TComboBox;
 
Implicit lblInitialStage: TLabel;
 
Implicit comboInitialStage: TComboBox;
 
Implicit lblSill: TLabel;
 
Implicit comboSill: TComboBox;
 
Implicit lblCenterLake: TLabel;
 
Implicit comboCenterLake: TComboBox;
 
Implicit lblNumShapes: TLabel;
 
Implicit tabOptions: TTabSheet;
 
Implicit cbImportObjects: TCheckBox;
 
Implicit cbEnclosedCells: TCheckBox;
 
Implicit cbIntersectedCells: TCheckBox;
 
Implicit cbInterpolation: TCheckBox;
 
Implicit cbImportGrid: TCheckBox;
 
Implicit lblImportCriterion: TLabel;
 
Implicit lblCombineShapes: TLabel;
 
Implicit lblVisibility: TLabel;
 
Implicit edImportCriterion: TEdit;
 
Implicit comboJoinObjects: TJvImageComboBox;
 
Implicit comboVisibility: TJvImageComboBox;
 
Implicit rgEvaluatedAt: TRadioGroup;
 
Implicit btnImportCriterion: TButton;
 
Implicit rgElevationCount: TRadioGroup;
 
Implicit lblZ: TLabel;
 
Implicit edZ: TRbwEdit;
 
Implicit lblHighZ: TLabel;
 
Implicit edHighZ: TRbwEdit;
 
Implicit lblLowZ: TLabel;
 
Implicit edLowZ: TRbwEdit;
 
Implicit btnZ: TButton;
 
Implicit btnHighZ: TButton;
 
Implicit btnLowZ: TButton;
 
Implicit jvspModflowDRT: TJvStandardPage;
 
Implicit lblConductanceInterpretationDRT: TLabel;
 
Implicit comboFormulaInterpDRT: TComboBox;
 
Implicit lblDrainReturnLocationMethod: TLabel;
 
Implicit comboDrainReturnLocationMethod: TComboBox;
 
Implicit pcDrtReturnLChoice: TJvPageControl;
 
Implicit tabDrtNone: TTabSheet;
 
Implicit tabDrtLocation: TTabSheet;
 
Implicit lblDrtX: TLabel;
 
Implicit lblDrtY: TLabel;
 
Implicit lblDrtZ: TLabel;
 
Implicit rdeDrtX: TRbwDataEntry;
 
Implicit rdeDrtY: TRbwDataEntry;
 
Implicit rdeDrtZ: TRbwDataEntry;
 
Implicit tabDrtCell: TTabSheet;
 
Implicit lblDrtCol: TLabel;
 
Implicit lblDrtRow: TLabel;
 
Implicit lblDrtLay: TLabel;
 
Implicit rdeDrtLay: TRbwDataEntry;
 
Implicit rdeDrtRow: TRbwDataEntry;
 
Implicit rdeDrtCol: TRbwDataEntry;
 
Implicit jvspModflowHFB: TJvStandardPage;
 
Implicit lblHydraulicConductivity: TLabel;
 
Implicit lblBarrierThickness: TLabel;
 
Implicit rgAngleAdjustment: TRadioGroup;
 
Implicit comboHfbHydCond: TComboBox;
 
Implicit comboHfbThickness: TComboBox;
 
Implicit jvspModflowHOB: TJvStandardPage;
 
Implicit lblHeadObservationNames: TLabel;
 
Implicit comboHeadObservationNames: TComboBox;
 
Implicit lblHeadObsType: TLabel;
 
Implicit comboHeadObsType: TComboBox;
 
Implicit rdeIgnoreValues: TRbwDataEntry;
 
Implicit lblIgnoreValues: TLabel;
 
Implicit comboITT: TComboBox;
 
Implicit lblITT: TLabel;
 
Implicit jvspModflowMNW2: TJvStandardPage;
 
Implicit pcMnw2: TPageControl;
 
Implicit tabBasic: TTabSheet;
 
Implicit lblWellId: TLabel;
 
Implicit lblLossType: TLabel;
 
Implicit lblPartialPenetration: TLabel;
 
Implicit lblZPump: TLabel;
 
Implicit tabLossControls: TTabSheet;
 
Implicit lblWellRadius: TLabel;
 
Implicit lblSkinRadius: TLabel;
 
Implicit lblBCoefficient: TLabel;
 
Implicit lblCCoefficient: TLabel;
 
Implicit lblPCoefficient: TLabel;
 
Implicit lblCellToWellConductance: TLabel;
 
Implicit lblKSkin: TLabel;
 
Implicit tabDischargeAdjustment: TTabSheet;
 
Implicit lblReferenceHead: TLabel;
 
Implicit lblLiftQ0: TLabel;
 
Implicit lblLiftQMax: TLabel;
 
Implicit lblWellTolerance: TLabel;
 
Implicit lblMnw2PumplocX: TLabel;
 
Implicit lblMnw2PumplocY: TLabel;
 
Implicit lblMnw2PumplocZ: TLabel;
 
Implicit lblPumpLocation: TLabel;
 
Implicit comboMnw2WellId: TComboBox;
 
Implicit comboMnw2LossType: TComboBox;
 
Implicit comboSpecifyPump: TComboBox;
 
Implicit lblSpecifyPump: TLabel;
 
Implicit comboZPump: TComboBox;
 
Implicit comboMnw2PumplocX: TComboBox;
 
Implicit comboMnw2PumplocY: TComboBox;
 
Implicit comboMnw2PumplocZ: TComboBox;
 
Implicit lblConstrainPumping: TLabel;
 
Implicit comboConstrainPumping: TComboBox;
 
Implicit lblPartialPenetrationFlag: TLabel;
 
Implicit comboPartialPenetrationFlag: TComboBox;
 
Implicit comboPartialPenetration: TComboBox;
 
Implicit lblPumpCap: TLabel;
 
Implicit comboPumpCap: TComboBox;
 
Implicit comboWellRadius: TComboBox;
 
Implicit comboSkinRadius: TComboBox;
 
Implicit comboKSkin: TComboBox;
 
Implicit comboBCoefficient: TComboBox;
 
Implicit comboCCoefficient: TComboBox;
 
Implicit comboPCoefficient: TComboBox;
 
Implicit comboCellToWellConductance: TComboBox;
 
Implicit comboReferenceHead: TComboBox;
 
Implicit comboLiftQ0: TComboBox;
 
Implicit comboLiftQMax: TComboBox;
 
Implicit comboWellTolerance: TComboBox;
 
Implicit rpShapeCompiler: TRbwParser;
 
Implicit memoMultipleParts: TMemo;
 
Implicit pnlDataTop: TPanel;
 
Implicit cbSelect: TCheckBox;
 
Implicit comboInterpolaters: TComboBox;
 
Private FGeometryFileName: string;
 
Private FIndexFileName: string;
 
Private FDataBaseFileName: string;
 
Private FAllowShapesToCombine: boolean;
 
Private FShouldEnableImportGrid: Boolean;
 
Private FFieldTypes: array of TRbwDataType;

FFieldTypes stores the TRbwDataType of the fields in the Shapefile.

Private FGeometryFile: TShapefileGeometryReader;

FGeometryFile is the geometry file of the Shapefile.

Private FRealFieldNames: TStringList;
 
Private FIntegerFieldNames: TStringList;
 
Private FBooleanFieldNames: TStringList;
 
Private FStringFieldNames: TStringList;
 
Private FRealFieldAndGlobalVariablesNames: TStringList;
 
Private FRealFieldGlobalsAndDataSetsNames: TStringList;
 
Private FShapeCount: integer;
 
Private FFieldNumbers: TStringList;
 
Private FNumPointsInCurrentShape: Integer;
 
Private FInvalidParameterNames: TStringList;
 
Private FCombinedObjectsAllowed: Boolean;
 
Private FObsCount: Integer;
 
Private CombinedObjects: boolean;
 

Methods

Implicit procedure btnImportCriterionClick(Sender: TObject);

btnImportCriterionClick edits the formula in edImportCriterion.

Implicit procedure btnSelectClick(Sender: TObject);

btnSelectClick sets all the checkboxes to checked in column 1 of dgFields to True if Sender = btnAll. Otherwise it sets them all to unchecked. btnSelectClick is the OnClick event-handler for btnAll and btnNone.

Implicit procedure btnOKClick(Sender: TObject);

btnOKClick calls SetData.

Implicit procedure btnToggleClick(Sender: TObject);

btnToggleClick toggles the checkboxes in column 1 of dgFields from Checked to Unchecked or the reverse.

Implicit procedure cbCoordinateConversionClick(Sender: TObject);

cbCoordinateConversionClick activates or deactivates controls related to coordinate conversion and shows or hides points on the image of the UTM zones.

Implicit procedure cbEnclosedCellsClick(Sender: TObject);

cbEnclosedCellsClick checks that at least one of cbEnclosedCells, cbIntersectedCells, or cbInterpolation is checked and emphasisizes them if not. It also disables the OK button until at least one of them is checked.

Implicit procedure comboEllipsoidChange(Sender: TObject);

comboEllipsoidChange changes the ellipsoid used for the coordinate conversions.

Implicit procedure dgFieldsDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);

dgFieldsDrawCell draws some cells in a disabled state.

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

dgFieldsSelectCell assigns interpolators and TDataArrays to the picklist for columns 2 and 3. See GetDataSets and GetInterpolators.

Implicit procedure dgFieldsSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: String);

dgFieldsSetEditText displays the interpolator for the selected TDataArray in column 3.

Implicit procedure edImportCriterionExit(Sender: TObject);

edImportCriterionExit checks the formula in edImportCriterion. See CheckImportCriterionFormula.

Implicit procedure FormCreate(Sender: TObject); override;

FormCreate initialized TfrmImportShapefile.

Implicit procedure FormDestroy(Sender: TObject); override;

FormDestroy destroys FGeometryFile.

Implicit procedure rgEvaluatedAtClick(Sender: TObject);

rgEvaluatedAtClick changes the captions of cbEnclosedCells, cbIntersectedCells, and cbInterpolation.

Implicit procedure cbImportObjectsClick(Sender: TObject);
 
Implicit procedure cbImportGridClick(Sender: TObject);
 
Implicit procedure comboBoundaryChoiceChange(Sender: TObject);
 
Implicit procedure comboRealFieldChange(Sender: TObject);
 
Implicit procedure comboBooleanFieldChange(Sender: TObject);
 
Implicit procedure BoundaryGridBeforeDrawCell(Sender: TObject; ACol, ARow: Integer);
 
Implicit procedure seWellIntervalsChange(Sender: TObject);
 
Implicit procedure comboJoinObjectsChange(Sender: TObject);
 
Implicit procedure seBoundaryTimeCountChange(Sender: TObject);
 
Implicit procedure rdgBoundaryConditionsDistributeTextProgress(Sender: TObject; Position, Max: Integer);
 
Implicit procedure btnElevFormulaEdit(Sender: TObject);
 
Implicit procedure edZExit(Sender: TObject);
 
Implicit procedure edHighZExit(Sender: TObject);
 
Implicit procedure edLowZExit(Sender: TObject);
 
Implicit procedure rgElevationCountClick(Sender: TObject);
 
Implicit procedure comboDrainReturnLocationMethodChange(Sender: TObject);
 
Implicit procedure dgFieldsColSize(Sender: TObject; ACol, PriorWidth: Integer);
 
Implicit procedure dgFieldsMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
 
Implicit procedure cbSelectClick(Sender: TObject);
 
Implicit procedure comboInterpolatersChange(Sender: TObject);
 
Private function CheckDataSets: boolean;

CheckDataSets checks for valid data in dgFields.

Private procedure CheckImportCriterionFormula(AFormula: string);

CheckImportCriterionFormula checks that AFormula is a valid formula.

Private procedure CreateVariables(Parser: TRbwParser);

CreateVariables creates variables in Parser for each attribute in the shape file.

Private procedure GetDataSets(const ARow: integer);

GetDataSets stores in dgFields.Columns[2].PickList the names of the TDataSets that can be used with the parameter specified in ARow of dgFields.

Private procedure GetInterpolators(const ARow: integer);

GetInterpolators stores in dgFields.Columns[3].PickList the names of the interpolators that can be used with th parameter in ARow.

Private function LatLongToPoint(Long, Lat: double): TPoint;

LatLongToPoint converts a latitude and longitude in degrees to a point on imageUtmZones.

Private function LatLongToUTM_Zone(const LongitudeDegrees, LatitudeDegrees: double): integer;

LatLongToUTM_Zone converts a latitude and longitude in degrees to a UTM zone. LatLongToUTM_Zone takes into account the non-regular UTM zones.

Private procedure MakeNewDataSets(NewDataSets: TList);

MakeNewDataSets makes any required new data sets.

Private procedure SetCheckBoxCaptions;

Set the captions of cbEnclosedCells, cbIntersectedCells, and cbInterpolation based on rgEvaluatedAt.ItemIndex.

Private procedure SetData;

SetData imports the Shapes into GoPhast.

Private procedure ShapefileProgress(Sender: TObject; FractionDone: double);

ShapefileProgress is used to display a progress indication when reeding the Shapefile.

Private function SimpleLongToUTM_Zone(const LongitudeDegrees: double): integer;

SimpleLongToUTM_Zone converts a latitude and longitude in degrees to a UTM zone for the non-special UTM zones. .

See also
LatLongToUTM_Zone
LatLongToUTM_Zone converts a latitude and longitude in degrees to a UTM zone.
Private procedure ImportGrid(FieldNames: TStringList);
 
Private procedure EnableOK;
 
Private procedure InitializeBoundaryConditionControls;
 
Private procedure AssignBoundary(AScreenObject: TScreenObject);
 
Private procedure AssignAPhastSpecifiedHeadBoundary(AScreenObject: TScreenObject);
 
Private procedure AssignAPhastBoundary(Boundary: TCustomInterpolatedBoundary);
 
Private function GetRealFormulaFromText(const Text: string; DataSetsOK: boolean = True; FormulaOK: boolean = False): string;
 
Private function GetRealValueFromText(const FieldName: AnsiString): Extended; overload;
 
Private function GetRealValueFromText(const FieldName: String): Extended; overload;
 
Private procedure AssignAPhastLeakyBoundary(AScreenObject: TScreenObject);
 
Private procedure AssignAPhastRiverBoundary(AScreenObject: TScreenObject);
 
Private function GetStringValueFromText(const FieldName: String): string; overload;
 
Private function GetStringValueFromText(const FieldName: AnsiString): string; overload;
 
Private function GetBooleanValueFromText(FieldName: AnsiString): Boolean; overload;
 
Private function GetBooleanValueFromText(FieldName: String): Boolean; overload;
 
Private procedure AssignAPhastWellBoundary(AScreenObject: TScreenObject);
 
Private procedure EnableFeatureImport;
 
Private procedure ImportModflowChdBoundary(AScreenObject: TScreenObject);
 
Private procedure InitializeBoundaryControlsForCHD;
 
Private procedure InitializeBoundaryControlsForGHB;
 
Private procedure ImportModflowGhbBoundary(AScreenObject: TScreenObject);
 
Private procedure InitializeBoundaryControlsForWEL;
 
Private procedure ImportModflowWelBoundary(AScreenObject: TScreenObject);
 
Private procedure InitializeBoundaryControlsForRIV;
 
Private procedure ImportModflowRivPackage(AScreenObject: TScreenObject);
 
Private procedure InitializeBoundaryControlsForDRN;
 
Private procedure ImportModflowDrnPackage(AScreenObject: TScreenObject);
 
Private procedure InitializeBoundaryControlsForRCH(Packages: TModflowPackages);
 
Private function GetIntegerValueFromText(const FieldName: AnsiString): integer; overload;
 
Private function GetIntegerValueFromText(const FieldName: String): integer; overload;
 
Private procedure ImportModflowRchPackage(Packages: TModflowPackages; AScreenObject: TScreenObject);
 
Private procedure InitializeBoundaryControlsForEVT(Packages: TModflowPackages);
 
Private procedure ImportModflowEvtPackage(Packages: TModflowPackages; AScreenObject: TScreenObject);
 
Private procedure InitializeBoundaryControlsForETS(Packages: TModflowPackages);
 
Private procedure ImportModflowEtsPackage(AScreenObject: TScreenObject; Packages: TModflowPackages);
 
Private procedure InitializeBoundaryControlsForHOB;
 
Private procedure ImportModflowHobPackage(AScreenObject: TScreenObject);
 
Private function GetFormulaInterpretation(combo: TComboBox): TFormulaInterpretation;
 
Private procedure AssignColFeatureProperties;
 
Private procedure EnableEvalAt;
 
Private procedure AssignInterpolator(DataSet: TDataArray; Index: Integer; out NewProperties, OldProperties: TPhastDataSetStorage);
 
Private procedure ChangeInterpolators(NewProperties, OldProperties: TList);
 
Private procedure InitializeBoundaryControlsForSFR;
 
Private procedure ImportModflowSfrPackage(AScreenObject: TScreenObject);
 
Private procedure InitializeBoundaryControlsForLAK;
 
Private procedure ImportModflowLakPackage(AScreenObject: TScreenObject);
 
Private procedure CheckElevationFormula(Edit: TRbwEdit; AFormula: string);
 
Private procedure InitializeBoundaryControlsForDRT;
 
Private procedure ImportModflowDrtPackage(AScreenObject: TScreenObject);
 
Private procedure InitializeBoundaryControlsForRES(Packages: TModflowPackages);
 
Private procedure ImportModflowResPackage(AScreenObject: TScreenObject);
 
Private procedure InitializeBoundaryControlsForHFB;
 
Private procedure ImportModflowHfbPackage(AScreenObject: TScreenObject);
 
Private procedure InitializeBoundaryControlsForUZF;
 
Private procedure ImportModflowUzfPackage(AScreenObject: TScreenObject);
 
Private function GetIntegerFormulaFromText(const text: AnsiString; DataSetsOK: boolean = True): string; overload;
 
Private function GetIntegerFormulaFromText(const text: String; DataSetsOK: boolean = True): string; overload;
 
Private procedure CreateDataSetVariables(Parser: TRbwParser; EvalAt: TEvaluatedAt);
 
Private function DataArrayOrientationOK(DataArray: TDataArray): boolean;
 
Private procedure AddModflowPackageToImportChoices( APackage: TModflowPackageSelection);
 
Private procedure InitializeBoundaryControlsForMnw2;
 
Private procedure ImportModflowMnw2Package(AScreenObject: TScreenObject);
 
Private procedure GetTransientParameter(var Param: TModflowTransientListParameter; var ParameterName: string; ParameterColumn: Integer; Row: Integer);
 
Private procedure GetNewOrExistingBoundaryItem( var AnItem: TCustomModflowBoundaryItem; const ParameterName: string; var Param: TModflowTransientListParameter; var ParamItem: TModflowParamItem; Boundary: TModflowParamBoundary; ItemIndex: integer);
 
Private procedure AddParameterNamesToPickList(ParameterType: TParameterType; ParameterColumn: Integer);
 
Private procedure EnableJoinObjects;
 
Private function GetFieldNumberFromName(CellText: AnsiString): Integer;
 
Private procedure Fill_comboInterpolaters;
 
Private function AssociatedConcColumns: integer;
 
Private function CreateConcItem(ConcBoundary: TMt3dmsConcBoundary; ItemIndex: Integer; Item: TCustomModflowBoundaryItem): TMt3dmsConcItem;
 
Private function CreateConcBoundary(AScreenObject: TScreenObject): TMt3dmsConcBoundary;
 
Private procedure ImportConcItemForCombinedShapes(ConcItem: TMt3dmsConcItem; StartingConcIndex: Integer; ItemIndex: Integer; AScreenObject: TScreenObject);
 
Private function GetConcSpeciesItem(AComp: TMobileChemSpeciesItem; ConcIndex: Integer; ConcItem: TMt3dmsConcItem): TStringConcValueItem;
 
Private procedure ImportConcItemForSeparateShapes(ItemIndex: Integer; ConcItem: TMt3dmsConcItem; StartingConcIndex: Integer);
 
Private procedure InitializeColumnsForMt3dConc(StartingConcIndex: Integer);
 
Public function GetData: boolean;

GetData returns True if the Shapefile is selected.

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