Class TfrmPointValues

Unit

frmPointValuesUnit

Declaration

type TfrmPointValues = 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
• TfrmPointValues

Overview

Fields

	pnlBottom: TPanel;
	rdgValues: TRbwDataGrid4;
	btnHelp: TBitBtn;
	btnOK: TBitBtn;
	btnCancel: TBitBtn;
	btnAdd: TButton;
	FScreenObject: TScreenObject;
	FSelectedVertex: integer;
	FEditedItem: TPointValuesItem;
	FEditedValues: TPointValues;

Methods

	procedure FormCreate(Sender: TObject); override;
	procedure btnOKClick(Sender: TObject);
	procedure FormDestroy(Sender: TObject); override;
	procedure btnAddClick(Sender: TObject);
	procedure rdgValuesKeyPress(Sender: TObject; var Key: Char);
	procedure SetData;
	procedure GetData(ScreenObject: TScreenObject; SelectedVertex: integer);

Description

Fields

	pnlBottom: TPanel;

	rdgValues: TRbwDataGrid4;

	btnHelp: TBitBtn;

	btnOK: TBitBtn;

	btnCancel: TBitBtn;

	btnAdd: TButton;

	FScreenObject: TScreenObject;

	FSelectedVertex: integer;

	FEditedItem: TPointValuesItem;

	FEditedValues: TPointValues;

Methods

	procedure FormCreate(Sender: TObject); override;

	procedure btnOKClick(Sender: TObject);

	procedure FormDestroy(Sender: TObject); override;

	procedure btnAddClick(Sender: TObject);

	procedure rdgValuesKeyPress(Sender: TObject; var Key: Char);

	procedure SetData;

	procedure GetData(ScreenObject: TScreenObject; SelectedVertex: integer);
Private declarations