| /GamSplash.pas |
|---|
| 9,6 → 9,7 |
| type |
| TSplashForm = class(TForm) |
| SplashImage: TImage; |
| procedure FormCreate(Sender: TObject); |
| end; |
| var |
| 18,5 → 19,14 |
| {$R *.DFM} |
| procedure TSplashForm.FormCreate(Sender: TObject); |
| var |
| FDirectory: string; |
| begin |
| if copy(extractfiledir(application.ExeName), length(extractfiledir(application.ExeName))-1, 2) = ':\' then FDirectory := '' |
| else FDirectory := extractfiledir(application.ExeName)+'\'; |
| SplashImage.Picture.loadfromfile(FDirectory+'Bilder/SplSplash.jpg'); |
| end; |
| end. |