Description | Hierarchy | Fields | Methods | Properties |
type TfrmDataSets = class(TfrmCustomGoPhast)
TfrmDataSets
provides a mechanism for the user to edit the TDataArrays and their properties.
When the TfrmDataSets
is created, a number of variables are initialized and then GetData is called. GetData reads all the TDataArrays and displays their properties. If the user clicks on the OK button, the data sets are updated to reflect any changes that the user has made. The data sets in the TfrmDataSets
can be accessed using the private DataSets property. Other important private properties include Formulas, Interpolators, Orientations, and Variables.
Formulas contains a TExpression for each data set.
Interpolators contain a copy of the TCustom2DInterpolater for each data set. When a TCustom2DInterpolater is assigned to Interpolators, the instance that is stored is not the one that was assigned to Interpolators but rather a copy of it. Accordingly, the TCustom2DInterpolaters in Interpolators are owned by the TfrmDataSets
and must be freed by it.
Orientations just converts the data shown in the table to a TDataSetOrientation.
Variables is an array of TCustomVariables that represent the data sets in formulas.
CurrentInterpolator is the TCustom2DInterpolater of the currently selected row. Its properties are displayed in the controls in gbInterpolator. The reason for using gbInterpolator instead of just displaying the data in the table is that different interpolators may have different properties so the number of columns in the table could get very large but most of them might not be used most of the time.
If the user presses the OK button, SetData will be called and the changes that the user made will be accepted. If the user closes the dialog box in some other way (such as by pressing the Cancel button), the changes the user made will be ignored.
![]() |
procedure btnAddClick(Sender: TObject); |
![]() |
procedure btnCancelClick(Sender: TObject); |
![]() |
procedure btnDeleteClick(Sender: TObject); |
![]() |
procedure btnInsertClick(Sender: TObject); |
![]() |
procedure btnOKClick(Sender: TObject); |
![]() |
procedure dgDataSetsButtonClicked(Sender: TObject; ACol, ARow: Integer; const Value: WideString); |
![]() |
procedure dgDataSetsDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); |
![]() |
procedure dgDataSetsExit(Sender: TObject); |
![]() |
procedure dgDataSetsSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean); |
![]() |
procedure dgDataSetsSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: WideString); |
![]() |
procedure FormCreate(Sender: TObject); override; |
![]() |
procedure FormDestroy(Sender: TObject); |
![]() |
procedure framePhastInterpolationbtnEditMixtureFormulaClick( Sender: TObject); |
![]() |
procedure framePhastInterpolationcbPhastInterpolationClick( Sender: TObject); |
![]() |
procedure framePhastInterpolationedMixFormulaChange(Sender: TObject); |
![]() |
procedure framePhastInterpolationrdeDistance1Change(Sender: TObject); |
![]() |
procedure framePhastInterpolationrdeDistance2Change(Sender: TObject); |
![]() |
procedure framePhastInterpolationrdeValue1Change(Sender: TObject); |
![]() |
procedure framePhastInterpolationrdeValue2Change(Sender: TObject); |
![]() |
procedure framePhastInterpolationrgInterpolationDirectionClick( Sender: TObject); |
![]() |
procedure rdeAnisotropyChange(Sender: TObject); |
![]() |
procedure CreateFormula(const Row: integer); |
![]() |
function CreateMixtureFormula: TExpression; |
![]() |
procedure CreateVariable(const Row: integer); |
![]() |
procedure DeleteVariable(const Row: integer); |
![]() |
procedure EnableOK_Button; |
![]() |
function GenerateNewName(Root: string = 'NewDataSet'; const CurrentRow: integer = -1): string; |
![]() |
function Get3DCompiler(const EvaluatedAt: TEvaluatedAt): TRbwParser; overload; |
![]() |
function Get3DCompiler(const Row: integer): TRbwParser; overload; |
![]() |
function GetCompiler(const Row: integer): TRbwParser; overload; |
![]() |
function GetCompiler(const Orientation: TDataSetOrientation; const EvaluatedAt: TEvaluatedAt): TRbwParser; overload; |
![]() |
procedure GetData; |
![]() |
function GetDataSetOrientations(const Row: integer): TDataSetOrientation; |
![]() |
function GetDataSets(const Row: integer): TDataArray; |
![]() |
function GetEvaluatedAt(const Row: integer): TEvaluatedAt; |
![]() |
function GetFormula(const Row: integer): TExpression; |
![]() |
function GetInterpolator(const Row: integer): TCustom2DInterpolater; |
![]() |
function GetInterpolatorType(const ARow: integer): TInterpolatorType; |
![]() |
function GetResultType(const Row: integer): TRbwDataType; |
![]() |
function GetVariables(const Row: integer): TCustomVariable; |
![]() |
procedure InitializeCaptions; |
![]() |
procedure InitializeNewRow(const NewRow: integer); |
![]() |
procedure SetCurrentInterpolator(const Value: TCustom2DInterpolater); |
![]() |
procedure SetData; |
![]() |
procedure SetDataSets(const Row: integer; const Value: TDataArray); |
![]() |
procedure SetFormula(const Row: integer; const Value: TExpression); |
![]() |
procedure SetInterpolator(const Row: integer; const Value: TCustom2DInterpolater); |
![]() |
procedure SetVariables(const Row: integer; const Value: TCustomVariable); |
![]() |
procedure UpdateInterpolation(const ARow: integer); |
![]() |
procedure UpdateLinkages; |
![]() |
procedure UpdateVariableName(const Row: integer); |
![]() |
procedure ValidateCellFormula(const ACol, ARow: integer); |
![]() |
property CurrentInterpolator: TCustom2DInterpolater
read FCurrentInterpolator write SetCurrentInterpolator; |
![]() |
property DataSets[const Row: integer]: TDataArray read GetDataSets
write SetDataSets; |
![]() |
property EvaluatedAts[const Row: integer]: TEvaluatedAt read GetEvaluatedAt; |
![]() |
property Formulas[const Row: integer]: TExpression read GetFormula
write SetFormula; |
![]() |
property Interpolators[const Row: integer]: TCustom2DInterpolater
read GetInterpolator write SetInterpolator; |
![]() |
property Orientations[const Row: integer]: TDataSetOrientation
read GetDataSetOrientations; |
![]() |
property Variables[const Row: integer]: TCustomVariable read GetVariables
write SetVariables; |
![]() |
btnAdd: TButton; |
|
![]() |
btnCancel: TBitBtn; |
|
![]() |
btnDelete: TButton; |
|
![]() |
btnHelp: TBitBtn; |
|
![]() |
btnInsert: TButton; |
|
![]() |
btnOK: TBitBtn; |
|
![]() |
dgDataSets: TRbwDataGrid; |
|
![]() |
framePhastInterpolation: TframePhastInterpolation; |
|
![]() |
gbInterpolator: TGroupBox; |
|
![]() |
lblAnisotropy: TLabel; |
|
![]() |
pnlButtons: TPanel; |
|
![]() |
pnlInterpolator: TPanel; |
|
![]() |
rdeAnisotropy: TRbwDataEntry; |
|
![]() |
rpFrontFormulaCompiler: TRbwParser; |
|
![]() |
rpFrontFormulaCompilerNodes: TRbwParser; |
|
![]() |
rpSideFormulaCompiler: TRbwParser; |
|
![]() |
rpSideFormulaCompilerNodes: TRbwParser; |
|
![]() |
rpThreeDFormulaCompiler: TRbwParser; |
|
![]() |
rpThreeDFormulaCompilerNodes: TRbwParser; |
|
![]() |
rpTopFormulaCompiler: TRbwParser; |
|
![]() |
rpTopFormulaCompilerNodes: TRbwParser; |
|
![]() |
StatusBar1: TStatusBar; |
|
![]() |
FCurrentInterpolator: TCustom2DInterpolater; |
|
![]() |
FDataSetInterpolatorList: TList; |
|
![]() |
FDeletedDataSets: TList; |
As its name implies, |
![]() |
FInterpolatorList: TList; |
|
![]() |
FInterpolatorRow: integer; |
When the user selects a row, |
![]() |
FLoading: boolean; |
|
![]() |
FNewUses: TObjectList; |
|
![]() |
FPhastInterpolators: TObjectList; |
|
![]() |
FPreviousCellText: string; |
|
![]() |
FPriorCol: integer; |
|
![]() |
FPriorModelUpToDate: boolean; |
|
![]() |
FPriorRow: integer; |
|
![]() |
FSelectedRow: integer; |
|
![]() |
procedure btnAddClick(Sender: TObject); |
|
![]() |
procedure btnCancelClick(Sender: TObject); |
|
![]() |
procedure btnDeleteClick(Sender: TObject); |
|
![]() |
procedure btnInsertClick(Sender: TObject); |
|
![]() |
procedure btnOKClick(Sender: TObject); |
|
![]() |
procedure dgDataSetsButtonClicked(Sender: TObject; ACol, ARow: Integer; const Value: WideString); |
|
![]() |
procedure dgDataSetsDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); |
|
![]() |
procedure dgDataSetsExit(Sender: TObject); |
|
![]() |
procedure dgDataSetsSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean); |
|
![]() |
procedure dgDataSetsSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: WideString); |
|
![]() |
procedure FormCreate(Sender: TObject); override; |
|
![]() |
procedure FormDestroy(Sender: TObject); |
|
![]() |
procedure framePhastInterpolationbtnEditMixtureFormulaClick( Sender: TObject); |
|
![]() |
procedure framePhastInterpolationcbPhastInterpolationClick( Sender: TObject); |
|
![]() |
procedure framePhastInterpolationedMixFormulaChange(Sender: TObject); |
|
![]() |
procedure framePhastInterpolationrdeDistance1Change(Sender: TObject); |
|
![]() |
procedure framePhastInterpolationrdeDistance2Change(Sender: TObject); |
|
![]() |
procedure framePhastInterpolationrdeValue1Change(Sender: TObject); |
|
![]() |
procedure framePhastInterpolationrdeValue2Change(Sender: TObject); |
|
![]() |
procedure framePhastInterpolationrgInterpolationDirectionClick( Sender: TObject); |
|
![]() |
procedure rdeAnisotropyChange(Sender: TObject); |
|
![]() |
function CreateMixtureFormula: TExpression; |
|
![]() |
procedure CreateVariable(const Row: integer); |
|
![]() |
procedure DeleteVariable(const Row: integer); |
|
![]() |
procedure EnableOK_Button; |
|
![]() |
function GenerateNewName(Root: string = 'NewDataSet'; const CurrentRow: integer = -1): string; |
|
![]() |
function Get3DCompiler(const EvaluatedAt: TEvaluatedAt): TRbwParser; overload; |
|
![]() |
function Get3DCompiler(const Row: integer): TRbwParser; overload; |
|
![]() |
function GetCompiler(const Row: integer): TRbwParser; overload; |
|
![]() |
function GetCompiler(const Orientation: TDataSetOrientation; const EvaluatedAt: TEvaluatedAt): TRbwParser; overload; |
|
![]() |
procedure GetData; |
|
![]() |
function GetDataSetOrientations(const Row: integer): TDataSetOrientation; |
|
![]() |
function GetDataSets(const Row: integer): TDataArray; |
|
![]() |
function GetEvaluatedAt(const Row: integer): TEvaluatedAt; |
|
![]() |
function GetFormula(const Row: integer): TExpression; |
|
![]() |
function GetInterpolator(const Row: integer): TCustom2DInterpolater; |
|
![]() |
function GetInterpolatorType(const ARow: integer): TInterpolatorType; |
|
![]() |
function GetResultType(const Row: integer): TRbwDataType; |
|
![]() |
function GetVariables(const Row: integer): TCustomVariable; |
|
![]() |
procedure InitializeCaptions; |
|
![]() |
procedure InitializeNewRow(const NewRow: integer); |
If a new TDataArray has been added, |
![]() |
procedure SetCurrentInterpolator(const Value: TCustom2DInterpolater); |
|
![]() |
procedure SetData; |
When the user presses the OK button. |
![]() |
procedure SetDataSets(const Row: integer; const Value: TDataArray); |
|
![]() |
procedure SetFormula(const Row: integer; const Value: TExpression); |
|
![]() |
procedure SetInterpolator(const Row: integer; const Value: TCustom2DInterpolater); |
|
![]() |
procedure SetVariables(const Row: integer; const Value: TCustomVariable); |
|
![]() |
procedure UpdateInterpolation(const ARow: integer); |
|
![]() |
procedure UpdateLinkages; |
|
![]() |
procedure UpdateVariableName(const Row: integer); |
|
![]() |
property CurrentInterpolator: TCustom2DInterpolater
read FCurrentInterpolator write SetCurrentInterpolator; |
|
![]() |
property DataSets[const Row: integer]: TDataArray read GetDataSets
write SetDataSets; |
|
![]() |
property EvaluatedAts[const Row: integer]: TEvaluatedAt read GetEvaluatedAt; |
|
![]() |
property Formulas[const Row: integer]: TExpression read GetFormula
write SetFormula; |
|
![]() |
property Interpolators[const Row: integer]: TCustom2DInterpolater
read GetInterpolator write SetInterpolator; |
|
![]() |
property Orientations[const Row: integer]: TDataSetOrientation
read GetDataSetOrientations; |
|
![]() |
property Variables[const Row: integer]: TCustomVariable read GetVariables
write SetVariables; |
|