X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Feditor%2FEditor.lpr;h=171c8564c25c7313e70c80e65dc5cd8d0ee7aa10;hb=c8c226903e99aea13032c2a321809dd360dddac1;hp=421a095601225ce80cbc610fc7e1f90fd9b0f996;hpb=7bc9ae2fc0204a6412aa1cb5f05f0ffa8d1870ac;p=d2df-editor.git diff --git a/src/editor/Editor.lpr b/src/editor/Editor.lpr index 421a095..171c856 100644 --- a/src/editor/Editor.lpr +++ b/src/editor/Editor.lpr @@ -52,6 +52,7 @@ uses ImagingTypes, Imaging, ImagingUtility, + g_options in 'g_options.pas', g_language in 'g_language.pas', f_selectlang in 'f_selectlang.pas' {SelectLanguageForm}; @@ -88,6 +89,30 @@ uses Inc(i); LogFileName := ParamStr(i); end; + end + else if p = '--config' then + begin + if i + 1 <= ParamCount then + begin + Inc(i); + CfgFileName := ParamStr(i); + end; + end + else if p = '--game-wad' then + begin + if i + 1 <= ParamCount then + begin + Inc(i); + GameWad := ParamStr(i); + end; + end + else if p = '--editor-wad' then + begin + if i + 1 <= ParamCount then + begin + Inc(i); + EditorWad := ParamStr(i); + end; end; Inc(i); end; @@ -95,15 +120,11 @@ uses end; procedure CheckParamFiles; - var i: Integer; path: AnsiString; + var i: Integer; begin i := ParamFileIndex; if i <= ParamCount then - begin - path := ParamStr(i); - if path <> '' then - OpenMap(path, ''); - end; + StartMap := ParamStr(i); end; procedure InitLogs; @@ -127,6 +148,11 @@ begin Application.AddOnExceptionHandler(THandlerObject.ExceptionHandler, True); Application.Initialize(); + EditorDir := ExtractFilePath(Application.ExeName); + CfgFileName := EditorDir + DirectorySeparator + 'Editor.cfg'; + GameWad := EditorDir + DirectorySeparator + 'data' + DirectorySeparator + 'game.wad'; + EditorWad := EditorDir + DirectorySeparator + 'data' + DirectorySeparator + 'editor.wad'; + CheckParamOptions; InitLogs;