Class TfrmGridAngle

DescriptionHierarchyFieldsMethodsProperties

Unit

frmGridAngleUnit

Declaration

type TfrmGridAngle = class(TfrmCustomGoPhast)

Description

TfrmGridAngle is used to change the GridAngle.

See TfrmGoPhast.acGridAngleExecute.

Hierarchy

Overview

Fields

Implicit btnCancel: TBitBtn;
Implicit btnHelp: TBitBtn;
Implicit btnOK: TBitBtn;
Implicit lblGridAngle: TLabel;
Implicit rdeGridAngle: TRbwDataEntry;

Methods

Implicit procedure btnOKClick(Sender: TObject);
Implicit procedure FormCreate(Sender: TObject); override;
Implicit procedure rdeGridAngleChange(Sender: TObject);
Private procedure GetData;
Private procedure SetData;

Description

Fields

Implicit btnCancel: TBitBtn;

btnCancel: TBitBtn; The user clicks btnCancel to close TfrmGridAngle without changing the grid angle.

Implicit btnHelp: TBitBtn;

btnHelp: TBitBtn; The user clicks btnHelp to get help on TfrmGridAngle.

Implicit btnOK: TBitBtn;

btnOK: TBitBtn; The user clicks btnOK to change the grid angle.

Implicit lblGridAngle: TLabel;

lblGridAngle: TLabel; lblGridAngle displays "Grid angle:"

Implicit rdeGridAngle: TRbwDataEntry;

rdeGridAngle: TRbwDataEntry; The user specifies the grid angle in rdeGridAngle.

Methods

Implicit procedure btnOKClick(Sender: TObject);

btnOKClick calls SetData.

Implicit procedure FormCreate(Sender: TObject); override;

FormCreate calls GetData.

Implicit procedure rdeGridAngleChange(Sender: TObject);

rdeGridAngleChange updates the display of the grid angle in frmGoPhast.

Private procedure GetData;

GetData retrieves the grid angle and converts it to degrees. See TCustomModelGrid.GridAngle.

Private procedure SetData;

SetData changes the grid angle to the value specified by the user.

Generated by PasDoc 0.12.1 on 2013-05-13 15:41:37