index fde781fdd7c483fa68bc99e1ca71fd9c259f52fb..f5feee313ce5291af9041bcdb5c43ba9646c6ebe 100644 (file)
--- a/src/editor/f_savemap.pas
+++ b/src/editor/f_savemap.pas
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)
if Sign = MAP_SIGNATURE then
begin
- nm := ResList[a];
+ nm := win2utf(ResList[a]);
lbMapList.Items.Add(nm);
if placeName then