diff --git a/src/editor/Editor.lpr b/src/editor/Editor.lpr
index 71f5906bf6784736fa889e0cb245e44726b9d4a2..21d8fe5df9a97c8f5cf532dac8b453175148170d 100644 (file)
--- a/src/editor/Editor.lpr
+++ b/src/editor/Editor.lpr
WADEDITOR in '../shared/WADEDITOR.pas',
WADSTRUCT in '../shared/WADSTRUCT.pas',
CONFIG in '../shared/CONFIG.pas',
+ xstreams in '../shared/xstreams.pas',
+ sfs in '../sfs/sfs.pas',
+ sfsPlainFS in '../sfs/sfsPlainFS.pas',
+ sfsZipFS in '../sfs/sfsZipFS.pas',
+
f_about in 'f_about.pas' {AboutForm},
f_options in 'f_options.pas' {OptionsForm},
f_main in 'f_main.pas' {MainForm},
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.