Subversion Repositories spacemission

Rev

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

Rev 24 Rev 25
Line 32... Line 32...
32 
  end;
 32 
  end;
33 
  SplashForm := TSplashForm.Create(Application);
 33 
  SplashForm := TSplashForm.Create(Application);
34 
  SplashForm.Show;
 34 
  SplashForm.Show;
35 
  SplashForm.Update;
 35 
  SplashForm.Update;
36 
  Application.Initialize;
 36 
  Application.Initialize;
37 
  Application.showmainform := False;
 37 
  Application.ShowMainform := False;
- 
 
 38 
  Application.MainFormOnTaskBar := true;
38 
  Application.Title := 'SpaceMission Leveleditor';
 39 
  Application.Title := 'SpaceMission Leveleditor';
39 
  if not fileexists(FDirectory+'DirectX\Graphic.dxg') then
 40 
  if not fileexists(FDirectory+'DirectX\Graphic.dxg') then
40 
  begin
 41 
  begin
41 
    MessageDLG('Graphic.dxg fehlt. Bitte installieren Sie SpaceMission erneut.', mtError, [mbOK], 0);
 42 
    MessageDLG('Graphic.dxg fehlt. Bitte installieren Sie SpaceMission erneut.', mtError, [mbOK], 0);
42 
    exit;
 43 
    exit;