index afa6a3eba7058b36db59176811c9283e1b747020..46f365c7f6cfe4c9bf0a50ebc6046f559d8c9f69 100644 (file)
unit f_selectmap;
unit f_selectmap;
-{$MODE Delphi}
+{$INCLUDE ../shared/a_modes.inc}
interface
uses
LCLIntf, LCLType, LMessages, SysUtils, Variants, Classes, Graphics,
interface
uses
LCLIntf, LCLType, LMessages, SysUtils, Variants, Classes, Graphics,
- Controls, Forms, Dialogs, StdCtrls, ExtCtrls;
+ Controls, Forms, Dialogs, StdCtrls, ExtCtrls, utils;
type
TSelectMapForm = class (TForm)
type
TSelectMapForm = class (TForm)
FreeMem(Data);
if Sign = MAP_SIGNATURE then
FreeMem(Data);
if Sign = MAP_SIGNATURE then
- lbMapList.Items.Add(ResList[a]);
+ lbMapList.Items.Add(win2utf(ResList[a]));
Sign := '';
end;
Sign := '';
end;