diff --git a/src/editor/Editor.lpr b/src/editor/Editor.lpr
index 647bfae8129308cbab1781174315cc8acacfec16..8bd60c2e3f98df376d9203d5c42743332cebdd36 100644 (file)
--- a/src/editor/Editor.lpr
+++ b/src/editor/Editor.lpr
program Editor;
-{$MODE Delphi}
+{$INCLUDE ../shared/a_modes.inc}
uses
Forms, Interfaces,
f_packmap in 'f_packmap.pas' {PackMapForm},
f_maptest in 'f_maptest.pas' {MapTestForm},
f_choosetype in 'f_choosetype.pas' {ChooseTypeForm},
+{$IFNDEF NOSOUND}
fmod,
fmoderrors,
fmodpresets,
fmodtypes,
+{$ENDIF}
ImagingTypes,
Imaging,
ImagingUtility,
g_language in 'g_language.pas',
f_selectlang in 'f_selectlang.pas' {SelectLanguageForm};
-{$R *.res}
+{$IFDEF WINDOWS}
+ {$R *.res}
+{$ENDIF}
begin
- Application.Initialize;
+ Application.ExceptionDialog := aedOkMessageBox;
+ Application.Initialize();
+
Application.CreateForm(TMainForm, MainForm);
Application.CreateForm(TOptionsForm, OptionsForm);
Application.CreateForm(TAboutForm, AboutForm);
Application.CreateForm(TMapTestForm, MapTestForm);
Application.CreateForm(TChooseTypeForm, ChooseTypeForm);
Application.CreateForm(TSelectLanguageForm, SelectLanguageForm);
- if ParamStr(1) <> '' then OpenMap(ParamStr(1), '');
- Application.Run;
+ if ParamStr(1) <> '' then OpenMap(ParamStr(1), '');
+ Application.Run();
end.