Class TfrmMoveTo

DescriptionHierarchyFieldsMethodsProperties

Unit

frmMoveToUnit

Declaration

type TfrmMoveTo = class(TfrmCustomGoPhast)

Description

TfrmMoveTo is used to move the viewpoint to a selected position, cell, or TScreenObject.

Hierarchy

Overview

Fields

Implicit btnCancel: TBitBtn;
Implicit btnHelp: TBitBtn;
Implicit btnOK: TBitBtn;
Implicit cbFront: TCheckBox;
Implicit cbSelectObject: TCheckBox;
Implicit cbSide: TCheckBox;
Implicit cbTop: TCheckBox;
Implicit lblCol: TLabel;
Implicit lblLay: TLabel;
Implicit lblRow: TLabel;
Implicit lblX: TLabel;
Implicit lblXPrime: TLabel;
Implicit lblY: TLabel;
Implicit lblYPrime: TLabel;
Implicit lblZ: TLabel;
Implicit lvScreenObjects: TListView;
Implicit pcMain: TPageControl;
Implicit pnlBottom: TPanel;
Implicit pnlObject: TPanel;
Implicit rdeX: TRbwDataEntry;
Implicit rdeXPrime: TRbwDataEntry;
Implicit rdeY: TRbwDataEntry;
Implicit rdeYPrime: TRbwDataEntry;
Implicit rdeZ: TRbwDataEntry;
Implicit seCol: TSpinEdit;
Implicit seLayer: TSpinEdit;
Implicit seRow: TSpinEdit;
Implicit tabCell: TTabSheet;
Implicit tabObject: TTabSheet;
Implicit tabPosition: TTabSheet;

Methods

Implicit procedure btnOKClick(Sender: TObject);
Implicit procedure cbClick(Sender: TObject);
Implicit procedure FormCreate(Sender: TObject); override;
Implicit procedure FormShow(Sender: TObject);
Implicit procedure pcMainPageChanging(Sender: TObject; NewPage: TTabSheet; var AllowChange: Boolean);
Private procedure GetData;
Private procedure SetData;

Description

Fields

Implicit btnCancel: TBitBtn;

btnCancel: TBitBtn; Clicking btnCancel closes TfrmMoveTo without changing anything.

Implicit btnHelp: TBitBtn;

btnHelp: TBitBtn; Clicking btnHelp displays help on TfrmMoveTo.

Implicit btnOK: TBitBtn;

btnOK: TBitBtn; See btnOKClick.

Implicit cbFront: TCheckBox;

cbFront: TCheckBox; cbFront indicates that the position on the front view of the model will be changed. See cbClick.

Implicit cbSelectObject: TCheckBox;

cbSelectObject: TCheckBox; cbSelectObject indicates that the object being moved to will also be selected.

Implicit cbSide: TCheckBox;

cbSide: TCheckBox; cbSide indicates that the position on the side view of the model will be changed. See cbClick.

Implicit cbTop: TCheckBox;

cbTop: TCheckBox; cbTop indicates that the position on the top view of the model will be changed. See cbClick.

Implicit lblCol: TLabel;

lblCol: TLabel; lblCol displays "Column".

Implicit lblLay: TLabel;

lblLay: TLabel; lblLay displays "Layer".

Implicit lblRow: TLabel;

lblRow: TLabel; lblRow displays "Row".

Implicit lblX: TLabel;

lblX: TLabel; lblX displays "X".

Implicit lblXPrime: TLabel;

lblXPrime: TLabel; lblXPrime displays "X'".

Implicit lblY: TLabel;

lblY: TLabel; lblY displays "Y".

Implicit lblYPrime: TLabel;

lblYPrime: TLabel; lblYPrime displays "Y'".

Implicit lblZ: TLabel;

lblZ: TLabel; lblZ displays "Z".

Implicit lvScreenObjects: TListView;

lvScreenObjects: TListView; lvScreenObjects displays a list of TScreenObjects.

Implicit pcMain: TPageControl;

pcMain: TPageControl; pcMain show the options for moving to a new location.

Implicit pnlBottom: TPanel;

pnlBottom: TPanel; pnlBottom holds the buttons at the bottom of the disk.

Implicit pnlObject: TPanel;

pnlObject: TPanel; pnlObject holds cbSelectObject.

Implicit rdeX: TRbwDataEntry;

rdeX: TRbwDataEntry; rdeX specifies the X-coordinate to move to.

Implicit rdeXPrime: TRbwDataEntry;

rdeXPrime: TRbwDataEntry; rdeXPrime specifies the X'-coordinate to move to.

Implicit rdeY: TRbwDataEntry;

rdeY: TRbwDataEntry; rdeY specifies the Y-coordinate to move to.

Implicit rdeYPrime: TRbwDataEntry;

rdeYPrime: TRbwDataEntry; rdeYPrime specifies the Y'-coordinate to move to.

Implicit rdeZ: TRbwDataEntry;

rdeZ: TRbwDataEntry; rdeZ specifies the Z-coordinate to move to.

Implicit seCol: TSpinEdit;

seCol: TSpinEdit; seCol specifies the column to move to.

Implicit seLayer: TSpinEdit;

seLayer: TSpinEdit; seLayer specifies the layer to move to.

Implicit seRow: TSpinEdit;

seRow: TSpinEdit; seRow specifies the row to move to.

Implicit tabCell: TTabSheet;

tabCell: TTabSheet; tabCell holds controls for moving to a particular cell.

Implicit tabObject: TTabSheet;

tabObject: TTabSheet; tabObject holds controls for moving to a particular TScreenObject.

Implicit tabPosition: TTabSheet;

tabPosition: TTabSheet; tabPosition holds controls for moving to a position.

Methods

Implicit procedure btnOKClick(Sender: TObject);

btnOKClick calls SetData.

Implicit procedure cbClick(Sender: TObject);

cbClick enables and disables controls depending on which of cbFront, cbSide, and cbTop are checked.

Implicit procedure FormCreate(Sender: TObject); override;

FormCreate initializes TfrmMoveTo and calls GetData.

Implicit procedure FormShow(Sender: TObject);

FormShow enables moving to a particular cell if a grid has been defined.

Implicit procedure pcMainPageChanging(Sender: TObject; NewPage: TTabSheet; var AllowChange: Boolean);

pcMainPageChanging disables cbTop, cbFront, and cbSide when moving to a TScreenObject.

Private procedure GetData;

GetData stores information about the current position.

Private procedure SetData;

SetData moves the selected view or views to the selected cell, object, or position.

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