Class TfrmGoPhast

Description

Hierarchy

Fields

Methods

Properties

Unit

frmGoPhastUnit

Declaration

type TfrmGoPhast = class(TUndoForm)

Description

TfrmGoPhast is the type of frmGoPhast which is the main form of GoPhast.

TfrmGoPhast has tool bars and a menu to control the operation of GoPhast. The main part of the form is occupied by three TframeViews which display top, front, and side views of the model. Most of the user interaction with the spatial data in the model is through the three TframeViews. A status bar sbMain on TfrmGoPhast displays messages to the user.

See frmGoPhast.

Hierarchy

TForm
TfrmCustomGoPhast
TUndoForm
TfrmGoPhast

Overview

Fields

	`acAddColumn: TAction;`
	`acAddRow: TAction;`
	`acColor: TAction;`
	`acColoredGrid: TAction;`
	`acCopy: TAction;`
	`acCreateLine: TAction;`
	`acCreatePoint: TAction;`
	`acCreatePolygon: TAction;`
	`acCreateRectangle: TAction;`
	`acCreateStraightLine: TAction;`
	`acCut: TAction;`
	`acDeleteColumnRow: TAction;`
	`acDeleteSegment: TAction;`
	`acEditDataSets: TAction;`
	`acEditGridLines: TAction;`
	`acEditVerticalExaggeration: TAction;`
	`acExit: TAction;`
	`acExportPhastInputFile: TAction;`
	`acFileNew: TAction;`
	`acFileOpen: TAction;`
	`acFilePrint: TAction;`
	`acFileSave: TAction;`
	`acFileSaveAs: TAction;`
	`acFont: TAction;`
	`acGenerateGrid: TAction;`
	`acGridAngle: TAction;`
	`acGridDragRotate: TAction;`
	`acHelpContents: THelpContents;`
	`acHelpTopicSearch: THelpTopicSearch;`
	`acInsertNode: TAction;`
	`acMoveColumnOrRow: TAction;`
	`acMoveTo: TAction;`
	`acPan: TAction;`
	`acPaste: TAction;`
	`acRestoreDefaultView: TAction;`
	`acSelectAll: TAction;`
	`acSelectNode: TAction;`
	`acSelectObjects: TAction;`
	`acSelectWithLasso: TAction;`
	`acSetSpacing: TAction;`
	`acShow3DObjects: TAction;`
	`acShowFrontGrid: TAction;`
	`acShowGridShell: TAction;`
	`acShowHideObjects: TAction;`
	`acShowSideGrid: TAction;`
	`acShowTopGrid: TAction;`
	`acSmoothGrid: TAction;`
	`acSubdivide: TAction;`
	`acZoom: TAction;`
	`acZoomIn: TAction;`
	`acZoomOut: TAction;`
	`alActionList: TActionList;`
	`cbControlBar: TControlBar;`
	`cdColorDialog: TColorDialog;`
	`dcAddColCursor: TQRbwDynamicCursor;`
	`dcAddRowCursor: TQRbwDynamicCursor;`
	`dcMoveColCursor: TQRbwDynamicCursor;`
	`dcMoveRowCursor: TQRbwDynamicCursor;`
	`dcSetSpacing: TQRbwDynamicCursor;`
	`dcSubdivide: TQRbwDynamicCursor;`
	`fdFontDialog: TFontDialog;`
	`frame3DView: Tframe3DView;`
	`frameFrontView: TframeView;`
	`frameSideView: TframeView;`
	`frameTopView: TframeView;`
	`ilImageList: TImageList;`
	`mi3D_Colors: TMenuItem;`
	`miAbout: TMenuItem;`
	`miAddHorizontalGridLine: TMenuItem;`
	`miAddVerticalGridLine: TMenuItem;`
	`miChangeStyle: TMenuItem;`
	`miChemistryOptions: TMenuItem;`
	`miColor: TMenuItem;`
	`miColorGrid: TMenuItem;`
	`miContents: TMenuItem;`
	`miCopy: TMenuItem;`
	`miCreateLine: TMenuItem;`
	`miCreatePoint: TMenuItem;`
	`miCreatePolygon: TMenuItem;`
	`miCreateRectangle: TMenuItem;`
	`miCreateStraightLine: TMenuItem;`
	`miCustomize: TMenuItem;`
	`miCut: TMenuItem;`
	`miData: TMenuItem;`
	`miDeleteGridLine: TMenuItem;`
	`miDeleteSegment: TMenuItem;`
	`miDragtoRotate: TMenuItem;`
	`miEdit: TMenuItem;`
	`miEditBitmaps: TMenuItem;`
	`miEditDataSet: TMenuItem;`
	`miEditGridLines: TMenuItem;`
	`miEditSelectedObjects: TMenuItem;`
	`miExamples: TMenuItem;`
	`miExit: TMenuItem;`
	`miExport: TMenuItem;`
	`miFile: TMenuItem;`
	`miFont: TMenuItem;`
	`miFreeSurface: TMenuItem;`
	`miGenerateGrid: TMenuItem;`
	`miGoTo: TMenuItem;`
	`miGrid: TMenuItem;`
	`miGridAngle: TMenuItem;`
	`miGridOptions: TMenuItem;`
	`miHelp: TMenuItem;`
	`miHelpOnMainWindow: TMenuItem;`
	`miHintDelay: TMenuItem;`
	`miImport: TMenuItem;`
	`miImportBitmap: TMenuItem;`
	`miImportDistributedDatabyZone: TMenuItem;`
	`miImportDXFFile: TMenuItem;`
	`miImportPoints: TMenuItem;`
	`miImportShapefile: TMenuItem;`
	`miInsertNode: TMenuItem;`
	`miMoveColumnOrRow: TMenuItem;`
	`miNew: TMenuItem;`
	`miObject: TMenuItem;`
	`miOpen: TMenuItem;`
	`miPan: TMenuItem;`
	`miPaste: TMenuItem;`
	`miPhastOptions: TMenuItem;`
	`miPrint: TMenuItem;`
	`miPrintFrequency: TMenuItem;`
	`miPrintInitial: TMenuItem;`
	`miRearrangeObjects: TMenuItem;`
	`miRedo: TMenuItem;`
	`miRestoreDefaultView: TMenuItem;`
	`miRulerFormat: TMenuItem;`
	`miSave: TMenuItem;`
	`miSaveAs: TMenuItem;`
	`miSearchForObject: TMenuItem;`
	`miSelectAll: TMenuItem;`
	`miSelectNodes: TMenuItem;`
	`miSelectObjects: TMenuItem;`
	`miSelectObjectsByName: TMenuItem;`
	`miSelectWithLasso: TMenuItem;`
	`miSetSelectedColRowLayer: TMenuItem;`
	`miSetSpacing: TMenuItem;`
	`miShow3DObjects: TMenuItem;`
	`miShowColoredGrid: TMenuItem;`
	`miShowFormulaErrors: TMenuItem;`
	`miShowFrontGrid: TMenuItem;`
	`miShowGridShell: TMenuItem;`
	`miShowHideBitmaps: TMenuItem;`
	`miShowHideObjects: TMenuItem;`
	`miShowSelectedObjects: TMenuItem;`
	`miShowSideGrid: TMenuItem;`
	`miShowTopGrid: TMenuItem;`
	`miSmoothGrid: TMenuItem;`
	`miSolutionMethod: TMenuItem;`
	`miSteadyFlow: TMenuItem;`
	`miSubdivide: TMenuItem;`
	`miTimeControl: TMenuItem;`
	`miTitleAndUnits: TMenuItem;`
	`miTopicSearch: TMenuItem;`
	`miUndo: TMenuItem;`
	`miVerticalExaggeration: TMenuItem;`
	`miView: TMenuItem;`
	`miZoom: TMenuItem;`
	`miZoomIn: TMenuItem;`
	`miZoomOut: TMenuItem;`
	`mmMainMenu: TMainMenu;`
	`MostRecentlyUsed: TRbwMostRecentlyUsed;`
	`N1: TMenuItem;`
	`N2: TMenuItem;`
	`N3: TMenuItem;`
	`N4: TMenuItem;`
	`N5: TMenuItem;`
	`N6: TMenuItem;`
	`odOpenDialog: TOpenDialog;`
	`pnlBottom: TPanel;`
	`pnlTop: TPanel;`
	`rpFrontFormulaCompiler: TRbwParser;`
	`rpFrontFormulaCompilerNodes: TRbwParser;`
	`rpSideFormulaCompiler: TRbwParser;`
	`rpSideFormulaCompilerNodes: TRbwParser;`
	`rpThreeDFormulaCompiler: TRbwParser;`
	`rpThreeDFormulaCompilerNodes: TRbwParser;`
	`rpTopFormulaCompiler: TRbwParser;`
	`rpTopFormulaCompilerNodes: TRbwParser;`
	`sbMain: TStatusBar;`
	`sdPhastInput: TSaveDialog;`
	`sdSaveDialog: TSaveDialog;`
	`splitHoriz: TSplitter;`
	`splitVertBottom: TSplitter;`
	`splitVertTop: TSplitter;`
	`tb3DColors: TToolButton;`
	`tb3DObjects: TToolButton;`
	`tbAddHorizontalBoundary: TToolButton;`
	`tbAddVerticalBoundary: TToolButton;`
	`tbarCreateScreenObject: TToolBar;`
	`tbarEdit: TToolBar;`
	`tbarEditGrid: TToolBar;`
	`tbarEditScreenObjects: TToolBar;`
	`tbarFile: TToolBar;`
	`tbarView: TToolBar;`
	`tbarView3D: TToolBar;`
	`tbCopy: TToolButton;`
	`tbCut: TToolButton;`
	`tbDeleteColumnRow: TToolButton;`
	`tbDeleteSegment: TToolButton;`
	`tbFrontGrid: TToolButton;`
	`tbGenerateGrid: TToolButton;`
	`tbGridAngle: TToolButton;`
	`tbInsertPoint: TToolButton;`
	`tbLasso: TToolButton;`
	`tbLine: TToolButton;`
	`tbMove: TToolButton;`
	`tbNew: TToolButton;`
	`tbOpen: TToolButton;`
	`tbPan: TToolButton;`
	`tbPaste: TToolButton;`
	`tbPoint: TToolButton;`
	`tbPolygon: TToolButton;`
	`tbPrint: TToolButton;`
	`tbRectangle: TToolButton;`
	`tbRedo: TToolButton;`
	`tbSave: TToolButton;`
	`tbSelect: TToolButton;`
	`tbSelectPoint: TToolButton;`
	`tbSeparator1: TToolButton;`
	`tbSeparator2: TToolButton;`
	`tbShell: TToolButton;`
	`tbShowHideObjects: TToolButton;`
	`tbSideGrid: TToolButton;`
	`tbSpacing: TToolButton;`
	`tbStraightLine: TToolButton;`
	`tbSubdivide: TToolButton;`
	`tbTopGrid: TToolButton;`
	`tbUndo: TToolButton;`
	`tbZoom: TToolButton;`
	`tbZoomIn: TToolButton;`
	`tbZoomOut: TToolButton;`
	`timTimer: TTimer;`
	`FCanDraw: boolean;`
	`FCanEdit: boolean;`
	`FClickedRuler: TObject;`
	`FCurrentTool: TCustomInteractiveTool;`
	`FCursorGrid: TCursorGrid;`
	`FCursorX: integer;`
	`FCursorY: integer;`
	`FDeletedDataSets: TObjectList;`
	`FFileFormat: TFileFormat;`
	`FFrontGridChanged: boolean;`
	`FFrontScreenObjectsChanged: boolean;`
	`FModel: TPhastModel;`
	`FMovingPanelIndex: integer;`
	`FMovingStatusBarPanel: boolean;`
	`FOldHeight: integer;`
	`FOldWidth: integer;`
	`FSideGridChanged: boolean;`
	`FSideScreenObjectsChanged: boolean;`
	`FTopGridChanged: boolean;`
	`FTopScreenObjectsChanged: boolean;`
	`FIniFile: TMemInifile;`

Methods

	`procedure DeleteLastPointInScreenObject;`
	`procedure acColorExecute(Sender: TObject);`
	`procedure acDeleteColumnRowExecute(Sender: TObject);`
	`procedure acEditDataSetsExecute(Sender: TObject);`
	`procedure acEditGridLinesExecute(Sender: TObject);`
	`procedure acExitExecute(Sender: TObject);`
	`procedure acExportPhastInputFileExecute(Sender: TObject);`
	`procedure acFileNewExecute(Sender: TObject);`
	`procedure acFileOpenExecute(Sender: TObject);`
	`procedure acFileSaveAsExecute(Sender: TObject);`
	`procedure acFileSaveExecute(Sender: TObject);`
	`procedure acFontExecute(Sender: TObject);`
	`procedure acGenerateGridExecute(Sender: TObject);`
	`procedure acGridAngleExecute(Sender: TObject);`
	`procedure acHelpContentsExecute(Sender: TObject);`
	`procedure acMoveColumnOrRowExecute(Sender: TObject);`
	`procedure acMoveToExecute(Sender: TObject);`
	`procedure acRestoreDefaultViewExecute(Sender: TObject);`
	`procedure acSetSpacingExecute(Sender: TObject);`
	`procedure acShowFrontGridExecute(Sender: TObject);`
	`procedure acShowGridShellExecute(Sender: TObject);`
	`procedure acShowSideGridExecute(Sender: TObject);`
	`procedure acShowTopGridExecute(Sender: TObject);`
	`procedure acSmoothGridExecute(Sender: TObject);`
	`procedure acSubdivideExecute(Sender: TObject);`
	`procedure dcAddColCursorDrawCursor(Sender: TObject; const ABitMap, AMask: TBitmap);`
	`procedure dcAddRowCursorDrawCursor(Sender: TObject; const ABitMap, AMask: TBitmap);`
	`procedure dcMoveColCursorDrawCursor(Sender: TObject; const ABitMap, AMask: TBitmap);`
	`procedure dcMoveRowCursorDrawCursor(Sender: TObject; const ABitMap, AMask: TBitmap);`
	`procedure dcSetSpacingDrawCursor(Sender: TObject; const ABitMap, AMask: TBitmap);`
	`procedure dcSubdivideDrawCursor(Sender: TObject; const ABitMap, AMask: TBitmap);`
	`procedure FormClose(Sender: TObject; var Action: TCloseAction);`
	`procedure FormCreate(Sender: TObject); override;`
	`procedure FormDestroy(Sender: TObject);`
	`procedure FormResize(Sender: TObject);`
	`procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);`
	`procedure mi3D_ColorsClick(Sender: TObject);`
	`procedure miAboutClick(Sender: TObject);`
	`procedure miChangeStyleClick(Sender: TObject);`
	`procedure miChemistryOptionsClick(Sender: TObject);`
	`procedure miColorGridClick(Sender: TObject);`
	`procedure miEditBitmapsClick(Sender: TObject);`
	`procedure miEditSelectedObjectsClick(Sender: TObject);`
	`procedure miExamplesClick(Sender: TObject);`
	`procedure miFreeSurfaceClick(Sender: TObject);`
	`procedure miGridOptionsClick(Sender: TObject);`
	`procedure miHelpOnMainWindowClick(Sender: TObject);`
	`procedure miHintDelayClick(Sender: TObject);`
	`procedure miImportBitmapClick(Sender: TObject);`
	`procedure miImportDistributedDatabyZoneClick(Sender: TObject);`
	`procedure miImportDXFFileClick(Sender: TObject);`
	`procedure miImportPointsClick(Sender: TObject);`
	`procedure miImportShapefileClick(Sender: TObject);`
	`procedure miPrintFrequencyClick(Sender: TObject);`
	`procedure miPrintInitialClick(Sender: TObject);`
	`procedure miRearrangeObjectsClick(Sender: TObject);`
	`procedure miRulerFormatClick(Sender: TObject);`
	`procedure miSearchForObjectClick(Sender: TObject);`
	`procedure miSelectObjectsByNameClick(Sender: TObject);`
	`procedure miSetSelectedColRowLayerClick(Sender: TObject);`
	`procedure miShowFormulaErrorsClick(Sender: TObject);`
	`procedure miShowHideBitmapsClick(Sender: TObject);`
	`procedure miShowHideObjectsClick(Sender: TObject);`
	`procedure miShowSelectedObjectsClick(Sender: TObject);`
	`procedure miSolutionMethodClick(Sender: TObject);`
	`procedure miSteadyFlowClick(Sender: TObject);`
	`procedure miTimeControlClick(Sender: TObject);`
	`procedure miTitleAndUnitsClick(Sender: TObject);`
	`procedure miTopicSearchClick(Sender: TObject);`
	`procedure miVerticalExaggerationClick(Sender: TObject);`
	`procedure miZoomInClick(Sender: TObject);`
	`procedure OpenMostRecentlyUsed(Sender: TObject);`
	`procedure pnlLowerRightMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);`
	`procedure sbMainMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);`
	`procedure sbMainMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);`
	`procedure sbMainMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);`
	`procedure sdSaveDialogFilterChange(Sender: TObject; NewIndex: Integer);`
	`procedure splitHorizMoved(Sender: TObject);`
	`procedure splitVertBottomMoved(Sender: TObject);`
	`procedure splitVertTopMoved(Sender: TObject);`
	`procedure tb3DColorsClick(Sender: TObject);`
	`procedure tb3DObjectsClick(Sender: TObject);`
	`procedure tbAddHorizontalBoundaryClick(Sender: TObject);`
	`procedure tbAddVerticalBoundaryClick(Sender: TObject);`
	`procedure tbDeleteSegmentClick(Sender: TObject);`
	`procedure tbGridAngleClick(Sender: TObject);`
	`procedure tbInsertPointClick(Sender: TObject);`
	`procedure tbLassoClick(Sender: TObject);`
	`procedure tbLineClick(Sender: TObject);`
	`procedure tbPanClick(Sender: TObject);`
	`procedure tbPointClick(Sender: TObject);`
	`procedure tbPointMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);`
	`procedure tbPolygonClick(Sender: TObject);`
	`procedure tbRectangleClick(Sender: TObject);`
	`procedure tbSelectClick(Sender: TObject);`
	`procedure tbSelectPointClick(Sender: TObject);`
	`procedure tbShellClick(Sender: TObject);`
	`procedure tbStraightLineClick(Sender: TObject);`
	`procedure tbZoomClick(Sender: TObject);`
	`procedure tbZoomOutClick(Sender: TObject);`
	`procedure ToolButtonMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);`
	`procedure AddMostRecentlyUsedFile(const FileName: string);`
	`procedure AdjustToolbarPositions(FirstToolBar, SecondToolBar: TToolBar);`
	`procedure AdjustToolbarWidth(AToolBar: TToolBar);`
	`procedure BringFormsToFront(Sender: TObject);`
	`function CheckModel: boolean;`
	`procedure ClearSelectedNodes;`
	`procedure DrawAddColRowCursor(const AndImage: TBitmap; Angle: real; const CursorComponent: TQRbwDynamicCursor);`
	`procedure DrawHint(Sender: TObject; Canvas: TCanvas; const Rect: TRect; var DefaultDraw: Boolean);`
	`procedure DrawMoveColRowCursor(const AndImage: TBitmap; Angle: real; const CursorComponent: TQRbwDynamicCursor);`
	`procedure DrawSubdivideCursor(const AndImage: TBitmap; Angle: real; const CursorComponent: TQRbwDynamicCursor);`
	`procedure ExportFile(const FileName: string);`
	`procedure FillButtonList(AList: TList);`
	`function GetPhastGrid: TPhastGrid;`
	`function IsOverStatusPanelDivider(const X: integer): boolean;`
	`procedure ReadIniFile;`
	`procedure SaveAFile(FileName: string);`
	`procedure SelectDefaultButton;`
	`procedure SetActionChecked(Sender: TObject);`
	`procedure SetButtonsUp(const CurrentButton: TObject);`
	`procedure SetCurrentTool(const Value: TCustomInteractiveTool);`
	`procedure SetCursorGrid(const Value: TCursorGrid);`
	`procedure SetFileFormat(const Value: TFileFormat);`
	`procedure SetFrontScreenObjectsChanged(const Value: boolean);`
	`procedure SetSideScreenObjectsChanged(const Value: boolean);`
	`procedure SetTopScreenObjectsChanged(const Value: boolean);`
	`procedure SetZB_Cursors(const ACursor: TCursor);`
	`procedure ShowHint(Sender: TObject);`
	`procedure ValidateJpeg;`
	`procedure WriteIniFile;`
	`procedure OnAppIdle(Sender: TObject; var Done: Boolean);`
	`function WidgetFlags: integer; override;`
	`procedure AdjustScales;`
	`procedure EditScreenObjects;`
	`function GetCompiler(const Orientation: TDataSetOrientation; const EvaluatedAt: TEvaluatedAt): TRbwParser;`
	`procedure InvalidateDataSets;`
	`procedure InvalidateFront;`
	`procedure InvalidateModel;`
	`procedure InvalidateSide;`
	`procedure InvalidateTop;`
	`procedure OpenAFile(const FileName: string);`
	`function ResetSelectedScreenObjects: boolean;`
	`procedure ResizeZoomBoxes(Sender: TObject);`
	`procedure ScreenObjectsChanged(Sender: TObject);`
	`procedure UpdateDataSetDimensions;`

Properties

	`property FileFormat: TFileFormat read FFileFormat write SetFileFormat;`
	`property CanDraw: boolean read FCanDraw write FCanDraw;`
	`property CanEdit: boolean read FCanEdit write FCanEdit;`
	`property ClickedRuler: TObject read FClickedRuler write FClickedRuler;`
	`property CurrentTool: TCustomInteractiveTool read FCurrentTool write SetCurrentTool;`
	`property CursorGrid: TCursorGrid read FCursorGrid write SetCursorGrid;`
	`property CursorX: integer read FCursorX write FCursorX;`
	`property CursorY: integer read FCursorY write FCursorY;`
	`property DeletedDataSets: TObjectList read FDeletedDataSets;`
	`property FrontGridChanged: boolean read FFrontGridChanged write FFrontGridChanged;`
	`property FrontScreenObjectsChanged: boolean read FFrontScreenObjectsChanged write SetFrontScreenObjectsChanged;`
	`property IniFile: TMemInifile read FIniFile;`
	`property Model: TPhastModel read FModel write FModel;`
	`property OldHeight: integer read FOldHeight;`
	`property OldWidth: integer read FOldWidth;`
	`property PhastGrid: TPhastGrid read GetPhastGrid;`
	`property SideGridChanged: boolean read FSideGridChanged write FSideGridChanged;`
	`property SideScreenObjectsChanged: boolean read FSideScreenObjectsChanged write SetSideScreenObjectsChanged;`
	`property TopGridChanged: boolean read FTopGridChanged write FTopGridChanged;`
	`property TopScreenObjectsChanged: boolean read FTopScreenObjectsChanged write SetTopScreenObjectsChanged;`

Description

Fields

	`acAddColumn: TAction;`
`acAddColumn`: TAction; `acAddColumn` is the TAction for miAddVerticalGridLine and tbAddVerticalBoundary. See tbAddVerticalBoundaryClick.

	`acAddRow: TAction;`
`acAddRow`: TAction; `acAddRow` is the TAction for miAddHorizontalGridLine and tbAddHorizontalBoundary. See tbAddHorizontalBoundaryClick.

	`acColor: TAction;`
`acColor`: TAction; `acColor` is the TAction for miColor and tb3DColors. See acColorExecute.

	`acColoredGrid: TAction;`
`acColoredGrid`: TAction; `acColoredGrid` is the TAction for miShowColoredGrid and tb3DColors. See tb3DColorsClick.

	`acCopy: TAction;`
`acCopy`: TAction; `acCopy` is the TAction for miCopy and tbCopy. `acCopy` is not yet used.

	`acCreateLine: TAction;`
`acCreateLine`: TAction; `acCreateLine` is the TAction for miCreateLine and tbLine. See tbLineClick.

	`acCreatePoint: TAction;`
`acCreatePoint`: TAction; `acCreatePoint` is the TAction for miCreatePoint and tbPoint. See tbPointClick.

	`acCreatePolygon: TAction;`
`acCreatePolygon`: TAction; `acCreatePolygon` is the TAction for miCreatePolygon and tbPolygon. See tbPolygonClick.

	`acCreateRectangle: TAction;`
`acCreateRectangle`: TAction; `acCreateRectangle` is the TAction for miCreateRectangle and tbRectangle. See tbRectangleClick.

	`acCreateStraightLine: TAction;`
`acCreateStraightLine`: TAction; `acCreateStraightLine` is the TAction for miCreateStraightLine and tbStraightLine. See tbStraightLineClick.

	`acCut: TAction;`
`acCut`: TAction; `acCut` is the TAction for miCut and tbCut. `acCut` is not yet used.

	`acDeleteColumnRow: TAction;`
`acDeleteColumnRow`: TAction; `acDeleteColumnRow` is the TAction for miDeleteGridLine and tbDeleteColumnRow. See acDeleteColumnRowExecute.

	`acDeleteSegment: TAction;`
`acDeleteSegment`: TAction; `acDeleteSegment` is the TAction for miDeleteSegment and tbDeleteSegment. See tbDeleteSegmentClick.

	`acEditDataSets: TAction;`
`acEditDataSets`: TAction; `acEditDataSets` is the TAction for miEditDataSet. See acEditDataSetsExecute.

	`acEditGridLines: TAction;`
`acEditGridLines`: TAction; `acEditGridLines` is the TAction for miEditGridLines. See acEditGridLinesExecute.

	`acEditVerticalExaggeration: TAction;`
`acEditVerticalExaggeration`: TAction; `acEditVerticalExaggeration` is the TAction for miVerticalExaggeration. See miVerticalExaggerationClick.

	`acExit: TAction;`
`acExit`: TAction; `acExit` is the TAction for miExit. See acExitExecute.

	`acExportPhastInputFile: TAction;`
`acExportPhastInputFile`: TAction; `acExportPhastInputFile` is the TAction for miExport. See acExportPhastInputFileExecute.

	`acFileNew: TAction;`
`acFileNew`: TAction; `acFileNew` is the TAction for miNew and tbNew. See acFileNewExecute.

	`acFileOpen: TAction;`
`acFileOpen`: TAction; `acFileOpen` is the TAction for miOpen and tbOpen. See acFileOpenExecute.

	`acFilePrint: TAction;`
`acFilePrint`: TAction; `acFilePrint` is the TAction for miPrint and tbPrint. `acFilePrint` is not yet used.

	`acFileSave: TAction;`
`acFileSave`: TAction; `acFileSave` is the TAction for miSave and tbSave. See acFileSaveExecute.

	`acFileSaveAs: TAction;`
`acFileSaveAs`: TAction; `acFileSaveAs` is the TAction for miSaveAs. See acFileSaveAsExecute.

	`acFont: TAction;`
`acFont`: TAction; `acFont` is the TAction for miFont. See acFontExecute.

	`acGenerateGrid: TAction;`
`acGenerateGrid`: TAction; `acGenerateGrid` is the TAction for miGenerateGrid and tbGenerateGrid. See acGenerateGridExecute.

	`acGridAngle: TAction;`
`acGridAngle`: TAction; `acGridAngle` is the TAction for miGridAngle. See acGridAngleExecute.

	`acGridDragRotate: TAction;`
`acGridDragRotate`: TAction; `acGridDragRotate` is the TAction for miDragtoRotate and tbGridAngle. See tbGridAngleClick.

	`acHelpContents: THelpContents;`
`acHelpContents`: TAction; `acHelpContents` is the TAction for miContents. See acHelpContentsExecute.

	`acHelpTopicSearch: THelpTopicSearch;`
`acHelpTopicSearch`: TAction; `acHelpTopicSearch` is the TAction for miTopicSearch. See miTopicSearchClick.

	`acInsertNode: TAction;`
`acInsertNode`: TAction; `acInsertNode` is the TAction for miInsertNode and tbInsertPoint. See tbInsertPointClick.

	`acMoveColumnOrRow: TAction;`
`acMoveColumnOrRow`: TAction; `acMoveColumnOrRow` is the TAction for miMoveColumnOrRow and tbMove. See acMoveColumnOrRowExecute.

	`acMoveTo: TAction;`
`acMoveTo`: TAction; `acMoveTo` is the TAction for miGoTo. See acMoveToExecute.

	`acPan: TAction;`
`acPan`: TAction; `acPan` is the TAction for miPan and tbPan. See tbPanClick.

	`acPaste: TAction;`
`acPaste`: TAction; `acPaste` is the TAction for miPaste and tbPaste. `acPaste` is not used yet.

	`acRestoreDefaultView: TAction;`
`acRestoreDefaultView`: TAction; `acRestoreDefaultView` is the TAction for miRestoreDefaultView. See acRestoreDefaultViewExecute.

	`acSelectAll: TAction;`
`acSelectAll`: TAction; `acSelectAll` is the TAction for miSelectAll. `acSelectAll` is not used yet.

	`acSelectNode: TAction;`
`acSelectNode`: TAction; `acSelectNode` is the TAction for miSelectNodes and tbSelectPoint. See tbSelectPointClick.

	`acSelectObjects: TAction;`
`acSelectObjects`: TAction; `acSelectObjects` is the TAction for miSelectObjects and tbSelect. See tbSelectClick.

	`acSelectWithLasso: TAction;`
`acSelectWithLasso`: TAction; `acSelectWithLasso` is the TAction for miSelectWithLasso and tbLasso. See tbLassoClick.

	`acSetSpacing: TAction;`
`acSetSpacing`: TAction; `acSetSpacing` is the TAction for miSetSpacing and tbSpacing. See acSetSpacingExecute.

	`acShow3DObjects: TAction;`
`acShow3DObjects`: TAction; `acShow3DObjects` is the TAction for miShow3DObjects and tb3DObjects. See tb3DObjectsClick.

	`acShowFrontGrid: TAction;`
`acShowFrontGrid`: TAction; `acShowFrontGrid` is the TAction for miShowFrontGrid and tbFrontGrid. See acShowFrontGridExecute.

	`acShowGridShell: TAction;`
`acShowGridShell`: TAction; `acShowGridShell` is the TAction for miShowGridShell and tbShell. See acShowGridShellExecute.

	`acShowHideObjects: TAction;`
`acShowHideObjects` is the action for showing or hiding frmShowHideObjects. See miShowHideObjectsClick.

	`acShowSideGrid: TAction;`
`acShowSideGrid`: TAction; `acShowSideGrid` is the TAction for miShowSideGrid and tbSideGrid. See acShowSideGridExecute.

	`acShowTopGrid: TAction;`
`acShowTopGrid`: TAction; `acShowTopGrid` is the TAction for miShowTopGrid and tbTopGrid. See acShowTopGridExecute.

	`acSmoothGrid: TAction;`
`acSmoothGrid`: TAction; `acSmoothGrid` is the TAction for miSmoothGrid. See acSmoothGridExecute.

	`acSubdivide: TAction;`
`acSubdivide`: TAction; `acSubdivide` is the TAction for miSubdivide and tbSubdivide. See acSubdivideExecute.

	`acZoom: TAction;`
`acZoom`: TAction; `acZoom` is the TAction for miZoom and tbZoom. See tbZoomClick.

	`acZoomIn: TAction;`
`acZoomIn`: TAction; `acZoomIn` is the TAction for miZoomIn and tbZoomIn. See miZoomInClick.

	`acZoomOut: TAction;`
`acZoomOut`: TAction; `acZoomOut` is the TAction for miZoomOut and tbZoomOut. See tbZoomOutClick.

	`alActionList: TActionList;`
`alActionList`: TActionList; `alActionList` holds the instances of TAction in GoPhast.

	`cbControlBar: TControlBar;`
`cbControlBar`: TControlBar; `cbControlBar` holds the instances of TToolBar in GoPhast.

	`cdColorDialog: TColorDialog;`
`cdColorDialog`: TColorDialog; `cdColorDialog` is used to pick the background color for GoPhast in acColorExecute.

	`dcAddColCursor: TQRbwDynamicCursor;`
`dcAddColCursor`: TQRbwDynamicCursor; `dcAddColCursor` is used to draw a rotated version of the AddColumn cursor in the top view of the model.

	`dcAddRowCursor: TQRbwDynamicCursor;`
`dcAddRowCursor`: TQRbwDynamicCursor; `dcAddRowCursor` is used to draw a rotated version of the AddRow cursor in the top view of the model.

	`dcMoveColCursor: TQRbwDynamicCursor;`
`dcMoveColCursor`: TQRbwDynamicCursor; `dcMoveColCursor` is used to draw a rotated version of the MoveColumn cursor in the top view of the model.

	`dcMoveRowCursor: TQRbwDynamicCursor;`
`dcMoveRowCursor`: TQRbwDynamicCursor; `dcMoveRowCursor` is used to draw a rotated version of the MoveRow cursor in the top view of the model.

	`dcSetSpacing: TQRbwDynamicCursor;`
`dcSetSpacing`: TQRbwDynamicCursor; `dcSetSpacing` is used to draw a rotated version of the SetCellSpacing cursor in the top view of the model.

	`dcSubdivide: TQRbwDynamicCursor;`
`dcSubdivide`: TQRbwDynamicCursor; `dcSubdivide` is used to draw a rotated version of the Subdivide cursor in the top view of the model.

	`fdFontDialog: TFontDialog;`
`fdFontDialog`: TFontDialog; `fdFontDialog` is used to pick the font for GoPhast in acFontExecute.

	`frame3DView: Tframe3DView;`
`frame3DView`: Tframe3DView; `frame3DView` displays a 3D view of the model and handles interaction with the 3D view.

	`frameFrontView: TframeView;`
`frameFrontView`: TframeView; `frameFrontView` displays a front view of the model and handles interaction with the front view.

	`frameSideView: TframeView;`
`frameSideView`: TframeView; `frameSideView` displays a side view of the model and handles interaction with the side view.

	`frameTopView: TframeView;`
`frameTopView`: TframeView; `frameTopView` displays a top view of the model and handles interaction with the top view.

	`ilImageList: TImageList;`
`ilImageList`: TImageList; `ilImageList` holds the images of the buttons.

	`mi3D_Colors: TMenuItem;`
`mi3D_Colors`: TMenuItem; See mi3D_ColorsClick.

	`miAbout: TMenuItem;`
`miAbout`: TMenuItem; See miAboutClick.

	`miAddHorizontalGridLine: TMenuItem;`
`miAddHorizontalGridLine`: TMenuItem; See tbAddHorizontalBoundaryClick and acAddRow.

	`miAddVerticalGridLine: TMenuItem;`
`miAddVerticalGridLine`: TMenuItem; See tbAddVerticalBoundaryClick and acAddColumn.

	`miChangeStyle: TMenuItem;`
`miChangeStyle`: TMenuItem; See miChangeStyleClick.

	`miChemistryOptions: TMenuItem;`
`miChemistryOptions`: TMenuItem; See miChemistryOptionsClick.

	`miColor: TMenuItem;`
`miColor`: TMenuItem; See acColorExecute and acColor.

	`miColorGrid: TMenuItem;`
`miColorGrid`: TMenuItem; See miColorGridClick.

	`miContents: TMenuItem;`
`miContents`: TMenuItem; See acHelpContentsExecute and acHelpContents.

	`miCopy: TMenuItem;`
`miCopy`: TMenuItem; See acCopy.

	`miCreateLine: TMenuItem;`
`miCreateLine`: TMenuItem; See tbLineClick and acCreateLine.

	`miCreatePoint: TMenuItem;`
`miCreatePoint`: TMenuItem; See tbPointClick and acCreatePoint.

	`miCreatePolygon: TMenuItem;`
`miCreatePolygon`: TMenuItem; See tbPolygonClick and acCreatePolygon.

	`miCreateRectangle: TMenuItem;`
`miCreateRectangle`: TMenuItem; See tbRectangleClick and acCreateRectangle.

	`miCreateStraightLine: TMenuItem;`
`miCreateStraightLine`: TMenuItem; See tbStraightLineClick and acCreateStraightLine.

	`miCustomize: TMenuItem;`
`miCustomize`: TMenuItem; `miCustomize` holds the miFont, miColor, miHintDelay, miRulerFormat, and miChangeStyle menu items.

	`miCut: TMenuItem;`
`miCut`: TMenuItem; See acCut.

	`miData: TMenuItem;`
`miData`: TMenuItem; `miData` holds the miEditDataSet, miColorGrid, and miShowFormulaErrors menu items.

	`miDeleteGridLine: TMenuItem;`
`miDeleteGridLine`: TMenuItem; See acDeleteColumnRowExecute and acDeleteColumnRow.

	`miDeleteSegment: TMenuItem;`
`miDeleteSegment`: TMenuItem; See tbDeleteSegmentClick and acDeleteSegment.

	`miDragtoRotate: TMenuItem;`
`miDragtoRotate`: TMenuItem; See tbGridAngleClick and acGridDragRotate.

	`miEdit: TMenuItem;`
`miEdit`: TMenuItem; `miEdit` holds the miUndo, miRedo, miCut, miCopy, miPaste, miSelectAll, miEditBitmaps, and miShowHideBitmaps menu items.

	`miEditBitmaps: TMenuItem;`
`miEditBitmaps`: TMenuItem; See miEditBitmapsClick.

	`miEditDataSet: TMenuItem;`
`miEditDataSet`: TMenuItem; See acEditDataSetsExecute and acEditDataSets.

	`miEditGridLines: TMenuItem;`
`miEditGridLines`: TMenuItem; See acEditGridLinesExecute and acEditGridLines.

miEditSelectedObjects: TMenuItem;

This TMenuItem [Object|Edit Selected Object(s)], allows the user to edit the properties of the selected objects by displaying the TfrmScreenObjectProperties dialog box.

Methods

	`procedure DeleteLastPointInScreenObject;`
`DeleteLastPointInScreenObject` deletes the last point the the current TScreenObject.

	`procedure acColorExecute(Sender: TObject);`
`acColorExecute` changes the background color of GoPhast.

	`procedure acDeleteColumnRowExecute(Sender: TObject);`
`acDeleteColumnRowExecute` sets CurrentTool to DeleteGridBoundaryTool.

	`procedure acEditDataSetsExecute(Sender: TObject);`
`acEditDataSetsExecute` allows the user to edit data sets by showing TfrmDataSets.

	`procedure acEditGridLinesExecute(Sender: TObject);`
`acEditGridLinesExecute` allows the user to edit grid lines by showing TfrmGridSpacing.

	`procedure acExitExecute(Sender: TObject);`
`acExitExecute` closes GoPhast.

	`procedure acExportPhastInputFileExecute(Sender: TObject);`
`acExportPhastInputFileExecute` exports the transport input file for PHAST.

	`procedure acFileNewExecute(Sender: TObject);`
`acFileNewExecute` creates a new model.

	`procedure acFileOpenExecute(Sender: TObject);`
`acFileOpenExecute` reads an existing file from the disk.

	`procedure acFileSaveAsExecute(Sender: TObject);`
`acFileSaveAsExecute` saves a file to the disk with a user-specified name.

	`procedure acFileSaveExecute(Sender: TObject);`
`acFileSaveExecute` saves a file to the disk with the existing file name.

	`procedure acFontExecute(Sender: TObject);`
`acFontExecute` sets the font of GoPhast.

	`procedure acGenerateGridExecute(Sender: TObject);`
`acGenerateGridExecute` generates a grid by showing TfrmGenerateGrid.

	`procedure acGridAngleExecute(Sender: TObject);`
`acGridAngleExecute` allows the user to set the grid angle using TfrmGridAngle.

	`procedure acHelpContentsExecute(Sender: TObject);`
`acHelpContentsExecute` looks for help for HelpKeyword. Displays the Help contents for GoPhast.

	`procedure acMoveColumnOrRowExecute(Sender: TObject);`
`acMoveColumnOrRowExecute` sets CurrentTool to MovingGridBoundaryTool.

	`procedure acMoveToExecute(Sender: TObject);`
`acMoveToExecute` allows the user to move to a location, object, cell or element by showing TfrmMoveTo.

	`procedure acRestoreDefaultViewExecute(Sender: TObject);`
`acRestoreDefaultViewExecute` restores the 3D view to its default orientation and magnification.

	`procedure acSetSpacingExecute(Sender: TObject);`
`acSetSpacingExecute` sets CurrentTool to SpacingGridTool.

	`procedure acShowFrontGridExecute(Sender: TObject);`
`acShowFrontGridExecute` allows the user to show or hide the front grid in the 3D view.

	`procedure acShowGridShellExecute(Sender: TObject);`
`acShowGridShellExecute` allows the user to show or hide the grid shell in the 3D view.

	`procedure acShowSideGridExecute(Sender: TObject);`
`acShowSideGridExecute` allows the user to show or hide the side grid in the 3D view.

	`procedure acShowTopGridExecute(Sender: TObject);`
`acShowTopGridExecute` allows the user to show or hide the top grid in the 3D view.

	`procedure acSmoothGridExecute(Sender: TObject);`
`acSmoothGridExecute` allows the user to adjust row, column, or layer widths by showing TfrmSmoothGrid.

	`procedure acSubdivideExecute(Sender: TObject);`
`acSubdivideExecute` sets CurrentTool to SubdivideGridTool.

	`procedure dcAddColCursorDrawCursor(Sender: TObject; const ABitMap, AMask: TBitmap);`
`dcAddColCursorDrawCursor` is used to draw a rotated version of the AddColumn cursor in the top view of the model.

	`procedure dcAddRowCursorDrawCursor(Sender: TObject; const ABitMap, AMask: TBitmap);`
`dcAddRowCursorDrawCursor` is used to draw a rotated version of the AddRow cursor in the top view of the model.

	`procedure dcMoveColCursorDrawCursor(Sender: TObject; const ABitMap, AMask: TBitmap);`
`dcMoveColCursorDrawCursor` is used to draw a rotated version of the MoveColumn cursor in the top view of the model.

	`procedure dcMoveRowCursorDrawCursor(Sender: TObject; const ABitMap, AMask: TBitmap);`
`dcMoveRowCursorDrawCursor` is used to draw a rotated version of the MoveRow cursor in the top view of the model.

	`procedure dcSetSpacingDrawCursor(Sender: TObject; const ABitMap, AMask: TBitmap);`
`dcSetSpacingDrawCursor` is used to draw a rotated version of the SetCellSpacing cursor in the top view of the model.

	`procedure dcSubdivideDrawCursor(Sender: TObject; const ABitMap, AMask: TBitmap);`
`dcSubdivideDrawCursor` is used to draw a rotated version of the Subdivide cursor in the top view of the model.

	`procedure FormClose(Sender: TObject; var Action: TCloseAction);`
`FormClose` checks that the model has closed and allows the user an chance to save it if it hasn't been saved.

	`procedure FormCreate(Sender: TObject); override;`
`FormCreate` does the following 1. It creates the observer list which is used to notify objects when they are out of date. 2. It creates an initial model. 3. It adds PHAST specific functions to each TRbwParser. 4. It sets up the initial view of the model. 5. It update the cursors. 6. It sets some properties of the Application object.

	`procedure FormDestroy(Sender: TObject);`
`FormDestroy` cleans up by destroying the model and other objects.

	`procedure FormResize(Sender: TObject);`
When the form is resized, synchronize the rulers with the views of the model.

procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);

FormKeyUp responds to the Escape, Return, Delete, PageUp, PageDown and arrow keys.

Escape: delete the last point in a TScreenObject that is being created.
Return: finish any TScreenObjects.
Delete: delete the selected TScreenObject or the selected vertices in the selected TScreenObject.
Left arrow: increase the selected column.
Right arrow: decrease the selected column.
Up arrow: increase the selected row.
Down arrow: decrease the selected row.
Page Up: increase the selected layer.
Page Down: decrease the selected layer.

FormKeyUp also implements the shortcuts of the TMenuItems. It should not need to do that; CLX should do it but does not.

	`procedure mi3D_ColorsClick(Sender: TObject);`
`mi3D_ColorsClick` shows frmColors to allow the user to specify the color of the light in the 3D view.

	`procedure miAboutClick(Sender: TObject);`
`miAboutClick` shows the About form for GoPhast. See link(frmAbout) and TfrmAbout.

	`procedure miChangeStyleClick(Sender: TObject);`
`miChangeStyleClick` allows the user to customize the appearance of controls in GoPhast via TfrmChooseStyle.

	`procedure miChemistryOptionsClick(Sender: TObject);`
`miChemistryOptionsClick` allows the user to set the options related to chemistry in PHAST via TfrmChemistryOptions.

	`procedure miColorGridClick(Sender: TObject);`
`miColorGridClick` allows the user to color the grid with the values of a TDataArray in GoPhast via TfrmGridColor.

	`procedure miEditBitmapsClick(Sender: TObject);`
`miEditBitmapsClick` allows the user to edit the position of bitmaps in GoPhast via TfrmImportBitmap.

procedure miEditSelectedObjectsClick(Sender: TObject);

miEditSelectedObjectsClick edits TScreenObjects by calling EditScreenObjects.

Parameters

Sender: is the TToolButton that has been depressed.

	`procedure tbPolygonClick(Sender: TObject);`
`tbPolygonClick` allows the user to create a polygon TScreenObject. `tbPolygonClick` sets CurrentTool to CreateLineScreenObjectTool.

	`procedure tbRectangleClick(Sender: TObject);`
`tbRectangleClick` allows the user to create a rectangle TScreenObject. `tbRectangleClick` sets CurrentTool to CreateRectangleScreenObjectTool.

	`procedure tbSelectClick(Sender: TObject);`
`tbSelectClick` allows the user to select a TScreenObject by clicking on it. `tbSelectClick` sets CurrentTool to SelectScreenObjectTool.

	`procedure tbSelectPointClick(Sender: TObject);`
`tbSelectPointClick` allows the user to select a node in a TScreenObject by clicking on it. `tbSelectPointClick` sets CurrentTool to SelectPointTool.

	`procedure tbShellClick(Sender: TObject);`
`tbShellClick` shows or hides the grid shell in the 3D view of the model.

	`procedure tbStraightLineClick(Sender: TObject);`
`tbStraightLineClick` allows the user to create a straight-line TScreenObject. `tbStraightLineClick` sets CurrentTool to CreateStraightLineScreenObjectTool.

	`procedure tbZoomClick(Sender: TObject);`
`tbZoomClick` allows the user to zoom in on a particular region by selecting it with the mouse. `tbZoomClick` sets CurrentTool to ZoomTool.

	`procedure tbZoomOutClick(Sender: TObject);`
`tbZoomOutClick` allows the user to zoom out from a particular region. `tbZoomOutClick` sets CurrentTool to ZoomOutTool.

	`procedure ToolButtonMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);`
When handling the OnMouseUp event, `ToolButtonMouseUp` checks that the user released the mouse while it was over the TToolButton. If so, ToolButton.Down is set to false and CurrentTool is set to `Nil`.

	`procedure AddMostRecentlyUsedFile(const FileName: string);`
`AddMostRecentlyUsedFile` adds FileName to MostRecentlyUsed.

	`procedure AdjustToolbarPositions(FirstToolBar, SecondToolBar: TToolBar);`
`AdjustToolbarPositions` adjusts SecondToolBar.Left so that is just to the right of FirstToolBar. It is assumed that FirstToolBar and SecondToolBar are on the same row.

	`procedure AdjustToolbarWidth(AToolBar: TToolBar);`
`AdjustToolbarWidth` adjusts the width of AToolBar so that it accommodates all the visible buttons on it.

	`procedure BringFormsToFront(Sender: TObject);`
If frmProgress, frmSelectedObjects, or frmColors are visible, `BringFormsToFront` brings them to the front. `BringFormsToFront` is the Application.OnActivate event handler.

	`function CheckModel: boolean;`
`CheckModel` checks that the model has closed and allows the user an chance to save it if it hasn't been saved.

	`procedure ClearSelectedNodes;`
If any individual vertices in a TScreenObject are selected `ClearSelectedNodes` deselects them. `ClearSelectedNodes` is used in tbSelectClick.

	`procedure DrawAddColRowCursor(const AndImage: TBitmap; Angle: real; const CursorComponent: TQRbwDynamicCursor);`
`DrawAddColRowCursor` is used to draw the bitmaps for the add-column or add-row cursor for the top view. It is also used to help draw the subdivide cursor. The cursor is drawn with lines that are parallel to the grid.

	`procedure DrawHint(Sender: TObject; Canvas: TCanvas; const Rect: TRect; var DefaultDraw: Boolean);`
`DrawHint` ensures that the hint text is black despite the possibility of weird settings on the computer. `DrawHint` is the DrawHint event handler for Application.Style.

	`procedure DrawMoveColRowCursor(const AndImage: TBitmap; Angle: real; const CursorComponent: TQRbwDynamicCursor);`
`DrawMoveColRowCursor` is used to draw the bitmaps for the move-column or move-row cursor for the top view. The cursor is drawn with lines that are parallel to the grid.

	`procedure DrawSubdivideCursor(const AndImage: TBitmap; Angle: real; const CursorComponent: TQRbwDynamicCursor);`
`DrawSubdivideCursor` is used to help draw the bitmaps for the subdivide cursor for the top view. The cursor is drawn with lines that are parallel to the grid.

	`procedure ExportFile(const FileName: string);`
`ExportFile` writes the transport input file for PHAST. The work is delegated to WritePhastInput.

	`procedure FillButtonList(AList: TList);`
`FillButtonList` fills AList with the buttons that can't all be down at the same time.

	`function GetPhastGrid: TPhastGrid;`
See PhastGrid.

	`function IsOverStatusPanelDivider(const X: integer): boolean;`
`IsOverStatusPanelDivider` returns true if X indicates that the mouse is over one of the dividers between panels on sbMain. `IsOverStatusPanelDivider` is called from sbMainMouseMove.

procedure ReadIniFile;

ReadIniFile reads an ini file containing the most recently used files.

Parameters

Sender: must be the action or control whose state is to be toggled for SetActionChecked to do anything. If it isn't, SetActionChecked does nothing.

procedure SetButtonsUp(const CurrentButton: TObject);

SetButtonsUp sets the Down property of all buttons related to CurrentButton to false.

Parameters

CurrentButton: is the button that should remain down.

	`procedure SetCurrentTool(const Value: TCustomInteractiveTool);`
See CurrentTool.

	`procedure SetCursorGrid(const Value: TCursorGrid);`
See CursorGrid.

	`procedure SetFileFormat(const Value: TFileFormat);`
See FileFormat.

	`procedure SetFrontScreenObjectsChanged(const Value: boolean);`
See FrontScreenObjectsChanged.

	`procedure SetSideScreenObjectsChanged(const Value: boolean);`
See SideScreenObjectsChanged.

	`procedure SetTopScreenObjectsChanged(const Value: boolean);`
See TopScreenObjectsChanged.

	`procedure SetZB_Cursors(const ACursor: TCursor);`
`SetZB_Cursors` sets TframeView..ZoomBox.Cursor and TframeView..ZoomBox.PaintBox.Cursor to ACursor in frameTopView, frameFrontView, and frameSideView.

	`procedure ShowHint(Sender: TObject);`
`ShowHint` is the event-handler for Application.OnHint. `ShowHint` shows a long version of the hint on the status bar (sbMain).

	`procedure ValidateJpeg;`
In Windows, `ValidateJpeg` checks whether gdiplus.dll is installed. If not. it shows a warning via TfrmJpegWarning and sets JpegsOK to `False`. `ValidateJpeg` is called in FormCreate.

procedure WriteIniFile;

WriteIniFile writes an ini file containing the most recently used files.

Parameters

FileName: is the name of the file that is to be read.

	`function ResetSelectedScreenObjects: boolean;`
`ResetSelectedScreenObjects` sets the Selected property of all TScreenObjects to false. `ResetSelectedScreenObjects` returns true if any of them were selected.

	`procedure ResizeZoomBoxes(Sender: TObject);`
`ResizeZoomBoxes` causes the ZoomBoxes to be resized. `ResizeZoomBoxes` is set to be the OnTimer event handler of timTimer in TframeView.ZoomBoxResize.

	`procedure ScreenObjectsChanged(Sender: TObject);`
`ScreenObjectsChanged` is used to update all views of the model.

	`procedure UpdateDataSetDimensions;`
`UpdateDataSetDimensions` tells all the TDataArrays what the new grid dimensions are.

Properties

	`property FileFormat: TFileFormat read FFileFormat write SetFileFormat;`
`FileFormat` is used to specify the format of the files that can be opened or saved by GoPhast.

	`property CanDraw: boolean read FCanDraw write FCanDraw;`
Setting `CanDraw` to False causes TframeView.ZoomBoxPaintBoxPaint to exit immediately without doing anything.

	`property CanEdit: boolean read FCanEdit write FCanEdit;`
`CanEdit` is used to prevent editing of two or more sets of TScreenObjects at one time.

	`property ClickedRuler: TObject read FClickedRuler write FClickedRuler;`
`ClickedRuler` is set to the TRbwRuler in TframeView.rulerDblClick It determines which tab of TfrmRulerOptions will be visible when it is first displayed.

	`property CurrentTool: TCustomInteractiveTool read FCurrentTool write SetCurrentTool;`
`CurrentTool` is the TCustomInteractiveTool that is currently being used to handle the user interaction with TframeView.ZoomBox.

	`property CursorGrid: TCursorGrid read FCursorGrid write SetCursorGrid;`
`CursorGrid` is used to indicate which view of the model, if any, the mouse is over.

	`property CursorX: integer read FCursorX write FCursorX;`
`CursorX` is used to store the X-coordinate of the current mouse position in the current TframeView.ZoomBox.

	`property CursorY: integer read FCursorY write FCursorY;`
`CursorY` is used to store the Y-coordinate of the current mouse position in the current TframeView.ZoomBox.

	`property DeletedDataSets: TObjectList read FDeletedDataSets;`
`DeletedDataSets` is used to store TDataArrays that have been deleted. The intent is to allow them to be restored later. However, that capability has not been implemented.

	`property FrontGridChanged: boolean read FFrontGridChanged write FFrontGridChanged;`
`FrontGridChanged` is used to indicate that a change has been made to the grid in the front view of the model so that the view of the model needs to be redrawn.

	`property FrontScreenObjectsChanged: boolean read FFrontScreenObjectsChanged write SetFrontScreenObjectsChanged;`
Setting `FrontScreenObjectsChanged` to true causes the front view of the model to be redrawn.

	`property IniFile: TMemInifile read FIniFile;`
`IniFile` is the ini file for GoPhast. It stores a list of the most recently opened files.

	`property Model: TPhastModel read FModel write FModel;`
`Model` is the TPhastModel that is being edited in GoPhast.

	`property OldHeight: integer read FOldHeight;`
`OldHeight` represents the height of the main form in GoPhast when it is not minimized. It is used in TPhastModel.Height.

	`property OldWidth: integer read FOldWidth;`
`OldWidth` represents the width of the main form in GoPhast when it is not minimized. It is used in TPhastModel.Width.

	`property PhastGrid: TPhastGrid read GetPhastGrid;`
`PhastGrid` is the PhastGrid of Model.

	`property SideGridChanged: boolean read FSideGridChanged write FSideGridChanged;`
`SideGridChanged` is used to indicate that a change has been made to the grid in the side view of the model so that the view of the model needs to be redrawn.

	`property SideScreenObjectsChanged: boolean read FSideScreenObjectsChanged write SetSideScreenObjectsChanged;`
Setting `SideScreenObjectsChanged` to true causes the side view of the model to be redrawn.

	`property TopGridChanged: boolean read FTopGridChanged write FTopGridChanged;`
`TopGridChanged` is used to indicate that a change has been made to the grid in the top view of the model so that the view of the model needs to be redrawn.

	`property TopScreenObjectsChanged: boolean read FTopScreenObjectsChanged write SetTopScreenObjectsChanged;`
Setting `TopScreenObjectsChanged` to true causes the top view of the model to be redrawn.

Generated by PasDoc 0.10.0 on 2006-10-31 09:56:35

Class TfrmGoPhast

Unit

Declaration

Description

Hierarchy

Overview

Fields

Methods

Properties

Description

Fields

See also

See also

See also

See also

See also

See also

Methods

See also

Parameters

See also

Parameters

Parameters

See also

Parameters

Properties

	`miExamples: TMenuItem;`
The OnClick event for `miExamples`, miExamplesClick, opens the default web browser with the web page for the instructions for recreating the examples.

	`miExit: TMenuItem;`
`miExit`: TMenuItem; See acExitExecute and acExit.

	`miExport: TMenuItem;`
`miExport`: TMenuItem; See acExportPhastInputFileExecute and acExportPhastInputFile.

	`miFile: TMenuItem;`
`miFile`: TMenuItem; `miFile` holds the miNew, miOpen, miSave, miSaveAs, miImport, miExport, miPrint, and miExit menu items.

	`miFont: TMenuItem;`
`miFont`: TMenuItem; See acFontExecute and acFont.

	`miFreeSurface: TMenuItem;`
`miFreeSurface`: TMenuItem; See miFreeSurfaceClick.

	`miGenerateGrid: TMenuItem;`
`miGenerateGrid`: TMenuItem; See acGenerateGridExecute and acGenerateGrid.

	`miGoTo: TMenuItem;`
`miGoTo`: TMenuItem; See acMoveToExecute and acMoveTo.

	`miGrid: TMenuItem;`
`miGrid`: TMenuItem; `miGrid` holds the miDeleteGridLine, miMoveColumnOrRow, miAddVerticalGridLine, miAddHorizontalGridLine, miSubdivide, miSetSpacing, miDragtoRotate, miGridAngle, miGenerateGrid, miEditGridLines, miSmoothGrid, and miSetSelectedColRowLayer menu items.

	`miGridAngle: TMenuItem;`
`miGridAngle`: TMenuItem; See acGridAngleExecute and acGridAngle.

	`miGridOptions: TMenuItem;`
`miGridOptions`: TMenuItem; See miGridOptionsClick.

	`miHelp: TMenuItem;`
`miHelp`: TMenuItem; `miHelp` holds the miContents, and miTopicSearchClick, miAbout menu items.

	`miHelpOnMainWindow: TMenuItem;`
`miHelpOnMainWindow` provides help on the main window of GoPhast.

	`miHintDelay: TMenuItem;`
`miHintDelay`: TMenuItem; See miHintDelayClick.

	`miImport: TMenuItem;`
`miImport`: TMenuItem; `miImport` holds the miImportDistributedDatabyZone, miImportShapefile, miImportDXFFile, and miImportBitmap menu items. `miImport` is under the miFile menu item.

	`miImportBitmap: TMenuItem;`
`miImportBitmap`: TMenuItem; See miImportBitmapClick.

	`miImportDistributedDatabyZone: TMenuItem;`
`miImportDistributedDatabyZone`: TMenuItem; See miImportDistributedDatabyZoneClick.

	`miImportDXFFile: TMenuItem;`
`miImportDXFFile`: TMenuItem; See miImportDXFFileClick.

	`miImportShapefile: TMenuItem;`
`miImportShapefile`: TMenuItem; See miImportShapefileClick.

	`miInsertNode: TMenuItem;`
`miInsertNode`: TMenuItem; See tbInsertPointClick and acInsertNode.

	`miMoveColumnOrRow: TMenuItem;`
`miMoveColumnOrRow`: TMenuItem; See acMoveColumnOrRowExecute and acMoveColumnOrRow.

	`miNew: TMenuItem;`
`miNew`: TMenuItem; See acFileNewExecute and acFileNew.

	`miObject: TMenuItem;`
`miObject`: TMenuItem; `miObject` holds the miSelectObjects, miSelectNodes, miSelectWithLasso, N4, miCreatePoint, miCreateLine, miCreatePolygon, miCreateStraightLine, miCreateRectangle, N2, miInsertNode, miDeleteSegment, miRearrangeObjects, N1, miSearchForObject, miShowSelectedObjects, miShowHideObjects, miSelectObjectsByName, and mi3D_Colors menu items.

	`miOpen: TMenuItem;`
`miOpen`: TMenuItem; See acFileOpenExecute and acFileOpen.

	`miPan: TMenuItem;`
`miPan`: TMenuItem; See tbPanClick and acPan.

	`miPhastOptions: TMenuItem;`
`miPhastOptions`: TMenuItem; `miPhastOptions` holds the miTitleAndUnits, miGridOptions, miChemistryOptions, miSolutionMethod, miSteadyFlow, miTimeControl, miFreeSurface, miPrintInitial, and miPrintFrequency menu items.

	`miPrintFrequency: TMenuItem;`
`miPrintFrequency`: TMenuItem; See miPrintFrequencyClick.

	`miPrintInitial: TMenuItem;`
`miPrintInitial`: TMenuItem; See miPrintInitialClick.

	`miRearrangeObjects: TMenuItem;`
`miRearrangeObjects`: TMenuItem; See miRearrangeObjectsClick.

	`miRestoreDefaultView: TMenuItem;`
`miRestoreDefaultView`: TMenuItem; See acRestoreDefaultViewExecute and acRestoreDefaultView.