From 2a6454cfec1e278e06f5c60a71c5a7c50380306d Mon Sep 17 00:00:00 2001 From: binarymaster Date: Thu, 28 Sep 2017 15:58:34 +0300 Subject: [PATCH] Main: Fix map name encoding in title bar --- src/editor/f_main.pas | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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); -- 2.29.2