Class TfrmSutraAngle

Unit

frmSutraAngleUnit

Declaration

type TfrmSutraAngle = class(TfrmCustomGoPhast)

Description

TfrmCustomGoPhast is the ancestor of all TForms in GoPhast.

TfrmCustomGoPhast handles setting the color and font. TfrmCustomGoPhast also tries to keep from appearing at a location where it can't be seen. )

Hierarchy

• TForm
• TfrmCustomGoPhast
• TfrmSutraAngle

Overview

Fields

	seAngle: TJvSpinEdit;
	lblAngle: TLabel;
	pnlBottom: TPanel;
	btnHelp: TBitBtn;
	btnOK: TBitBtn;
	btnCancel: TBitBtn;
	rgSpecify: TRadioGroup;
	rdgEndPoints: TRbwDataGrid4;
	FChanged: Boolean;

Methods

	procedure seAngleButtonClick(Sender: TObject);
	procedure FormCreate(Sender: TObject); override;
	procedure btnOKClick(Sender: TObject);
	procedure seAngleChange(Sender: TObject);
	procedure rgSpecifyClick(Sender: TObject);
	procedure rdgEndPointsEndUpdate(Sender: TObject);
	procedure GetData;
	procedure SetData;

Description

Fields

	seAngle: TJvSpinEdit;

	lblAngle: TLabel;

	pnlBottom: TPanel;

	btnHelp: TBitBtn;

	btnOK: TBitBtn;

	btnCancel: TBitBtn;

	rgSpecify: TRadioGroup;

	rdgEndPoints: TRbwDataGrid4;

	FChanged: Boolean;

Methods

	procedure seAngleButtonClick(Sender: TObject);

	procedure FormCreate(Sender: TObject); override;

	procedure btnOKClick(Sender: TObject);

	procedure seAngleChange(Sender: TObject);

	procedure rgSpecifyClick(Sender: TObject);

	procedure rdgEndPointsEndUpdate(Sender: TObject);

	procedure GetData;

	procedure SetData;