Subversion Repositories spacemission

Rev

Blame | Last modification | View Log | RSS feed

  1. unit LevSplash;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   jpeg, ExtCtrls, StdCtrls;
  8.  
  9. type
  10.   TSplashForm = class(TForm)
  11.     SplashImage: TImage;
  12.     procedure FormCreate(Sender: TObject);
  13.   end;
  14.  
  15. var
  16.   SplashForm: TSplashForm;                      
  17.  
  18. implementation
  19.  
  20. uses
  21.   LevMain;
  22.  
  23. {$R *.DFM}
  24.  
  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.
  35.  
  36.