Class TPhastDelegate

Unit

ScreenObjectUnit

Declaration

type TPhastDelegate = class(TCustomScreenObjectDelegate)

Description

TCustomScreenObjectDelegate is an abstract base class. Descendants are used for assigning properties to TDataArrays from the front and side views.

Hierarchy

• TPersistent
• TCustomScreenObjectDelegate
• TPhastDelegate

Overview

Fields

	FMixtureVariables: TStringList;
	FMixtureCompiler: TRbwParser;
	FMixtureExpression: TExpression;

Methods

	function PhastBoundaryType: TPhastBoundaryTypes;
	function ThreeDBoundaryFormula: string;
	function TwoDBoundaryFormula: string;
	procedure AssignIntegerDataWithPhastInterpolation(const DataSet: TDataArray; const LayerIndex, RowIndex, ColIndex: integer; const Comment: string; const InterpValue: TInterpValuesItem);
	procedure AssignRealDataWithPhastInterpolation(const DataSet: TDataArray; const LayerIndex, RowIndex, ColIndex: integer; const Comment: string; const InterpValue: TInterpValuesItem);
	procedure AssignCellValue(const UsedVariables: TStringList; const DataSet: TDataArray; LayerIndex, RowIndex, ColIndex: integer; const Compiler: TRbwParser; const Annotation: string; var Expression: TExpression; const OtherData: TObject; SectionIndex: integer; ShouldZero: boolean); override;
	procedure AssignValuesToFrontDataSet( const DataSet: TDataArray; OtherData: TObject; AModel: TBaseModel; UseLgrEdgeCells: TLgrCellTreatment; AssignmentLocation: TAssignmentLocation = alAll); override;
	procedure AssignValuesToSideDataSet( const DataSet: TDataArray; OtherData: TObject; AModel: TBaseModel; UseLgrEdgeCells: TLgrCellTreatment; AssignmentLocation: TAssignmentLocation = alAll); override;
	procedure AssignValuesToTopDataSet( const DataSet: TDataArray; OtherData: TObject; AModel: TBaseModel; UseLgrEdgeCells: TLgrCellTreatment; AssignmentLocation: TAssignmentLocation = alAll); override;
	function BoundaryType: integer; override;
	function DataSetUsed(const DataSet: TDataArray; var OtherData: TObject; AModel: TBaseModel): boolean; override;
	function EncloseAnnotation(const DataSetFormula: string; const OtherData: TObject): string; override;
	function IntersectAnnotation(const DataSetFormula: string; const OtherData: TObject): string; override;
	procedure OtherIndex(const LayerOrRow, RowOrColumn: integer; out First, Last: integer; const DataSet: TDataArray); override;
	procedure UpdateFrontSegments(AModel: TBaseModel; const EvaluatedAt: TEvaluatedAt); override;
	procedure UpdateSideSegments(AModel: TBaseModel; const EvaluatedAt: TEvaluatedAt); override;
	procedure GetSideCellsToAssign( const DataSetFunction: string; OtherData: TObject; const DataSet: TDataArray; CellList: TCellAssignmentList; AssignmentLocation: TAssignmentLocation; AModel: TBaseModel); override;
	procedure GetFrontCellsToAssign( const DataSetFunction: string; OtherData: TObject; const DataSet: TDataArray; CellList: TCellAssignmentList; AssignmentLocation: TAssignmentLocation; AModel: TBaseModel); override;
	procedure GetTopCellsToAssign( const DataSetFunction: string; OtherData: TObject; const DataSet: TDataArray; CellList: TCellAssignmentList; AssignmentLocation: TAssignmentLocation; AModel: TBaseModel); override;
	procedure GetCellsToAssign( const DataSetFunction: string; OtherData: TObject; const EvaluatedAt: TEvaluatedAt; CellList: TCellAssignmentList; AssignmentLocation: TAssignmentLocation; AModel: TBaseModel);
	procedure AssignSelectedCells(AModel: TBaseModel); override;
	procedure InitializeExpression(out Compiler: TRbwParser; out DataSetFormula: string; out Expression: TExpression; const DataSet: TDataArray; const OtherData: TObject); override;
	constructor Create(ScreenObject: TScreenObject); override;
	destructor Destroy; override;

Description

Fields

	FMixtureVariables: TStringList;

	FMixtureCompiler: TRbwParser;

	FMixtureExpression: TExpression;

Methods

	function PhastBoundaryType: TPhastBoundaryTypes;

	function ThreeDBoundaryFormula: string;

	function TwoDBoundaryFormula: string;

	procedure AssignIntegerDataWithPhastInterpolation(const DataSet: TDataArray; const LayerIndex, RowIndex, ColIndex: integer; const Comment: string; const InterpValue: TInterpValuesItem);

	procedure AssignRealDataWithPhastInterpolation(const DataSet: TDataArray; const LayerIndex, RowIndex, ColIndex: integer; const Comment: string; const InterpValue: TInterpValuesItem);

	procedure AssignCellValue(const UsedVariables: TStringList; const DataSet: TDataArray; LayerIndex, RowIndex, ColIndex: integer; const Compiler: TRbwParser; const Annotation: string; var Expression: TExpression; const OtherData: TObject; SectionIndex: integer; ShouldZero: boolean); override;

	procedure AssignValuesToFrontDataSet( const DataSet: TDataArray; OtherData: TObject; AModel: TBaseModel; UseLgrEdgeCells: TLgrCellTreatment; AssignmentLocation: TAssignmentLocation = alAll); override;

	procedure AssignValuesToSideDataSet( const DataSet: TDataArray; OtherData: TObject; AModel: TBaseModel; UseLgrEdgeCells: TLgrCellTreatment; AssignmentLocation: TAssignmentLocation = alAll); override;

	procedure AssignValuesToTopDataSet( const DataSet: TDataArray; OtherData: TObject; AModel: TBaseModel; UseLgrEdgeCells: TLgrCellTreatment; AssignmentLocation: TAssignmentLocation = alAll); override;

	function BoundaryType: integer; override;

	function DataSetUsed(const DataSet: TDataArray; var OtherData: TObject; AModel: TBaseModel): boolean; override;

	function EncloseAnnotation(const DataSetFormula: string; const OtherData: TObject): string; override;

	function IntersectAnnotation(const DataSetFormula: string; const OtherData: TObject): string; override;

	procedure OtherIndex(const LayerOrRow, RowOrColumn: integer; out First, Last: integer; const DataSet: TDataArray); override;

	procedure UpdateFrontSegments(AModel: TBaseModel; const EvaluatedAt: TEvaluatedAt); override;

	procedure UpdateSideSegments(AModel: TBaseModel; const EvaluatedAt: TEvaluatedAt); override;

	procedure GetSideCellsToAssign( const DataSetFunction: string; OtherData: TObject; const DataSet: TDataArray; CellList: TCellAssignmentList; AssignmentLocation: TAssignmentLocation; AModel: TBaseModel); override;

	procedure GetFrontCellsToAssign( const DataSetFunction: string; OtherData: TObject; const DataSet: TDataArray; CellList: TCellAssignmentList; AssignmentLocation: TAssignmentLocation; AModel: TBaseModel); override;

	procedure GetTopCellsToAssign( const DataSetFunction: string; OtherData: TObject; const DataSet: TDataArray; CellList: TCellAssignmentList; AssignmentLocation: TAssignmentLocation; AModel: TBaseModel); override;

	procedure GetCellsToAssign( const DataSetFunction: string; OtherData: TObject; const EvaluatedAt: TEvaluatedAt; CellList: TCellAssignmentList; AssignmentLocation: TAssignmentLocation; AModel: TBaseModel);

	procedure AssignSelectedCells(AModel: TBaseModel); override;

	procedure InitializeExpression(out Compiler: TRbwParser; out DataSetFormula: string; out Expression: TExpression; const DataSet: TDataArray; const OtherData: TObject); override;

	constructor Create(ScreenObject: TScreenObject); override;

	destructor Destroy; override;