From d5ef64fb91cddc665f25bf57c93d1d442604843a Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Wed, 10 Feb 2021 16:11:55 +0000
Subject: [PATCH] * unicode fix in TDialog.ChangeTitle

git-svn-id: branches/unicodekvm@48614 -
---
 packages/fv/src/dialogs.inc | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/packages/fv/src/dialogs.inc b/packages/fv/src/dialogs.inc
index 931dc9b868..b19c228cdd 100644
--- a/packages/fv/src/dialogs.inc
+++ b/packages/fv/src/dialogs.inc
@@ -1205,9 +1205,13 @@ end;
 {****************************************************************************}
 procedure TDialog.ChangeTitle (ANewTitle : TTitleStr);
 begin
+{$ifdef FV_UNICODE}
+  Title := ANewTitle;
+{$else FV_UNICODE}
   if (Title <> nil) then
     DisposeStr(Title);
   Title := NewStr(ANewTitle);
+{$endif FV_UNICODE}
   Frame^.DrawView;
 end;