Class TfrmVerticalExaggeration

DescriptionHierarchyFieldsMethodsProperties

Unit

frmVerticalExaggerationUnit

Declaration

type TfrmVerticalExaggeration = class(TfrmCustomGoPhast)

Description

TfrmVerticalExaggeration is used to edit the vertical exaggeration

Hierarchy

Overview

Fields

Implicit btnCancel: TBitBtn;
Implicit btnHelp: TBitBtn;
Implicit btnOK: TBitBtn;
Implicit lblVerticalExaggeration: TLabel;
Implicit rdeVerticalExaggeration: TRbwDataEntry;
Implicit btnDefault: TButton;

Methods

Implicit procedure btnOKClick(Sender: TObject);
Implicit procedure FormCreate(Sender: TObject); override;
Implicit procedure FormShow(Sender: TObject);
Implicit procedure btnDefaultClick(Sender: TObject);
Implicit procedure rdeVerticalExaggerationExit(Sender: TObject);
Private procedure GetData;
Private procedure SetData;

Description

Fields

Implicit btnCancel: TBitBtn;

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

Implicit btnHelp: TBitBtn;

btnHelp: TBitBtn; Clicking btnHelp shows help on TfrmVerticalExaggeration.

Implicit btnOK: TBitBtn;

btnOK: TBitBtn; See btnOKClick.

Implicit lblVerticalExaggeration: TLabel;

lblVerticalExaggeration: TLabel; lblVerticalExaggeration displays "Vertical exaggeration:".

Implicit rdeVerticalExaggeration: TRbwDataEntry;

rdeVerticalExaggeration: TRbwDataEntry; rdeVerticalExaggeration is used to edit the vertical exaggeration.

Implicit btnDefault: TButton;
 

Methods

Implicit procedure btnOKClick(Sender: TObject);

btnOKClick calls SetData.

Implicit procedure FormCreate(Sender: TObject); override;

FormCreate calls GetData.

Implicit procedure FormShow(Sender: TObject);

FormShow puts the focus in rdeVerticalExaggeration.

Implicit procedure btnDefaultClick(Sender: TObject);
 
Implicit procedure rdeVerticalExaggerationExit(Sender: TObject);
 
Private procedure GetData;

GetData displays the vertical exaggeration in TfrmVerticalExaggeration.

Private procedure SetData;

SetData checks that a valid vertical exaggeration has been entered. if so, the vertical exaggeration is changed using a TUndoVerticalExaggeration.

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