summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: db32772)
raw | patch | inline | side by side (parent: db32772)
author | DeaDDooMER <deaddoomer@deadsoftware.ru> | |
Wed, 29 Mar 2023 16:30:57 +0000 (19:30 +0300) | ||
committer | DeaDDooMER <deaddoomer@deadsoftware.ru> | |
Wed, 29 Mar 2023 16:30:57 +0000 (19:30 +0300) |
src/editor/f_addresource.pas | patch | blob | history | |
src/editor/f_main.pas | patch | blob | history | |
src/editor/f_packmap.pas | patch | blob | history | |
src/editor/g_options.pas | patch | blob | history |
index 7703ab231a1324ae5b4db1c0600a6079b6a59c58..24c9f8327171b4d2e57bae1a2daf7a8aa1041fe3 100644 (file)
implementation
uses
- f_main, WADSTRUCT, g_language, utils, sfs;
+ f_main, WADSTRUCT, g_language, utils, sfs, g_options;
{$R *.lfm}
FFullResourceName := '';
FResourceSelected := False;
- ChDir(EditorDir);
if FindFirst(EditorDir + 'wads/*.*', faAnyFile, SR) = 0 then
repeat
if (SR.name <> '.') and (SR.name <> '..') then
diff --git a/src/editor/f_main.pas b/src/editor/f_main.pas
index 22d9877b8f9c94bb8bf6a3d98f6f783b0dc5c731..04d69f82c9e3f4610dde61af1675511577fdc741 100644 (file)
--- a/src/editor/f_main.pas
+++ b/src/editor/f_main.pas
var
MainForm: TMainForm;
- EditorDir: String;
OpenedMap: String;
OpenedWAD: String;
begin
Randomize();
- EditorDir := ExtractFilePath(Application.ExeName);
-
e_WriteLog('Doom 2D: Forever Editor version ' + EDITOR_VERSION, MSG_NOTIFY);
e_WriteLog('Build date: ' + EDITOR_BUILDDATE + ' ' + EDITOR_BUILDTIME, MSG_NOTIFY);
e_WriteLog('Build hash: ' + g_GetBuildHash(), MSG_NOTIFY);
index e2551bae7ad58b17eec4aa4026c0dd5cd17e2b5f..fbfe4735001a57e21e74bfefbefb5bf5ccb47d80 100644 (file)
--- a/src/editor/f_packmap.pas
+++ b/src/editor/f_packmap.pas
uses
BinEditor, WADEDITOR, g_map, MAPREADER, MAPWRITER, MAPSTRUCT,
- f_main, math, g_language, g_resources, e_log;
+ f_main, math, g_language, g_resources, g_options, e_log;
{$R *.lfm}
index f2e5ecc1fdcdc64d491e6dc11c8195aae9a4f3f1..acb5de936c410a4802c44ff047869eac0f15255d 100644 (file)
--- a/src/editor/g_options.pas
+++ b/src/editor/g_options.pas
interface
var
+ EditorDir: AnsiString;
CfgFileName: AnsiString;
GameWad: AnsiString;
EditorWad: AnsiString;