Subversion Repositories spacemission

Rev

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

Rev 3 Rev 4
Line 1... Line 1...
1
program LevEdit;
1
program LevEdit;
2
 
2
 
3
{$Description 'SpaceMission Leveleditor 1.1'}
3
{$Description 'SpaceMission Leveleditor 1.1'}
4
 
4
 
5
{%ToDo 'LevEdit.todo'}
-
 
-
 
5
 
6
 
6
 
7
uses
7
uses
8
  Windows,
8
  Windows,
9
  Forms,
9
  Forms,
10
  Dialogs,
10
  Dialogs,
11
  SysUtils,
11
  SysUtils,
12
  MMSystem,
12
  MMSystem,
13
  LevMain in 'LevMain.pas' {MainForm},
13
  LevMain in 'LevMain.pas' {MainForm},
14
  ComText in 'ComText.pas' {TextForm},
-
 
15
  LevSplash in 'LevSplash.pas' {SplashForm},
14
  LevSplash in 'LevSplash.pas' {SplashForm},
16
  LevSpeicherung in 'LevSpeicherung.pas' {SpeicherungForm},
15
  LevSpeicherung in 'LevSpeicherung.pas' {SpeicherungForm},
17
  ComInfo in 'ComInfo.pas' {InfoForm},
16
  ComInfo in 'ComInfo.pas' {InfoForm},
18
  LevSource in 'LevSource.pas' {SourceForm},
17
  LevSource in 'LevSource.pas' {SourceForm},
19
  LevOptions in 'LevOptions.pas' {LevelForm},
18
  LevOptions in 'LevOptions.pas' {LevelForm},
20
  Global in 'Global.pas';
19
  Global in 'Global.pas',
-
 
20
  System.UITypes;
21
 
21
 
22
{$R *.RES}
22
{$R *.RES}
23
 
23
 
24
var
24
var
25
  Fehler: boolean;
25
  Fehler: boolean;
Line 53... Line 53...
53
      'nicht mehr vorhanden!'+#13#10+'Bitte installieren Sie SpaceMission erneut...',
53
      'nicht mehr vorhanden!'+#13#10+'Bitte installieren Sie SpaceMission erneut...',
54
      mtWarning, [mbOK], 0);
54
      mtWarning, [mbOK], 0);
55
    exit;
55
    exit;
56
  end;
56
  end;
57
  Application.CreateForm(TMainForm, MainForm);
57
  Application.CreateForm(TMainForm, MainForm);
58
  Application.CreateForm(TTextForm, TextForm);
-
 
59
  Application.CreateForm(TSpeicherungForm, SpeicherungForm);
58
  Application.CreateForm(TSpeicherungForm, SpeicherungForm);
60
  Application.CreateForm(TInfoForm, InfoForm);
59
  Application.CreateForm(TInfoForm, InfoForm);
61
  Application.CreateForm(TSourceForm, SourceForm);
60
  Application.CreateForm(TSourceForm, SourceForm);
62
  Application.CreateForm(TLevelForm, LevelForm);
61
  Application.CreateForm(TLevelForm, LevelForm);
63
  Application.Run;
62
  Application.Run;