Class TMainForm (unit TestForm)

Inherits from

TForm

Constructors



Functions

procedure BrowseButtonClick(Sender: TObject);


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

The user can change a name, a value, or add a new row } { To add a blank row, just press Enter on the last line

procedure FormCreate(Sender: TObject);

Initialize the environment grid

procedure FormResize(Sender: TObject);


procedure LaunchButtonClick(Sender: TObject);


procedure SegmentDblClick(Sender: TObject);


procedure SortedCheckBoxClick(Sender: TObject);


procedure FixEnv;


function GetEnvCell(Row, Index: Integer): string;


procedure SetEnvCell(Row, Index: Integer; const Value: string);


Properties

property EnvName : string


property EnvValue : String


Events

Variables

BrowseButton : TBitBtn;


EnvGrid : TStringGrid;


ExeName : TEdit;


Label1 : TLabel;


LaunchButton : TButton;


OpenDialog : TOpenDialog;


Segment : TEdit;


SortedCheckBox : TCheckBox;



Constructors


Functions


procedure BrowseButtonClick(Sender: TObject);


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

The user can change a name, a value, or add a new row } { To add a blank row, just press Enter on the last line


procedure FormCreate(Sender: TObject);

Initialize the environment grid


procedure FormResize(Sender: TObject);


procedure LaunchButtonClick(Sender: TObject);


procedure SegmentDblClick(Sender: TObject);


procedure SortedCheckBoxClick(Sender: TObject);


procedure FixEnv;


function GetEnvCell(Row, Index: Integer): string;


procedure SetEnvCell(Row, Index: Integer; const Value: string);


Properties


property EnvName : string


property EnvValue : String


Events


Variables


BrowseButton : TBitBtn;


EnvGrid : TStringGrid;


ExeName : TEdit;


Label1 : TLabel;


LaunchButton : TButton;


OpenDialog : TOpenDialog;


Segment : TEdit;


SortedCheckBox : TCheckBox;