| 4,12 → 4,13 |
|---|
| |
| uses |
| Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, |
| jpeg, ExtCtrls, StdCtrls; |
| jpeg, ExtCtrls, StdCtrls, Vcl.Imaging.pngimage; |
| |
| type |
| TSplashForm = class(TForm) |
| SplashImage: TImage; |
| procedure FormCreate(Sender: TObject); |
| v: TLabel; |
| Label1: TLabel; |
| end; |
| |
| var |
| 22,14 → 23,5 |
|---|
| |
| {$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\LevSplash.jpg'); |
| end; |
| |
| end. |
| |