index f89ee7366f2a7105e6502bc93f37ecb91463a608..e57fb791d4887b01b223c56fbdf76f60f597a429 100644 (file)
--- a/src/editor/f_savemap.pas
+++ b/src/editor/f_savemap.pas
uses
LCLIntf, LCLType, LMessages, SysUtils, Variants, Classes,
uses
LCLIntf, LCLType, LMessages, SysUtils, Variants, Classes,
- Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;
+ Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, utils;
type
TSaveMapForm = class (TForm)
type
TSaveMapForm = class (TForm)
for a := 0 to lbMapList.Count-1 do
if eMapName.Text = lbMapList.Items[a] then
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])),
[eMapName.Text])),
- PChar(_lc[I_MSG_SAVE_MAP]),
+ PChar(MsgMsgSaveMap),
MB_ICONQUESTION or MB_YESNO or MB_DEFBUTTON1) = mrYes;
if not ok then
Exit;
MB_ICONQUESTION or MB_YESNO or MB_DEFBUTTON1) = mrYes;
if not ok then
Exit;
WAD := TWADEditor_1.Create();
WAD.ReadFile(FileName);
WAD := TWADEditor_1.Create();
WAD.ReadFile(FileName);
- ResList := WAD.GetResourcesList('');
+ ResList := WAD.GetResourcesList('');
if ResList <> nil then
for a := 0 to High(ResList) do
if ResList <> nil then
for a := 0 to High(ResList) do
CopyMemory(@Sign[0], Data, 3);
FreeMem(Data);
CopyMemory(@Sign[0], Data, 3);
FreeMem(Data);
-
+
if Sign = MAP_SIGNATURE then
begin
if Sign = MAP_SIGNATURE then
begin
- nm := ResList[a];
+ nm := win2utf(ResList[a]);
lbMapList.Items.Add(nm);
if placeName then
lbMapList.Items.Add(nm);
if placeName then