summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 1478a41)
raw | patch | inline | side by side (parent: 1478a41)
author | DeaDDooMER <deaddoomer@deadsoftware.ru> | |
Tue, 23 May 2023 19:14:04 +0000 (22:14 +0300) | ||
committer | DeaDDooMER <deaddoomer@deadsoftware.ru> | |
Tue, 23 May 2023 19:14:04 +0000 (22:14 +0300) |
src/editor/f_maptest.pas | patch | blob | history |
index de82a635dafb035b7f79f62600983c1367d77a67..6f819eda6e51a273031ff8a2c03f8636e3e7db75 100644 (file)
--- a/src/editor/f_maptest.pas
+++ b/src/editor/f_maptest.pas
config.Free();
- FindD2dDialog.InitialDir := TestD2dExe;
+ {$IF DEFINED(DARWIN)}
+ if LowerCase(ExtractFileExt(TestD2dExe)) = '.app' then
+ FindD2dDialog.InitialDir := ExtractFileDir(TestD2dExe)
+ else
+ FindD2dDialog.InitialDir := TestD2dExe;
+ FindD2dDialog.DefaultExt := '.app';
+ FindD2dDialog.Filter := 'Doom 2D Forever.app|*.app|Doom 2D Forever (Unix Executable)|Doom2DF;*';
+ {$ELSEIF DEFINED(WINDOWS)}
+ FindD2dDialog.InitialDir := TestD2dExe;
+ FindD2dDialog.DefaultExt := '.exe';
+ FindD2dDialog.Filter := 'Doom2DF.exe|Doom2DF.exe;*.exe';
+ {$ELSE}
+ FindD2dDialog.InitialDir := TestD2dExe;
+ FindD2dDialog.DefaultExt := '';
+ FindD2dDialog.Filter := 'Doom2DF|Doom2DF;*';
+ {$ENDIF}
end;
procedure TMapTestForm.bChooseD2dClick(Sender: TObject);