Rev 3 | Rev 97 | Go to most recent revision | Only display areas with differences | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 3 | Rev 24 | ||
---|---|---|---|
1 | unit GamSplash; |
1 | unit GamSplash; |
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 | jpeg, ExtCtrls, StdCtrls; |
7 | jpeg, ExtCtrls, StdCtrls; |
8 | 8 | ||
9 | type |
9 | type |
10 | TSplashForm = class(TForm) |
10 | TSplashForm = class(TForm) |
11 | SplashImage: TImage; |
11 | SplashImage: TImage; |
12 | procedure FormCreate(Sender: TObject); |
- | |
13 | end; |
12 | end; |
14 | 13 | ||
15 | var |
14 | var |
16 | SplashForm: TSplashForm; |
15 | SplashForm: TSplashForm; |
17 | 16 | ||
18 | implementation |
17 | implementation |
19 | 18 | ||
20 | {$R *.DFM} |
19 | {$R *.DFM} |
21 | 20 | ||
22 | procedure TSplashForm.FormCreate(Sender: TObject); |
- | |
23 | var |
- | |
24 | FDirectory: string; |
- | |
25 | begin |
- | |
26 | if copy(extractfiledir(application.ExeName), length(extractfiledir(application.ExeName))-1, 2) = ':\' then FDirectory := '' |
- | |
27 | else FDirectory := extractfiledir(application.ExeName)+'\'; |
- | |
28 | SplashImage.Picture.loadfromfile(FDirectory+'Bilder/SplSplash.jpg'); |
- | |
29 | end; |
- | |
30 | - | ||
31 | end. |
21 | end. |
32 | 22 | ||
33 | 23 |