Class TfrmDataSetValues

Unit

frmDataSetValuesUnit

Declaration

type TfrmDataSetValues = class(TfrmCustomGoPhast)

Description

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

• TForm
• TfrmCustomGoPhast
• TfrmDataSetValues

Overview

Fields

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

Methods

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

Properties

property SelectedVirtNode: PVirtualNode read FSelectedVirtNode;

Description

Fields

	Panel1: TPanel;

	btnClose: TBitBtn;

	btnHelp: TBitBtn;

	pcDataSet: TPageControl;

	btnCopy: TButton;

	Panel2: TPanel;

	lbLayers: TJvListBox;

	lblLayer: TLabel;

	lblDataSet: TLabel;

	comboModel: TComboBox;

	lblModel: TLabel;

	treecomboDataSets: TRbwStringTreeCombo;

	comboOrientation: TComboBox;

	btnSave: TButton;

	dlgSave: TSaveDialog;

	FSelectedVirtNode: PVirtualNode;

	FDataSets: TList;
FDataSets is implemented as a TObjectList.

	FTempControls: TList;

Methods

	procedure FormCreate(Sender: TObject); override;

	procedure FormDestroy(Sender: TObject); override;

	procedure treecomboDataSetsDropDownTreeChange(Sender: TBaseVirtualTree; Node: PVirtualNode);

	procedure treecomboDataSetsDropDownTreeGetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType; var CellText: string);

	procedure treecomboDataSetsChange(Sender: TObject);

	procedure treecomboDataSetsDropDownTreeGetNodeDataSize( Sender: TBaseVirtualTree; var NodeDataSize: Integer);

	procedure btnCopyClick(Sender: TObject);

	procedure lbLayersMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

	procedure comboModelChange(Sender: TObject);

	procedure treecomboDataSets1TreeInitNode(Sender: TBaseVirtualTree; ParentNode, Node: PVirtualNode; var InitialStates: TVirtualNodeInitStates);

	procedure comboOrientationChange(Sender: TObject);

	procedure btnSaveClick(Sender: TObject);

	procedure GetData;

	procedure SetSelectedNode(Sender: TBaseVirtualTree; Node: PVirtualNode);

	procedure GetDataArray(var DataArray: TDataArray);

	procedure AssignGridValues(DataArray: TDataArray);

	procedure AssignMeshValues(DataArray: TDataArray);

Properties

	property SelectedVirtNode: PVirtualNode read FSelectedVirtNode;
Private declarations