Class TfrmImportSutraModelResults

Unit

frmImportSutraModelResultsUnit

Declaration

type TfrmImportSutraModelResults = 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
• TfrmImportSutraModelResults

Overview

Fields

	chklstTimeStepsToImport: TCheckListBox;
	lblTimeStepsToImport: TLabel;
	chklstDataToImport: TCheckListBox;
	lblDataToImport: TLabel;
	pnlBottom: TPanel;
	btnHelp: TBitBtn;
	btnOK: TBitBtn;
	btnCancel: TBitBtn;
	dlgOpenSutraFile: TOpenDialog;
	rgDisplayChoice: TRadioGroup;
	lblColorMesh: TLabel;
	comboColorMesh: TComboBox;
	btnSelectAll: TButton;
	btnSelectNone: TButton;
	btnSelectAllTimes: TButton;
	btnDeselectAllTimes: TButton;
	FNodeReader: TNodReader;
	FEleReader: TEleReader;
	FResultList: TStoredResultsList;
	FColorContourList: TColorContourList;
	FColorContourDataArray: TDataArray;
	F_CCItem: TColorContourItem;

Methods

	procedure FormCreate(Sender: TObject); override;
	procedure FormDestroy(Sender: TObject); override;
	procedure btnOKClick(Sender: TObject);
	procedure btnSelectAllClick(Sender: TObject);
	procedure btnSelectNoneClick(Sender: TObject);
	procedure btnSelectAllTimesClick(Sender: TObject);
	procedure btnDeselectAllTimesClick(Sender: TObject);
	procedure chklstDataToImportClick(Sender: TObject);
	procedure chklstTimeStepsToImportClick(Sender: TObject);
	procedure GetData;
	procedure SetData;
	procedure CreateNodeScreenObject(out ScreenObject: TScreenObject);
	procedure CreateElementScreenObject(out ScreenObject: TScreenObject);
	procedure CreateNodeDataSets(StepIndex: Integer; NewDataSets: TList);
	procedure CreateElementDataSets(StepIndex: Integer; NewDataSets: TList);
	procedure AssignNodeValues(NewDataSets: TList; AScreenObject: TScreenObject);
	procedure AssignElementValues(NewDataSets: TList; AScreenObject: TScreenObject);
	procedure UpdateColorContourList;
	procedure EnableOkButton;
	procedure Loaded; override;

Description

Fields

	chklstTimeStepsToImport: TCheckListBox;

	lblTimeStepsToImport: TLabel;

	chklstDataToImport: TCheckListBox;

	lblDataToImport: TLabel;

	pnlBottom: TPanel;

	btnHelp: TBitBtn;

	btnOK: TBitBtn;

	btnCancel: TBitBtn;

	dlgOpenSutraFile: TOpenDialog;

	rgDisplayChoice: TRadioGroup;

	lblColorMesh: TLabel;

	comboColorMesh: TComboBox;

	btnSelectAll: TButton;

	btnSelectNone: TButton;

	btnSelectAllTimes: TButton;

	btnDeselectAllTimes: TButton;

	FNodeReader: TNodReader;

	FEleReader: TEleReader;

	FResultList: TStoredResultsList;

	FColorContourList: TColorContourList;

	FColorContourDataArray: TDataArray;

	F_CCItem: TColorContourItem;

Methods

	procedure FormCreate(Sender: TObject); override;

	procedure FormDestroy(Sender: TObject); override;

	procedure btnOKClick(Sender: TObject);

	procedure btnSelectAllClick(Sender: TObject);

	procedure btnSelectNoneClick(Sender: TObject);

	procedure btnSelectAllTimesClick(Sender: TObject);

	procedure btnDeselectAllTimesClick(Sender: TObject);

	procedure chklstDataToImportClick(Sender: TObject);

	procedure chklstTimeStepsToImportClick(Sender: TObject);

	procedure GetData;

	procedure SetData;

	procedure CreateNodeScreenObject(out ScreenObject: TScreenObject);

	procedure CreateElementScreenObject(out ScreenObject: TScreenObject);

	procedure CreateNodeDataSets(StepIndex: Integer; NewDataSets: TList);

	procedure CreateElementDataSets(StepIndex: Integer; NewDataSets: TList);

	procedure AssignNodeValues(NewDataSets: TList; AScreenObject: TScreenObject);

	procedure AssignElementValues(NewDataSets: TList; AScreenObject: TScreenObject);

	procedure UpdateColorContourList;

	procedure EnableOkButton;

	procedure Loaded; override;