Class TfrmImportPoints

Description

Hierarchy

Fields

Methods

Properties

Unit

frmImportPointsUnits

Declaration

type TfrmImportPoints = class(TfrmCustomGoPhast)

Description

TfrmImportPoints imports scattered point data into GoPhast.

OnCreate = FormCreate.
OnKeyUp = FormKeyUp.

Hierarchy

TForm
TfrmCustomGoPhast
TfrmImportPoints

Overview

Fields

	`btnCancel: TBitBtn;`
	`btnHelp: TBitBtn;`
	`btnOK: TBitBtn;`
	`btnOpenFile: TBitBtn;`
	`cbInterpolation: TCheckBox;`
	`cbIntersectedCells: TCheckBox;`
	`edRoot: TEdit;`
	`lblRoot: TLabel;`
	`lblRows: TLabel;`
	`OpenDialogImportFile: TOpenDialog;`
	`pcImportPoints: TPageControl;`
	`pnlBottom: TPanel;`
	`pnlDataTabControls: TPanel;`
	`pnlRadioGroups: TPanel;`
	`rgElevationCount: TRadioGroup;`
	`rgEvaluatedAt: TRadioGroup;`
	`rgViewDirection: TRadioGroup;`
	`tabControls: TTabSheet;`
	`tabData: TTabSheet;`
	`dgData: TRbwDataGrid4;`
	`cbImportAsSingleObject: TCheckBox;`
	`cbVisible: TCheckBox;`
	`seRows: TJvSpinEdit;`
	`pnlData: TPanel;`
	`jvclbDataSets: TJvxCheckListBox;`
	`pnlLabelDataSets: TPanel;`
	`lblBoundaryChoice: TLabel;`
	`comboBoundaryChoice: TComboBox;`
	`lblParameter: TLabel;`
	`comboParameter: TComboBox;`
	`cbLayer: TCheckBox;`
	`XCol: integer;`
	`YCol: integer;`
	`ZCol: integer;`
	`X1Col: integer;`
	`Y1Col: integer;`
	`Z1Col: integer;`
	`X2Col: integer;`
	`Y2Col: integer;`
	`Z2Col: integer;`
	`FImportFileName: string;`
	`StartTime: TDateTime;`
	`FRequiredCols: Integer;`
	`FMultiValueList: TList;`
	`FObsCount: Integer;`
	`FObsRoot: string;`

Methods

	`procedure cbIntersectedCellsClick(Sender: TObject);`
	`procedure jvclbDataSetsClickCheck(Sender: TObject);`
	`procedure FormCreate(Sender: TObject); override;`
	`procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);`
	`procedure rgEvaluatedAtClick(Sender: TObject);`
	`procedure rgViewDirectionClick(Sender: TObject);`
	`procedure dgDataColMoving(Sender: TObject; const Origin, Destination: Integer; var CanMove: Boolean);`
	`procedure rgElevationCountClick(Sender: TObject);`
	`procedure btnOKClick(Sender: TObject);`
	`procedure btnOpenFileClick(Sender: TObject);`
	`procedure seRowsChange(Sender: TObject);`
	`procedure dgDataDistributeTextProgress(Sender: TObject; Position, Max: Integer);`
	`procedure dgDataEndUpdate(Sender: TObject);`
	`procedure comboBoundaryChoiceChange(Sender: TObject);`
	`procedure cbLayerClick(Sender: TObject);`
	`procedure FormShow(Sender: TObject);`
	`procedure UpdateDataSets;`
	`procedure UpdateDimensionColumns;`
	`procedure SetData;`
	`procedure SetCheckBoxCaptions;`
	`procedure EnableOkButton;`
	`procedure UpdateChdColumns;`
	`procedure UpdateDrnColumns;`
	`procedure UpdateGhbColumns;`
	`procedure UpdateRivColumns;`
	`procedure UpdateWelColumns;`
	`procedure UpdateHobColumns;`
	`procedure SetBoundaryColumnFormats;`
	`procedure ImportDataArrayValues(var InvalidRow: Boolean; RowIndex: Integer; PointCount: Integer; var AScreenObject: TScreenObject);`
	`procedure ImportModflowBoundary(var InvalidRow: Boolean; AScreenObject: TScreenObject; RowIndex: Integer);`

Description

Fields

	`btnCancel: TBitBtn;`
The Cancel button.

	`btnHelp: TBitBtn;`
`btnHelp` is the Help button.

	`btnOK: TBitBtn;`
The OK button.

	`btnOpenFile: TBitBtn;`
`btnOpenFile` is the button the user uses to open a file that contains the point data.

	`cbInterpolation: TCheckBox;`
`cbInterpolation` specifies whether the imported data points will set values of data sets by interpolation.

	`cbIntersectedCells: TCheckBox;`
`cbIntersectedCells` specifies whether the imported data points will set values of data sets at intersected cells.

	`edRoot: TEdit;`
`edRoot` specifies a "root" that is used to create names for the imported objects.

	`lblRoot: TLabel;`
`lblRoot` labels edRoot.

	`lblRows: TLabel;`
`lblRows` is the label for seRows.

	`OpenDialogImportFile: TOpenDialog;`
`OpenDialogImportFile` is used to select a file that contains the point data.

	`pcImportPoints: TPageControl;`
The TPageControl that contains tabControls and tabData.

	`pnlBottom: TPanel;`
`pnlBottom` is the bottom panel that holds the OK (btnOK) and Cancel (btnCancel) buttons.

	`pnlDataTabControls: TPanel;`
`pnlDataTabControls` is the panel at the bottom of tabData that holds seRows and btnOpenFile.

	`pnlRadioGroups: TPanel;`
`pnlRadioGroups` is the panel that holds rgEvaluatedAt and rgViewDirection.

	`rgElevationCount: TRadioGroup;`
`rgElevationCount` specifies how many elevation formulas will be used with each imported point object.

rgEvaluatedAt: TRadioGroup;

rgEvaluatedAt indicates whether the points are to be evaluated at nodes or elements.

OnClick = rgEvaluatedAtClick.

rgViewDirection: TRadioGroup;

rgViewDirection indicates the direction from which the data will be viewed.

OnClick = rgViewDirectionClick.

	`tabControls: TTabSheet;`
`tabControls` holds the controls used to specify properties of the imported objects.

	`tabData: TTabSheet;`
`tabData` holds dgData and pnlDataTabControls.

	`dgData: TRbwDataGrid4;`

	`cbImportAsSingleObject: TCheckBox;`

	`cbVisible: TCheckBox;`

	`seRows: TJvSpinEdit;`

	`pnlData: TPanel;`

	`jvclbDataSets: TJvxCheckListBox;`

	`pnlLabelDataSets: TPanel;`

	`lblBoundaryChoice: TLabel;`

	`comboBoundaryChoice: TComboBox;`

	`lblParameter: TLabel;`

	`comboParameter: TComboBox;`

	`cbLayer: TCheckBox;`

	`XCol: integer;`
`XCol` is the column that specifies the X coordinate.

	`YCol: integer;`
`YCol` is the column that specifies the Y coordinate.

	`ZCol: integer;`
`ZCol` is the column that specifies the Z coordinate.

	`X1Col: integer;`
`X1Col` is the column that specifies the first X formula.

	`Y1Col: integer;`
`Y1Col` is the column that specifies the first Y formula.

	`Z1Col: integer;`
`Z1Col` is the column that specifies the first Z formula.

	`X2Col: integer;`
`X2Col` is the column that specifies the second X formula.

	`Y2Col: integer;`
`Y2Col` is the column that specifies the second Y formula.

	`Z2Col: integer;`
`Z2Col` is the column that specifies the second Z formula.

	`FImportFileName: string;`

	`StartTime: TDateTime;`

	`FRequiredCols: Integer;`

	`FMultiValueList: TList;`

	`FObsCount: Integer;`

	`FObsRoot: string;`

Methods

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

	`procedure jvclbDataSetsClickCheck(Sender: TObject);`
`jvclbDataSetsClickCheck` updates the columns in dgData

	`procedure FormCreate(Sender: TObject); override;`
`FormCreate` initializes the `TfrmImportPoints`.

	`procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);`
`FormKeyUp` spreads the data in the keyboard into the cells of dgData. KeyPreview has to be `True` for this to work.

	`procedure rgEvaluatedAtClick(Sender: TObject);`
`rgEvaluatedAtClick` calls UpdateDataSets;

	`procedure rgViewDirectionClick(Sender: TObject);`
`rgViewDirectionClick` calls UpdateDataSets;

	`procedure dgDataColMoving(Sender: TObject; const Origin, Destination: Integer; var CanMove: Boolean);`
`dgDataColMoving` is used to prevent the columns specifying coordinates from being moved.

	`procedure rgElevationCountClick(Sender: TObject);`
`rgElevationCountClick` calls UpdateDimensionColumns and UpdateDataSets.

	`procedure btnOKClick(Sender: TObject);`
`btnOKClick` calls SetData.

	`procedure btnOpenFileClick(Sender: TObject);`
`btnOpenFileClick` reads data from a file into dgData.

	`procedure seRowsChange(Sender: TObject);`

	`procedure dgDataDistributeTextProgress(Sender: TObject; Position, Max: Integer);`

	`procedure dgDataEndUpdate(Sender: TObject);`

	`procedure comboBoundaryChoiceChange(Sender: TObject);`

	`procedure cbLayerClick(Sender: TObject);`

	`procedure FormShow(Sender: TObject);`

	`procedure UpdateDataSets;`
`UpdateDataSets` updates the contents of jvclbDataSets.

	`procedure UpdateDimensionColumns;`
`UpdateDimensionColumns` updates the column captions for the columns that specify dimensions in dgData.

	`procedure SetData;`
`SetData` imports the data into GoPhast.

	`procedure SetCheckBoxCaptions;`
Set the captions of cbIntersectedCells and cbInterpolation based on rgEvaluatedAt.ItemIndex.

	`procedure EnableOkButton;`

	`procedure UpdateChdColumns;`

	`procedure UpdateDrnColumns;`

	`procedure UpdateGhbColumns;`

	`procedure UpdateRivColumns;`

	`procedure UpdateWelColumns;`

	`procedure UpdateHobColumns;`

	`procedure SetBoundaryColumnFormats;`

	`procedure ImportDataArrayValues(var InvalidRow: Boolean; RowIndex: Integer; PointCount: Integer; var AScreenObject: TScreenObject);`

	`procedure ImportModflowBoundary(var InvalidRow: Boolean; AScreenObject: TScreenObject; RowIndex: Integer);`

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