Class TfrmDataSetValues

DescriptionHierarchyFieldsMethodsProperties

Unit

Declaration

type TfrmDataSetValues = 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 Panel1: TPanel;
Implicit btnClose: TBitBtn;
Implicit btnHelp: TBitBtn;
Implicit pcDataSet: TPageControl;
Implicit btnCopy: TButton;
Implicit Panel2: TPanel;
Implicit lbLayers: TJvListBox;
Implicit lblLayer: TLabel;
Implicit lblDataSet: TLabel;
Implicit comboModel: TComboBox;
Implicit lblModel: TLabel;
Implicit treecomboDataSets: TRbwStringTreeCombo;
Implicit comboOrientation: TComboBox;
Implicit btnSave: TButton;
Implicit dlgSave: TSaveDialog;
Private FSelectedVirtNode: PVirtualNode;
Private FDataSets: TList;
Private FTempControls: TList;

Methods

Implicit procedure FormCreate(Sender: TObject); override;
Implicit procedure FormDestroy(Sender: TObject); override;
Implicit procedure treecomboDataSetsDropDownTreeChange(Sender: TBaseVirtualTree; Node: PVirtualNode);
Implicit procedure treecomboDataSetsDropDownTreeGetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType; var CellText: string);
Implicit procedure treecomboDataSetsChange(Sender: TObject);
Implicit procedure treecomboDataSetsDropDownTreeGetNodeDataSize( Sender: TBaseVirtualTree; var NodeDataSize: Integer);
Implicit procedure btnCopyClick(Sender: TObject);
Implicit procedure lbLayersMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Implicit procedure comboModelChange(Sender: TObject);
Implicit procedure treecomboDataSets1TreeInitNode(Sender: TBaseVirtualTree; ParentNode, Node: PVirtualNode; var InitialStates: TVirtualNodeInitStates);
Implicit procedure comboOrientationChange(Sender: TObject);
Implicit procedure btnSaveClick(Sender: TObject);
Private procedure GetData;
Private procedure SetSelectedNode(Sender: TBaseVirtualTree; Node: PVirtualNode);
Private procedure GetDataArray(var DataArray: TDataArray);
Private procedure AssignGridValues(DataArray: TDataArray);
Private procedure AssignMeshValues(DataArray: TDataArray);

Properties

Public property SelectedVirtNode: PVirtualNode read FSelectedVirtNode;

Description

Fields

Implicit Panel1: TPanel;
 
Implicit btnClose: TBitBtn;
 
Implicit btnHelp: TBitBtn;
 
Implicit pcDataSet: TPageControl;
 
Implicit btnCopy: TButton;
 
Implicit Panel2: TPanel;
 
Implicit lbLayers: TJvListBox;
 
Implicit lblLayer: TLabel;
 
Implicit lblDataSet: TLabel;
 
Implicit comboModel: TComboBox;
 
Implicit lblModel: TLabel;
 
Implicit treecomboDataSets: TRbwStringTreeCombo;
 
Implicit comboOrientation: TComboBox;
 
Implicit btnSave: TButton;
 
Implicit dlgSave: TSaveDialog;
 
Private FSelectedVirtNode: PVirtualNode;
 
Private FDataSets: TList;

FDataSets is implemented as a TObjectList.

Private FTempControls: TList;
 

Methods

Implicit procedure FormCreate(Sender: TObject); override;
 
Implicit procedure FormDestroy(Sender: TObject); override;
 
Implicit procedure treecomboDataSetsDropDownTreeChange(Sender: TBaseVirtualTree; Node: PVirtualNode);
 
Implicit procedure treecomboDataSetsDropDownTreeGetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType; var CellText: string);
 
Implicit procedure treecomboDataSetsChange(Sender: TObject);
 
Implicit procedure treecomboDataSetsDropDownTreeGetNodeDataSize( Sender: TBaseVirtualTree; var NodeDataSize: Integer);
 
Implicit procedure btnCopyClick(Sender: TObject);
 
Implicit procedure lbLayersMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
 
Implicit procedure comboModelChange(Sender: TObject);
 
Implicit procedure treecomboDataSets1TreeInitNode(Sender: TBaseVirtualTree; ParentNode, Node: PVirtualNode; var InitialStates: TVirtualNodeInitStates);
 
Implicit procedure comboOrientationChange(Sender: TObject);
 
Implicit procedure btnSaveClick(Sender: TObject);
 
Private procedure GetData;
 
Private procedure SetSelectedNode(Sender: TBaseVirtualTree; Node: PVirtualNode);
 
Private procedure GetDataArray(var DataArray: TDataArray);
 
Private procedure AssignGridValues(DataArray: TDataArray);
 
Private procedure AssignMeshValues(DataArray: TDataArray);
 

Properties

Public property SelectedVirtNode: PVirtualNode read FSelectedVirtNode;

Private declarations


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