Class TfrmImportDistributedData

DescriptionHierarchyFieldsMethodsProperties

Unit

frmImportDistributedDataUnit

Declaration

type TfrmImportDistributedData = class(TfrmCustomGoPhast)

Description

TfrmImportDistributedData is used to import zone data into TMultiValueScreenObjects.

Hierarchy

Overview

Fields

Implicit btnCancel: TBitBtn;
Implicit btnHelp: TBitBtn;
Implicit btnOK: TBitBtn;
Implicit comboViewDirection: TComboBox;
Implicit lblHigherX: TLabel;
Implicit lblHigherY: TLabel;
Implicit lblHigherZ: TLabel;
Implicit lblImportTo: TLabel;
Implicit lblLowerX: TLabel;
Implicit lblLowerY: TLabel;
Implicit lblLowerZ: TLabel;
Implicit OpenDialogFile: TOpenDialog;
Implicit pnlBottom: TPanel;
Implicit pnlTop: TPanel;
Implicit rdeHigherX: TRbwDataEntry;
Implicit rdeHigherY: TRbwDataEntry;
Implicit rdeHigherZ: TRbwDataEntry;
Implicit rdeLowerX: TRbwDataEntry;
Implicit rdeLowerY: TRbwDataEntry;
Implicit rdeLowerZ: TRbwDataEntry;
Implicit dgDataSets: TRbwDataGrid4;

Methods

Implicit procedure btnOKClick(Sender: TObject);
Implicit procedure comboViewDirectionChange(Sender: TObject);
Implicit procedure dgDataSetsButtonClicked(Sender: TObject; ACol, ARow: Integer);
Implicit procedure FormCreate(Sender: TObject); override;
Implicit procedure FormResize(Sender: TObject);
Private procedure EnableOK;
Private procedure GetData;
Private procedure GetDataSets;
Private procedure SetData;
Private procedure ResizeColumns;

Description

Fields

Implicit btnCancel: TBitBtn;

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

Implicit btnHelp: TBitBtn;

btnHelp: TBitBtn; Clicking btnHelp displays help on TfrmImportDistributedData.

Implicit btnOK: TBitBtn;

btnOK: TBitBtn; See btnOKClick.

Implicit comboViewDirection: TComboBox;

comboViewDirection: TComboBox; comboViewDirection specifies the direction from which the imported zones will be viewed.

Implicit lblHigherX: TLabel;

lblHigherX: TLabel; lblHigherX displays "Higher X'".

Implicit lblHigherY: TLabel;

lblHigherY: TLabel; lblHigherY displays "Higher Y'".

Implicit lblHigherZ: TLabel;

lblHigherZ: TLabel; lblHigherZ displays "Higher Z'".

Implicit lblImportTo: TLabel;

lblImportTo: TLabel; lblImportTo displays "Import to ".

Implicit lblLowerX: TLabel;

lblLowerX: TLabel; lblLowerX displays "Lower X'".

Implicit lblLowerY: TLabel;

lblLowerY: TLabel; lblLowerY displays "Lower Y'".

Implicit lblLowerZ: TLabel;

lblLowerZ: TLabel; lblLowerZ displays "Lower Z'".

Implicit OpenDialogFile: TOpenDialog;

OpenDialogFile: TOpenDialog; OpenDialogFile is used to select data file for importing.

Implicit pnlBottom: TPanel;

pnlBottom: TPanel; pnlBottom holds the buttons on the bottom of the dialog box.

Implicit pnlTop: TPanel;

pnlTop: TPanel; pnlTop holds the controls in the top part of the dialog box.

Implicit rdeHigherX: TRbwDataEntry;

rdeHigherX: TRbwDataEntry; rdeHigherX is used to specify the higher X' coordinate of a zone.

Implicit rdeHigherY: TRbwDataEntry;

rdeHigherY: TRbwDataEntry; rdeHigherY is used to specify the higher Y' coordinate of a zone.

Implicit rdeHigherZ: TRbwDataEntry;

rdeHigherZ: TRbwDataEntry; rdeHigherZ is used to specify the higher Z' coordinate of a zone.

Implicit rdeLowerX: TRbwDataEntry;

rdeLowerX: TRbwDataEntry; rdeLowerX is used to specify the lower X' coordinate of a zone.

Implicit rdeLowerY: TRbwDataEntry;

rdeLowerY: TRbwDataEntry; rdeLowerY is used to specify the lower Y' coordinate of a zone.

Implicit rdeLowerZ: TRbwDataEntry;

rdeLowerZ: TRbwDataEntry; rdeLowerZ is used to specify the lower Z' coordinate of a zone.

Implicit dgDataSets: TRbwDataGrid4;
 

Methods

Implicit procedure btnOKClick(Sender: TObject);

btnOKClick calls SetData.

Implicit procedure comboViewDirectionChange(Sender: TObject);

comboViewDirectionChange calls GetDataSets and invalidates dgDataSets.

Implicit procedure dgDataSetsButtonClicked(Sender: TObject; ACol, ARow: Integer);

dgDataSetsButtonClicked uses OpenDialogFile to specify a zone file.

Implicit procedure FormCreate(Sender: TObject); override;

FormCreate initialized TfrmImportDistributedData and calls GetData.

Implicit procedure FormResize(Sender: TObject);

FormResize calls ResizeColumns;

Private procedure EnableOK;

EnableOK enables the btnOK button when the entered data is valid.

Private procedure GetData;

sets the lower and higher, X, Y, and Z coordinates to the extend of the grid.

Private procedure GetDataSets;

GetDataSets fills dgDataSets with the names of the TDataArrays to which data can be imported in the current model view.

Private procedure SetData;

SetData imports the data specified by the user into TMultiValueScreenObjects.

Private procedure ResizeColumns;

ResizeColumns resizes the column with the file names in dgDataSets.

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