Description | Hierarchy | Fields | Methods | Properties |
type TframeView = class(TFrame)
TframeView
is used to display one view of the model and to handle user-interaction with the TPhastGrid and TScreenObjects. Much of the user interaction is delegated to descendants of TCustomInteractiveTool.
BackOne: TMenuItem; |
|
ForwardOne: TMenuItem; |
|
miHide: TMenuItem; |
|
ModelCube: TRbwModelCube; |
|
OrderMenu: TPopupMenu; |
|
Panel1: TPanel; |
|
rulHorizontal: TRbwRuler; |
|
rulVertical: TRbwRuler; |
|
ToBack: TMenuItem; |
|
ToFront: TMenuItem; |
|
ZoomBox: TQRbwZoomBox2; |
|
miSelectAll: TMenuItem; |
|
HideAllOthers: TMenuItem; |
|
ShowAll1: TMenuItem; |
|
miMergeObjects: TMenuItem; |
|
miEditSelectedObjects: TMenuItem; |
|
miInvertSelectedVertices: TMenuItem; |
|
miLockSelectedObjects: TMenuItem; |
|
miUnlockSelectedObjects: TMenuItem; |
|
MouseStartX: integer; |
|
MouseStartY: integer; |
|
FBitMap32: TBitmap32; |
|
FPreviousMagnification: double; |
|
FPaintingNeeded: Boolean; |
|
FPositionedLayer: TPositionedLayer; |
|
FBusy: boolean; |
|
FColRowLayerSelector: TCustomLayerRowColumnSelector; |
|
FDeltaGridAngle: real; |
|
FDrawing: boolean; |
|
FMagnificationChanged: boolean; |
|
FPreviousScreenObjects: TList; |
|
FResizing: boolean; |
|
FViewDirection: TViewDirection; |
|
FModelChanged: boolean; |
|
FSelectBottomRight: TPoint; |
|
FSelectTopLeft: TPoint; |
procedure BackOneClick(Sender: TObject); |
|
procedure ForwardOneClick(Sender: TObject); |
|
procedure miHideClick(Sender: TObject); |
|
procedure ModelCubePaint(Sender: TObject); |
|
procedure OrderMenuPopup(Sender: TObject); |
|
procedure rulerDblClick(Sender: TObject); |
|
procedure rulerMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); |
|
procedure ToBackClick(Sender: TObject); |
|
procedure ToFrontClick(Sender: TObject); |
|
procedure ZoomBoxExit(Sender: TObject); |
|
procedure ZoomBoxPan(Sender: TObject; DeltaX, DeltaY: real); |
|
procedure ZoomBoxResize(Sender: TObject); |
|
procedure ZoomBoxImage32MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer; Layer: TCustomLayer); |
|
procedure ZoomBoxImage32MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer; Layer: TCustomLayer); |
|
procedure ZoomBoxImage32MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer; Layer: TCustomLayer); |
|
procedure ZoomBoxImage32DblClick(Sender: TObject); |
|
procedure miSelectAllClick(Sender: TObject); |
|
procedure HideAllOthersClick(Sender: TObject); |
|
procedure ShowAll1Click(Sender: TObject); |
|
procedure miMergeObjectsClick(Sender: TObject); |
|
procedure ZoomBoxMagnificationChanged(Sender: TObject); |
|
procedure ModelCubeMouseEnter(Sender: TObject); |
|
procedure ModelCubeMouseLeave(Sender: TObject); |
|
procedure miInvertSelectedVerticesClick(Sender: TObject); |
|
procedure miLockSelectedObjectsClick(Sender: TObject); |
|
procedure miUnlockSelectedObjectsClick(Sender: TObject); |
|
procedure UpdateStatusBarCoordinates(APoint: TPoint2D); |
|
procedure UpdateStatusBarForTopBlockDataSet(Column, Row, X, Y: Integer; const Location: TPoint2D); |
|
procedure UpdateStatusBarForTopNodeDataSet(Column: Integer; Row: Integer; const Location: TPoint2D); |
|
procedure UpdateStatusBarFrontBlockDataSet(Column, Layer: Integer; const Location: TPoint2D); |
|
procedure UpdateStatusBarFrontNodeDataSet(Column: Integer; Layer: Integer; const Location: TPoint2D); |
|
procedure UpdateStatusBarSideBlockDataSet(Row, Layer: Integer; const Location: TPoint2D); |
|
procedure UpdateStatusBarSideNodeDataSet(Row, Layer: Integer; const Location: TPoint2D); |
|
procedure ShowCurrentValue(DataSet: TDataArray; const NameToDisplay: string; Column, Row, Layer, GlobalColumn, GlobalRow, GlobalLayer: Integer; const Location: TPoint2D); |
|
procedure HideScreenObjects(HideSelected: Boolean); |
|
procedure AllowBitmapsToBeDisplayed; |
|
function GetTopDisplayDataSet: TDataArray; |
|
procedure SelectAll; |
|
procedure AdjustHorizontalScale(const NewX: integer); |
|
procedure AdjustVerticalScale(const NewY: integer); |
|
function ColorDataSet: TDataArray; |
|
function ColorTimeList: TCustomTimeList; |
|
procedure DrawGridAndScreenObjects; |
|
procedure DrawImage(const Source: TCompressedBitmapItem); |
|
procedure DrawScreenObjects; |
|
procedure GetColLayer(APoint: TPoint2D; out Col, Layer: integer); |
|
function GetColRowLayerSelector: TCustomLayerRowColumnSelector; |
|
function GetCurrentScreenObject: TScreenObject; |
|
function GetGridChanged: boolean; |
|
function GetNeedToRecalculateCellColors: boolean; |
|
procedure GetNodeColLayer(APoint: TPoint2D; out Col, Layer: integer); |
|
procedure GetNodeRowCol(APoint: TPoint2D; out Row, Column: integer); |
|
procedure GetNodeRowLayer(APoint: TPoint2D; out Row, Layer: integer); |
|
procedure GetRowCol(APoint: TPoint2D; out Row, Column: integer); |
|
procedure GetRowLayer(APoint: TPoint2D; out Row, Layer: integer); |
|
function GetScreenObjectsChanged: boolean; |
|
procedure InitializeDataSet; |
|
function RecalculateCellColors: boolean; |
|
procedure ResetCellColors; |
|
procedure RotatedGridCorners(const Angle: real; out PointArray: array of TPoint); |
|
procedure SetDeltaGridAngle(const Value: real); |
|
procedure SetGridChanged(const Value: boolean); |
|
procedure SetNeedToRecalculateCellColors(const Value: boolean); |
|
procedure SetScreenObjectsChanged(const Value: boolean); |
|
procedure SetUpColRowLayerSelector; |
|
procedure SetViewDirection(const Value: TViewDirection); |
|
procedure UpdateStatusBar(const X, Y: integer); |
|
procedure UpdateTimeDataSet; |
|
procedure WarnTooBig; |
|
procedure ZoomBoxHitTest(Sender: TObject; X, Y: Integer; var Passed: Boolean); |
|
procedure Paint(Sender: TObject); |
|
procedure PaintOldScreenObjects(const BitMap: TBitmap32); |
|
procedure DrawSelectedAndOldScreenObjects(const BitMap: TBitmap32); |
|
procedure PaintSelectedScreenObjects(Sender: TObject; Buffer: TBitmap32); |
|
function ConvertTop2D_Point(const APoint: TPoint2D): TPoint; |
|
function ConvertFront2D_Point(const APoint: TPoint2D): TPoint; |
|
function ConvertSide2D_Point(const APoint: TPoint2D): TPoint; |
|
procedure DrawPathLines; |
|
procedure DrawEndPoints; |
|
procedure DrawTimeSeries; |
|
procedure UpdateStatusBarTopElementNode(const APoint: TPoint2D); |
|
procedure GetMeshColLayer(APoint: TPoint2D; out NodeCol, NodeLayer, ElCol, ElLayer: integer); |
|
procedure InvalidateScreenObjectCoordinates; |
|
procedure AdjustScales; |
|
constructor Create(AOwner: TComponent); override; |
|
procedure PaintLayer(Sender: TObject; Buffer: TBitmap32); |
|
function CursorGrid: TCursorGrid; |
|
destructor Destroy; override; |
|
procedure DisplayItem; |
|
procedure DrawRotatedGrid(const DeltaAngle: real; BitMap: TBitmap32); |
|
function EvaluatedAt: TEvaluatedAt; |
|
procedure FinishScreenObjects; |
|
procedure ItemChange(Sender: TObject); |
|
procedure ShowMagnification; |
|
procedure UpdateSelectRectangle; |
|
function ConvertPoint(const APoint: TPoint2D): TPoint; |
|
function GridCenter: TPoint2D; |
BackOne: TMenuItem; |
|
See BackOneClick. |
ForwardOne: TMenuItem; |
|
See ForwardOneClick. |
miHide: TMenuItem; |
|
See miHideClick. |
ModelCube: TRbwModelCube; |
|
|
OrderMenu: TPopupMenu; |
|
|
Panel1: TPanel; |
|
|
rulHorizontal: TRbwRuler; |
|
|
rulVertical: TRbwRuler; |
|
|
ToBack: TMenuItem; |
|
See ToBackClick. |
ToFront: TMenuItem; |
|
See ToFrontClick. |
ZoomBox: TQRbwZoomBox2; |
|
See also
|
miSelectAll: TMenuItem; |
|
HideAllOthers: TMenuItem; |
|
ShowAll1: TMenuItem; |
|
miMergeObjects: TMenuItem; |
|
miEditSelectedObjects: TMenuItem; |
|
miInvertSelectedVertices: TMenuItem; |
|
miLockSelectedObjects: TMenuItem; |
|
miUnlockSelectedObjects: TMenuItem; |
|
MouseStartX: integer; |
|
MouseStartY: integer; |
|
FBitMap32: TBitmap32; |
|
|
FPreviousMagnification: double; |
|
FPaintingNeeded: Boolean; |
|
FPositionedLayer: TPositionedLayer; |
|
FBusy: boolean; |
|
|
FColRowLayerSelector: TCustomLayerRowColumnSelector; |
|
|
FDeltaGridAngle: real; |
|
|
FDrawing: boolean; |
|
|
FMagnificationChanged: boolean; |
|
|
FPreviousScreenObjects: TList; |
|
|
FResizing: boolean; |
|
|
FViewDirection: TViewDirection; |
|
|
FModelChanged: boolean; |
|
FSelectBottomRight: TPoint; |
|
|
FSelectTopLeft: TPoint; |
|
|
procedure BackOneClick(Sender: TObject); |
|
|
procedure ForwardOneClick(Sender: TObject); |
|
|
procedure miHideClick(Sender: TObject); |
|
|
procedure ModelCubePaint(Sender: TObject); |
|
|
procedure OrderMenuPopup(Sender: TObject); |
|
|
procedure rulerDblClick(Sender: TObject); |
|
|
procedure rulerMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); |
|
|
procedure ToBackClick(Sender: TObject); |
|
|
procedure ToFrontClick(Sender: TObject); |
|
|
procedure ZoomBoxExit(Sender: TObject); |
|
If the user clicks on a button or somewhere else while creating a TScreenObject, the TScreenObject is terminated. |
procedure ZoomBoxPan(Sender: TObject; DeltaX, DeltaY: real); |
|
|
procedure ZoomBoxResize(Sender: TObject); |
|
|
procedure ZoomBoxImage32MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer; Layer: TCustomLayer); |
|
|
procedure ZoomBoxImage32MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer; Layer: TCustomLayer); |
|
|
procedure ZoomBoxImage32MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer; Layer: TCustomLayer); |
|
|
procedure ZoomBoxImage32DblClick(Sender: TObject); |
|
|
procedure miSelectAllClick(Sender: TObject); |
|
procedure HideAllOthersClick(Sender: TObject); |
|
|
procedure ShowAll1Click(Sender: TObject); |
|
procedure miMergeObjectsClick(Sender: TObject); |
|
procedure ZoomBoxMagnificationChanged(Sender: TObject); |
|
procedure ModelCubeMouseEnter(Sender: TObject); |
|
procedure ModelCubeMouseLeave(Sender: TObject); |
|
procedure miInvertSelectedVerticesClick(Sender: TObject); |
|
procedure miLockSelectedObjectsClick(Sender: TObject); |
|
procedure miUnlockSelectedObjectsClick(Sender: TObject); |
|
procedure UpdateStatusBarCoordinates(APoint: TPoint2D); |
|
procedure UpdateStatusBarForTopBlockDataSet(Column, Row, X, Y: Integer; const Location: TPoint2D); |
|
procedure UpdateStatusBarForTopNodeDataSet(Column: Integer; Row: Integer; const Location: TPoint2D); |
|
procedure UpdateStatusBarFrontBlockDataSet(Column, Layer: Integer; const Location: TPoint2D); |
|
procedure UpdateStatusBarFrontNodeDataSet(Column: Integer; Layer: Integer; const Location: TPoint2D); |
|
procedure UpdateStatusBarSideBlockDataSet(Row, Layer: Integer; const Location: TPoint2D); |
|
procedure UpdateStatusBarSideNodeDataSet(Row, Layer: Integer; const Location: TPoint2D); |
|
procedure ShowCurrentValue(DataSet: TDataArray; const NameToDisplay: string; Column, Row, Layer, GlobalColumn, GlobalRow, GlobalLayer: Integer; const Location: TPoint2D); |
|
procedure HideScreenObjects(HideSelected: Boolean); |
|
procedure AllowBitmapsToBeDisplayed; |
|
function GetTopDisplayDataSet: TDataArray; |
|
procedure SelectAll; |
|
procedure AdjustHorizontalScale(const NewX: integer); |
|
Parameters
|
procedure AdjustVerticalScale(const NewY: integer); |
|
Parameters
|
function ColorDataSet: TDataArray; |
|
|
function ColorTimeList: TCustomTimeList; |
|
If ColorDataSet is a transient TDataArray, |
procedure DrawGridAndScreenObjects; |
|
|
procedure DrawImage(const Source: TCompressedBitmapItem); |
|
|
procedure DrawScreenObjects; |
|
|
procedure GetColLayer(APoint: TPoint2D; out Col, Layer: integer); |
|
|
function GetColRowLayerSelector: TCustomLayerRowColumnSelector; |
|
See ColRowLayerSelector. |
function GetCurrentScreenObject: TScreenObject; |
|
See CurrentScreenObject. |
function GetGridChanged: boolean; |
|
See GridChanged. |
function GetNeedToRecalculateCellColors: boolean; |
|
procedure GetRowLayer(APoint: TPoint2D; out Row, Layer: integer); |
|
|
function GetScreenObjectsChanged: boolean; |
|
procedure InitializeDataSet; |
|
|
procedure ResetCellColors; |
|
|
procedure RotatedGridCorners(const Angle: real; out PointArray: array of TPoint); |
|
|
procedure SetDeltaGridAngle(const Value: real); |
|
See DeltaGridAngle. |
procedure SetGridChanged(const Value: boolean); |
|
See GridChanged. |
procedure SetNeedToRecalculateCellColors(const Value: boolean); |
|
procedure SetScreenObjectsChanged(const Value: boolean); |
|
procedure SetUpColRowLayerSelector; |
|
|
procedure SetViewDirection(const Value: TViewDirection); |
|
See ViewDirection. |
procedure UpdateStatusBar(const X, Y: integer); |
|
|
procedure UpdateTimeDataSet; |
|
When the data set used to color the grid is a transient TDataArray, |
procedure WarnTooBig; |
|
If the magnification is too big, zoom out a bit and warn the user. |
procedure ZoomBoxHitTest(Sender: TObject; X, Y: Integer; var Passed: Boolean); |
|
procedure Paint(Sender: TObject); |
|
procedure PaintOldScreenObjects(const BitMap: TBitmap32); |
|
|
procedure DrawSelectedAndOldScreenObjects(const BitMap: TBitmap32); |
|
procedure PaintSelectedScreenObjects(Sender: TObject; Buffer: TBitmap32); |
|
function ConvertTop2D_Point(const APoint: TPoint2D): TPoint; |
|
function ConvertFront2D_Point(const APoint: TPoint2D): TPoint; |
|
function ConvertSide2D_Point(const APoint: TPoint2D): TPoint; |
|
procedure DrawPathLines; |
|
procedure DrawEndPoints; |
|
procedure DrawTimeSeries; |
|
procedure UpdateStatusBarTopElementNode(const APoint: TPoint2D); |
|
procedure GetMeshColLayer(APoint: TPoint2D; out NodeCol, NodeLayer, ElCol, ElLayer: integer); |
|
procedure InvalidateScreenObjectCoordinates; |
|
|
procedure AdjustScales; |
|
|
constructor Create(AOwner: TComponent); override; |
|
|
procedure PaintLayer(Sender: TObject; Buffer: TBitmap32); |
|
function CursorGrid: TCursorGrid; |
|
|
destructor Destroy; override; |
|
|
procedure DisplayItem; |
|
|
procedure DrawRotatedGrid(const DeltaAngle: real; BitMap: TBitmap32); |
|
|
function EvaluatedAt: TEvaluatedAt; |
|
See TCustomLayerRowColumnSelector.EvaluatedAt. |
procedure FinishScreenObjects; |
|
See TCustomCreateScreenObjectTool.FinishScreenObjects; |
procedure ItemChange(Sender: TObject); |
|
See TCustomLayerRowColumnSelector.ItemChange; |
procedure ShowMagnification; |
|
|
procedure UpdateSelectRectangle; |
|
|
function ConvertPoint(const APoint: TPoint2D): TPoint; |
|
function GridCenter: TPoint2D; |
|
|
property PaintingNeeded: boolean read FPaintingNeeded; |
|
property GridChanged: boolean read GetGridChanged write SetGridChanged; |
|
|
property ColRowLayerSelector: TCustomLayerRowColumnSelector
read GetColRowLayerSelector; |
|
|
property Drawing: boolean read FDrawing; |
|
property ModelChanged: boolean read FModelChanged write FModelChanged; |
|
property CurrentScreenObject: TScreenObject read GetCurrentScreenObject; |
|
|
property DeltaGridAngle: real read FDeltaGridAngle write
SetDeltaGridAngle; |
|
When rotating the grid with TRotateGridTool, |
property MagnificationChanged: boolean read FMagnificationChanged
write FMagnificationChanged; |
|
When zooming in or out, |
property NeedToRecalculateCellColors: boolean
read GetNeedToRecalculateCellColors
write SetNeedToRecalculateCellColors; |
|
When the TDataArray used to color the grid is changed |
property PreviousScreenObjects: TList read FPreviousScreenObjects; |
|
|
property IsResizing: boolean read FResizing write FResizing; |
|
|
property ScreenObjectsHaveChanged: boolean read GetScreenObjectsChanged
write SetScreenObjectsChanged; |
|
|
property ViewDirection: TViewDirection read FViewDirection
write SetViewDirection; |
|
|