Class TfrmImportGriddedData

DescriptionHierarchyFieldsMethodsProperties

Unit

frmImportGriddedDataUnit

Declaration

type TfrmImportGriddedData = 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 jvplCellGrid: TJvPageList;
Implicit pnlMethodControls: TPanel;
Implicit Panel2: TPanel;
Implicit jvspCellList: TJvStandardPage;
Implicit jvspGrid: TJvStandardPage;
Implicit rdgList: TRbwDataGrid4;
Implicit pcGriddedData: TPageControl;
Implicit pnlListControls: TPanel;
Implicit GridPanel1: TGridPanel;
Implicit sbAddRow: TSpeedButton;
Implicit sbInsertRow: TSpeedButton;
Implicit sbDeleteRow: TSpeedButton;
Implicit btnHelp: TBitBtn;
Implicit btnOK: TBitBtn;
Implicit btnCancel: TBitBtn;
Implicit comboMethod: TComboBox;
Implicit lblMethod: TLabel;
Implicit lblDataSet: TLabel;
Implicit seNumberOfRows: TJvSpinEdit;
Implicit lblNumberOfRows: TLabel;
Implicit rdgIgnoreValues: TRbwDataGrid4;
Implicit seIgnoreValueCount: TJvSpinEdit;
Implicit lblIgnoreValueCount: TLabel;
Implicit lblColumns: TLabel;
Implicit lblRows: TJvLabel;
Implicit combotreeDataSets: TRbwStringTreeCombo;
Implicit cbMultipleDataRows: TCheckBox;
Private FGrids: TList;
Private FRealIgnoreValues: array of double;
Private FIntegerIgnoreValues: array of integer;
Private FBooleanIgnoreValues: array of boolean;
Private FStringIgnoreValues: array of string;
Private FStoredClassifications: TList;
Private FSelectedVirtNode: PVirtualNode;
Private FShouldClick: Boolean;

Methods

Implicit procedure comboMethodChange(Sender: TObject);
Implicit procedure FormCreate(Sender: TObject); override;
Implicit procedure FormDestroy(Sender: TObject); override;
Implicit procedure rdgListEndUpdate(Sender: TObject);
Implicit procedure seNumberOfRowsChange(Sender: TObject);
Implicit procedure sbAddRowClick(Sender: TObject);
Implicit procedure sbInsertRowClick(Sender: TObject);
Implicit procedure sbDeleteRowClick(Sender: TObject);
Implicit procedure rdgIgnoreValuesEndUpdate(Sender: TObject);
Implicit procedure seIgnoreValueCountChange(Sender: TObject);
Implicit procedure btnOKClick(Sender: TObject);
Implicit procedure FormResize(Sender: TObject);
Implicit procedure combotreeDataSetsDropDownTreeGetNodeDataSize( Sender: TBaseVirtualTree; var NodeDataSize: Integer);
Implicit procedure combotreeDataSetsDropDownTreeChange(Sender: TBaseVirtualTree; Node: PVirtualNode);
Implicit procedure combotreeDataSetsDropDownTreeGetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType; var CellText: String);
Implicit procedure combotreeDataSetsClosedUp(Sender: TObject);
Implicit procedure combotreeDataSetsDropDownTreeEnter(Sender: TObject);
Implicit procedure combotreeDataSets1TreeInitNode(Sender: TBaseVirtualTree; ParentNode, Node: PVirtualNode; var InitialStates: TVirtualNodeInitStates);
Implicit procedure cbMultipleDataRowsClick(Sender: TObject);
Private procedure InitializeGridForCellList(DataSet: TDataArray);
Private procedure InitializeGridForGriddedData(Grid: TRbwDataGrid4; ColumnFormat: TRbwColumnFormat4; ColumnsForward, RowsForward: Boolean);
Private procedure InitializeTabSheetFor2DGriddedData(DataSet: TDataArray);
Private procedure InitializeGridsForGriddedData(DataSet: TDataArray);
Private procedure GetData;
Private procedure SetData;
Private procedure AssignDataSetValue;
Private procedure StoreIgnoredValues(DataSet: TDataArray);
Private function IsIgnoredRealValue(AValue: double): boolean;
Private function IsIgnoredIntegerValue(AValue: integer): boolean;
Private function IsIgnoredBooleanValue(AValue: boolean): boolean;
Private function IsIgnoredStringValue(AValue: string): boolean;
Private function ReadARowOfListData(DataSet: TDataArray; RowIndex: Integer; out FirstIndex, SecondIndex: Integer; out RealData: Double; out IntegerData: Integer; out BooleanData: Boolean; out StringData: string): boolean;
Private function ReadDataCell(DataSet: TDataArray; RowIndex, DataColumn: Integer; var RealData: Double; var IntegerData: Integer; var BooleanData: Boolean; var StringData: string): Boolean;
Private function ReadAnIndex(var AnIndex: Integer; RowIndex, DataColumn: Integer): boolean;
Private function ReadOneRow(DataSet: TDataArray; RowIndex: Integer; var Layer, Row, Column: Integer; var RealData: Double; var IntegerData: Integer; var BooleanData: Boolean; var StringData: string): Boolean;
Private procedure CreateAScreenObject(DataSet: TDataArray; ScreenObjectList: TList; var ScreenObject: TScreenObject; ObjectIndex: Integer);
Private procedure GetValues(var Values: TValueArrayStorage; DataSet: TDataArray; ScreenObject: TScreenObject);
Private procedure GetElevations(var Elevations: TValueArrayStorage; DataSet: TDataArray; ScreenObject: TScreenObject);
Private procedure GetLocation(var Point2D: TPoint2D; var APoint: T3DRealPoint; Column: Integer; Row: Integer; Layer: Integer; DataSet: TDataArray);
Private procedure AssignValueToScreenObject(ScreenObject: TScreenObject; StringData: string; BooleanData: Boolean; IntegerData: Integer; RealData: Double; Column: Integer; Row: Integer; Layer: Integer; DataSet: TDataArray);
Private procedure GetColRowLayerFromGrid(Grid: TRbwDataGrid4; ColIndex, RowIndex, GridIndex: Integer; out Column, Row, Layer: Integer; DataSet: TDataArray);
Private function ReadDataFromGrid(Grid: TRbwDataGrid4; DataSet: TDataArray; ColIndex, RowIndex: Integer; var RealData: Double; var IntegerData: Integer; var BooleanData: Boolean; var StringData: string): Boolean;
Private procedure InitializeScreenObject(var ScreenObject: TScreenObject; Layer: Integer; ScreenObjectList: TList; DataSet: TDataArray);
Private procedure FinalizeScreenObjects(ScreenObjectList: TList; DataSet: TDataArray);
Private procedure GetGridCount(DataSet: TDataArray; var Limit: Integer);
Private procedure RetrieveSelectedObject(var AnObject: TObject);
Private procedure SetSelectedNode(Sender: TBaseVirtualTree; Node: PVirtualNode);
Private procedure GetNodeCaption(Node: PVirtualNode; var CellText: string; Sender: TBaseVirtualTree);

Properties

Private property SelectedVirtNode: PVirtualNode read FSelectedVirtNode;

Description

Fields

Implicit jvplCellGrid: TJvPageList;
 
Implicit pnlMethodControls: TPanel;
 
Implicit Panel2: TPanel;
 
Implicit jvspCellList: TJvStandardPage;
 
Implicit jvspGrid: TJvStandardPage;
 
Implicit rdgList: TRbwDataGrid4;
 
Implicit pcGriddedData: TPageControl;
 
Implicit pnlListControls: TPanel;
 
Implicit GridPanel1: TGridPanel;
 
Implicit sbAddRow: TSpeedButton;
 
Implicit sbInsertRow: TSpeedButton;
 
Implicit sbDeleteRow: TSpeedButton;
 
Implicit btnHelp: TBitBtn;
 
Implicit btnOK: TBitBtn;
 
Implicit btnCancel: TBitBtn;
 
Implicit comboMethod: TComboBox;
 
Implicit lblMethod: TLabel;
 
Implicit lblDataSet: TLabel;
 
Implicit seNumberOfRows: TJvSpinEdit;
 
Implicit lblNumberOfRows: TLabel;
 
Implicit rdgIgnoreValues: TRbwDataGrid4;
 
Implicit seIgnoreValueCount: TJvSpinEdit;
 
Implicit lblIgnoreValueCount: TLabel;
 
Implicit lblColumns: TLabel;
 
Implicit lblRows: TJvLabel;
 
Implicit combotreeDataSets: TRbwStringTreeCombo;
 
Implicit cbMultipleDataRows: TCheckBox;
 
Private FGrids: TList;
 
Private FRealIgnoreValues: array of double;
 
Private FIntegerIgnoreValues: array of integer;
 
Private FBooleanIgnoreValues: array of boolean;
 
Private FStringIgnoreValues: array of string;
 
Private FStoredClassifications: TList;
 
Private FSelectedVirtNode: PVirtualNode;
 
Private FShouldClick: Boolean;
 

Methods

Implicit procedure comboMethodChange(Sender: TObject);
 
Implicit procedure FormCreate(Sender: TObject); override;
 
Implicit procedure FormDestroy(Sender: TObject); override;
 
Implicit procedure rdgListEndUpdate(Sender: TObject);
 
Implicit procedure seNumberOfRowsChange(Sender: TObject);
 
Implicit procedure sbAddRowClick(Sender: TObject);
 
Implicit procedure sbInsertRowClick(Sender: TObject);
 
Implicit procedure sbDeleteRowClick(Sender: TObject);
 
Implicit procedure rdgIgnoreValuesEndUpdate(Sender: TObject);
 
Implicit procedure seIgnoreValueCountChange(Sender: TObject);
 
Implicit procedure btnOKClick(Sender: TObject);
 
Implicit procedure FormResize(Sender: TObject);
 
Implicit procedure combotreeDataSetsDropDownTreeGetNodeDataSize( Sender: TBaseVirtualTree; var NodeDataSize: Integer);
 
Implicit procedure combotreeDataSetsDropDownTreeChange(Sender: TBaseVirtualTree; Node: PVirtualNode);
 
Implicit procedure combotreeDataSetsDropDownTreeGetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType; var CellText: String);
 
Implicit procedure combotreeDataSetsClosedUp(Sender: TObject);
 
Implicit procedure combotreeDataSetsDropDownTreeEnter(Sender: TObject);
 
Implicit procedure combotreeDataSets1TreeInitNode(Sender: TBaseVirtualTree; ParentNode, Node: PVirtualNode; var InitialStates: TVirtualNodeInitStates);
 
Implicit procedure cbMultipleDataRowsClick(Sender: TObject);
 
Private procedure InitializeGridForCellList(DataSet: TDataArray);
 
Private procedure InitializeGridForGriddedData(Grid: TRbwDataGrid4; ColumnFormat: TRbwColumnFormat4; ColumnsForward, RowsForward: Boolean);
 
Private procedure InitializeTabSheetFor2DGriddedData(DataSet: TDataArray);
 
Private procedure InitializeGridsForGriddedData(DataSet: TDataArray);
 
Private procedure GetData;
 
Private procedure SetData;
 
Private procedure AssignDataSetValue;
 
Private procedure StoreIgnoredValues(DataSet: TDataArray);
 
Private function IsIgnoredRealValue(AValue: double): boolean;
 
Private function IsIgnoredIntegerValue(AValue: integer): boolean;
 
Private function IsIgnoredBooleanValue(AValue: boolean): boolean;
 
Private function IsIgnoredStringValue(AValue: string): boolean;
 
Private function ReadARowOfListData(DataSet: TDataArray; RowIndex: Integer; out FirstIndex, SecondIndex: Integer; out RealData: Double; out IntegerData: Integer; out BooleanData: Boolean; out StringData: string): boolean;
 
Private function ReadDataCell(DataSet: TDataArray; RowIndex, DataColumn: Integer; var RealData: Double; var IntegerData: Integer; var BooleanData: Boolean; var StringData: string): Boolean;
 
Private function ReadAnIndex(var AnIndex: Integer; RowIndex, DataColumn: Integer): boolean;
 
Private function ReadOneRow(DataSet: TDataArray; RowIndex: Integer; var Layer, Row, Column: Integer; var RealData: Double; var IntegerData: Integer; var BooleanData: Boolean; var StringData: string): Boolean;
 
Private procedure CreateAScreenObject(DataSet: TDataArray; ScreenObjectList: TList; var ScreenObject: TScreenObject; ObjectIndex: Integer);
 
Private procedure GetValues(var Values: TValueArrayStorage; DataSet: TDataArray; ScreenObject: TScreenObject);
 
Private procedure GetElevations(var Elevations: TValueArrayStorage; DataSet: TDataArray; ScreenObject: TScreenObject);
 
Private procedure GetLocation(var Point2D: TPoint2D; var APoint: T3DRealPoint; Column: Integer; Row: Integer; Layer: Integer; DataSet: TDataArray);
 
Private procedure AssignValueToScreenObject(ScreenObject: TScreenObject; StringData: string; BooleanData: Boolean; IntegerData: Integer; RealData: Double; Column: Integer; Row: Integer; Layer: Integer; DataSet: TDataArray);
 
Private procedure GetColRowLayerFromGrid(Grid: TRbwDataGrid4; ColIndex, RowIndex, GridIndex: Integer; out Column, Row, Layer: Integer; DataSet: TDataArray);
 
Private function ReadDataFromGrid(Grid: TRbwDataGrid4; DataSet: TDataArray; ColIndex, RowIndex: Integer; var RealData: Double; var IntegerData: Integer; var BooleanData: Boolean; var StringData: string): Boolean;
 
Private procedure InitializeScreenObject(var ScreenObject: TScreenObject; Layer: Integer; ScreenObjectList: TList; DataSet: TDataArray);
 
Private procedure FinalizeScreenObjects(ScreenObjectList: TList; DataSet: TDataArray);
 
Private procedure GetGridCount(DataSet: TDataArray; var Limit: Integer);
 
Private procedure RetrieveSelectedObject(var AnObject: TObject);
 
Private procedure SetSelectedNode(Sender: TBaseVirtualTree; Node: PVirtualNode);
 
Private procedure GetNodeCaption(Node: PVirtualNode; var CellText: string; Sender: TBaseVirtualTree);
 

Properties

Private property SelectedVirtNode: PVirtualNode read FSelectedVirtNode;
 
Generated by PasDoc 0.12.1 on 2013-05-13 15:41:37