X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Feditor%2Ff_addresource.pas;h=24c9f8327171b4d2e57bae1a2daf7a8aa1041fe3;hb=c0428d85795e63600466f089c35e70bc66d9b5c2;hp=69b214e75e6a48b451335859dd9465950be05890;hpb=7bc7d5022ae82e37fee8b3003432f9294176a470;p=d2df-editor.git

diff --git a/src/editor/f_addresource.pas b/src/editor/f_addresource.pas
index 69b214e..24c9f83 100644
--- a/src/editor/f_addresource.pas
+++ b/src/editor/f_addresource.pas
@@ -45,12 +45,12 @@ var
 implementation
 
 uses
-  f_main, WADSTRUCT, g_language, utils, sfs;
+  f_main, WADSTRUCT, g_language, utils, sfs, g_options;
 
 {$R *.lfm}
 
 const
-  STANDART_WAD = 'Standart.wad';
+  STANDART_WAD = 'standart.wad';
 
 procedure TAddResourceForm.FormActivate(Sender: TObject);
   var
@@ -64,7 +64,6 @@ begin
   FFullResourceName := '';
   FResourceSelected := False;
 
-  ChDir(EditorDir);
   if FindFirst(EditorDir + 'wads/*.*', faAnyFile, SR) = 0 then
   repeat
     if (SR.name <> '.') and (SR.name <> '..') then
@@ -72,7 +71,7 @@ begin
   until FindNext(SR) <> 0;
   FindClose(SR);
 
-// "Standart.wad" в начало списка:
+// "standart.wad" в начало списка:
   if cbWADList.Items.IndexOf(STANDART_WAD) > 0 then
   begin
     cbWADList.Items.Delete(cbWADList.Items.IndexOf(STANDART_WAD));