X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Feditor%2Ff_savemap.pas;h=f5feee313ce5291af9041bcdb5c43ba9646c6ebe;hb=6fb9c23afad22a71679525dc44ea32675d73609f;hp=fde781fdd7c483fa68bc99e1ca71fd9c259f52fb;hpb=b72e164f0fb64e3301ae8ca217449daf6a9d301d;p=d2df-editor.git

diff --git a/src/editor/f_savemap.pas b/src/editor/f_savemap.pas
index fde781f..f5feee3 100644
--- 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)
@@ -113,7 +113,7 @@ begin
    
       if Sign = MAP_SIGNATURE then
       begin
-        nm := ResList[a];
+        nm := win2utf(ResList[a]);
         lbMapList.Items.Add(nm);
 
         if placeName then