From: binarymaster <x86corez@gmail.com>
Date: Thu, 28 Sep 2017 12:58:34 +0000 (+0300)
Subject: Main: Fix map name encoding in title bar
X-Git-Url: http://deadsoftware.ru/gitweb?a=commitdiff_plain;h=2a6454cfec1e278e06f5c60a71c5a7c50380306d;p=d2df-editor.git

Main: Fix map name encoding in title bar
---

diff --git a/src/editor/f_main.pas b/src/editor/f_main.pas
index f4de797..9065257 100644
--- a/src/editor/f_main.pas
+++ b/src/editor/f_main.pas
@@ -2047,7 +2047,7 @@ begin
     lbTextureList.Sorted := True;
     lbTextureList.Sorted := False;
 
-    UpdateCaption(gMapInfo.Name, ExtractFileName(FileName), MapName);
+    UpdateCaption(win2utf(gMapInfo.Name), ExtractFileName(FileName), MapName);
   end;
 end;
 
@@ -4090,7 +4090,7 @@ begin
   while (Pos(':\', ResName) > 0) do
     Delete(ResName, 1, Pos(':\', ResName) + 1);
 
-  UpdateCaption(gMapInfo.Name, ExtractFileName(OpenedWAD), ResName);
+  UpdateCaption(win2utf(gMapInfo.Name), ExtractFileName(OpenedWAD), ResName);
 end;
 
 procedure TMainForm.aAboutExecute(Sender: TObject);
@@ -6050,7 +6050,7 @@ begin
 
   gMapInfo.FileName := SaveDialog.FileName;
   gMapInfo.MapName := SaveMapForm.eMapName.Text;
-  UpdateCaption(gMapInfo.Name, ExtractFileName(gMapInfo.FileName), gMapInfo.MapName);
+  UpdateCaption(win2utf(gMapInfo.Name), ExtractFileName(gMapInfo.FileName), gMapInfo.MapName);
 end;
 
 procedure TMainForm.aSelectAllExecute(Sender: TObject);