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 |