Subversion Repositories spacemission

Rev

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