Revert to old wad read/write method

[d2df-editor.git] / src / editor / f_savemap.pas

diff --git a/src/editor/f_savemap.pas b/src/editor/f_savemap.pas
index fde781fdd7c483fa68bc99e1ca71fd9c259f52fb..e57fb791d4887b01b223c56fbdf76f60f597a429 100644 (file)
--- a/src/editor/f_savemap.pas
+++ b/src/editor/f_savemap.pas
@@ -1,12 +1,12 @@
 unit f_savemap;
 
-{$MODE Delphi}
+{$INCLUDE ../shared/a_modes.inc}
 
 interface
 
 uses
   LCLIntf, LCLType, LMessages, SysUtils, Variants, Classes,
-  Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;
+  Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, utils;
 
 type
   TSaveMapForm = class (TForm)
@@ -69,9 +69,9 @@ begin
   for a := 0 to lbMapList.Count-1 do
     if eMapName.Text = lbMapList.Items[a] then
     begin
-      ok := MessageBox(0, PChar(Format(_lc[I_MSG_MAP_EXISTS],
+      ok := Application.MessageBox(PChar(Format(MsgMsgMapExists,
                                        [eMapName.Text])),
-                       PChar(_lc[I_MSG_SAVE_MAP]),
+                       PChar(MsgMsgSaveMap),
                        MB_ICONQUESTION or MB_YESNO or MB_DEFBUTTON1) = mrYes;
       if not ok then
         Exit;
@@ -100,7 +100,7 @@ begin
 
   WAD := TWADEditor_1.Create();
   WAD.ReadFile(FileName);
-  ResList := WAD.GetResourcesList('');  
+  ResList := WAD.GetResourcesList('');
 
   if ResList <> nil then
     for a := 0 to High(ResList) do
@@ -110,10 +110,10 @@ begin
 
       CopyMemory(@Sign[0], Data, 3);
       FreeMem(Data);
-   
+
       if Sign = MAP_SIGNATURE then
       begin
-        nm := ResList[a];
+        nm := win2utf(ResList[a]);
         lbMapList.Items.Add(nm);
 
         if placeName then