Subversion Repositories spacemission

Rev

Rev 3 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3 Rev 4
Line 2... Line 2...
2
 
2
 
3
interface
3
interface
4
 
4
 
5
uses
5
uses
6
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
6
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
7
  StdCtrls, Gauges, ShellAPI, ExtCtrls, ComCtrls;
7
  StdCtrls, Gauges, ShellAPI, ExtCtrls, ComCtrls, System.UITypes;
8
 
8
 
9
type
9
type
10
  TMainForm = class(TForm)
10
  TMainForm = class(TForm)
11
    Run: TButton;
11
    Run: TButton;
12
    Button1: TButton;
12
    Button1: TButton;
Line 36... Line 36...
36
 
36
 
37
implementation
37
implementation
38
 
38
 
39
{$R *.DFM}
39
{$R *.DFM}
40
 
40
 
41
{$R WindowsXP.res}
-
 
42
 
-
 
43
procedure TMainForm.RunClick(Sender: TObject);
41
procedure TMainForm.RunClick(Sender: TObject);
44
var
42
var
45
  i: integer;
43
  i: integer;
46
begin
44
begin
47
  if comb.ItemIndex = -1 then
45
  if comb.ItemIndex = -1 then