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