Rev 3 | Rev 97 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 3 | Rev 24 | ||
---|---|---|---|
Line 7... | Line 7... | ||
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 |