| Class TMainForm (unit TestForm) |
TForm
| Constructors |
| Functions |
procedure BrowseButtonClick(Sender: TObject);
procedure EnvGridKeyPress(Sender: TObject; var Key: Char);
procedure FormCreate(Sender: TObject);
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;