X-Git-Url: https://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fshared%2FWADEDITOR.pas;h=26110093c33f149d023741811db89865be5183c5;hb=212386359ea0af4e0a861f9bf92c45a1516ac87c;hp=b533664d29bb1c60e3ccf11da9131f8a97a123ea;hpb=b72e164f0fb64e3301ae8ca217449daf6a9d301d;p=d2df-editor.git

diff --git a/src/shared/WADEDITOR.pas b/src/shared/WADEDITOR.pas
index b533664..2611009 100644
--- a/src/shared/WADEDITOR.pas
+++ b/src/shared/WADEDITOR.pas
@@ -1,12 +1,10 @@
 unit WADEDITOR;
 
-{$MODE Delphi}
-
 {
 -----------------------------------
-WADEDITOR.PAS ВЕРСИЯ ОТ 26.08.08
+WADEDITOR.PAS ÂÅÐÑÈß ÎÒ 26.08.08
 
-Поддержка вадов версии 1
+Ïîääåðæêà âàäîâ âåðñèè 1
 -----------------------------------
 }
 
@@ -77,7 +75,7 @@ const
 implementation
 
 uses
-  SysUtils, BinEditor, ZLib;
+  SysUtils, BinEditor, ZLib, utils;
 
 const
   DFWAD_OPENED_NONE   = 0;
@@ -293,7 +291,7 @@ var
 begin
  Result := False;
 
- AssignFile(ResourceFile, FileName);
+ AssignFile(ResourceFile, findFileCIStr(FileName));
 
  try
   Reset(ResourceFile, 1);
@@ -423,7 +421,7 @@ begin
  if FResData <> nil then FreeMem(FResData);
 
  try
-  AssignFile(WADFile, FFileName);
+  AssignFile(WADFile, findFileCIStr(FFileName));
   Reset(WADFile, 1);
 
   b := 6+SizeOf(TWADHeaderRec_1)+SizeOf(TResourceTableRec_1)*Length(FResTable);
@@ -580,7 +578,7 @@ begin
  if FWADOpened = DFWAD_OPENED_FILE then
  begin
   try
-   AssignFile(WADFile, FFileName);
+   AssignFile(WADFile, findFileCIStr(FFileName));
    Reset(WADFile, 1);
 
    Seek(WADFile, FResTable[i].Address+6+
@@ -697,7 +695,7 @@ begin
 
  FFileName := FileName;
 
- AssignFile(WADFile, FFileName);
+ AssignFile(WADFile, findFileCIStr(FFileName));
 
  try
   Reset(WADFile, 1);