Class TfrmGlobalVariables

Unit

frmGlobalVariablesUnit

Declaration

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

Overview

Fields

	pnlBottom: TPanel;
	btnHelp: TBitBtn;
	btnOK: TBitBtn;
	btnCancel: TBitBtn;
	rdgGlobalVariables: TRbwDataGrid4;
	seGlobalVariableCount: TJvSpinEdit;
	Label1: TLabel;
	btnDelete: TButton;
	btnImportGlobalVariables: TButton;
	btnSaveGlobalVariables: TButton;
	dlgOpenGlobVar: TOpenDialog;
	dlgSaveGlobalVariables: TSaveDialog;
	FInitializingRow: Boolean;
	FNewGlobals: TGlobalVariables;
	VariableNames: TStringList;
	OkVariables: array of boolean;

Methods

	procedure seGlobalVariableCountChange(Sender: TObject);
	procedure rdgGlobalVariablesSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);
	procedure FormCreate(Sender: TObject); override;
	procedure btnOKClick(Sender: TObject);
	procedure rdgGlobalVariablesSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: string);
	procedure btnDeleteClick(Sender: TObject);
	procedure FormDestroy(Sender: TObject); override;
	procedure rdgGlobalVariablesEndUpdate(Sender: TObject);
	procedure rdgGlobalVariablesBeforeDrawCell(Sender: TObject; ACol, ARow: Integer);
	procedure btnImportGlobalVariablesClick(Sender: TObject);
	procedure btnSaveGlobalVariablesClick(Sender: TObject);
	function GenerateNewName(Root: string = 'NewGlobalVariable'; const CurrentRow: integer = -1): string;
	procedure GetData;
	procedure SetData;
	procedure InitializeNewRow(ARow: integer);
	procedure UpdateSpecialFormat(RowIndex: integer);
	function GenerateNewRoot(const Root: string): string;

Description

Fields

	pnlBottom: TPanel;

	btnHelp: TBitBtn;

	btnOK: TBitBtn;

	btnCancel: TBitBtn;

	rdgGlobalVariables: TRbwDataGrid4;

	seGlobalVariableCount: TJvSpinEdit;

	Label1: TLabel;

	btnDelete: TButton;

	btnImportGlobalVariables: TButton;

	btnSaveGlobalVariables: TButton;

	dlgOpenGlobVar: TOpenDialog;

	dlgSaveGlobalVariables: TSaveDialog;

	FInitializingRow: Boolean;

	FNewGlobals: TGlobalVariables;

	VariableNames: TStringList;

	OkVariables: array of boolean;

Methods

	procedure seGlobalVariableCountChange(Sender: TObject);

	procedure rdgGlobalVariablesSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);

	procedure FormCreate(Sender: TObject); override;

	procedure btnOKClick(Sender: TObject);

	procedure rdgGlobalVariablesSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: string);

	procedure btnDeleteClick(Sender: TObject);

	procedure FormDestroy(Sender: TObject); override;

	procedure rdgGlobalVariablesEndUpdate(Sender: TObject);

	procedure rdgGlobalVariablesBeforeDrawCell(Sender: TObject; ACol, ARow: Integer);

	procedure btnImportGlobalVariablesClick(Sender: TObject);

	procedure btnSaveGlobalVariablesClick(Sender: TObject);

	function GenerateNewName(Root: string = 'NewGlobalVariable'; const CurrentRow: integer = -1): string;

	procedure GetData;

	procedure SetData;

	procedure InitializeNewRow(ARow: integer);

	procedure UpdateSpecialFormat(RowIndex: integer);

	function GenerateNewRoot(const Root: string): string;