Subversion Repositories spacemission

Rev

Rev 1 | Rev 97 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1 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 
 
Line 20... Line 19...
20 
uses
 19 
uses
21 
  LevMain;
 20 
  LevMain;
22 
 
 21 
 
23 
{$R *.DFM}
 22 
{$R *.DFM}
24 
 
 23 
 
25 
procedure TSplashForm.FormCreate(Sender: TObject);
 - 
 
26 
var
 - 
 
27 
  FDirectory: string;
 - 
 
28 
begin
 - 
 
29 
  if copy(extractfiledir(application.ExeName), length(extractfiledir(application.ExeName))-1, 2) = ':\' then FDirectory := ''
 - 
 
30 
    else FDirectory := extractfiledir(application.ExeName)+'\';
 - 
 
31 
  SplashImage.Picture.loadfromfile(FDirectory+'Bilder\LevSplash.jpg');
 - 
 
32 
end;
 - 
 
33 
 
 - 
 
34 
end.
 24 
end.
35 
 
 25