From 1d0ec1b96671437913c86e35deffd2f28a1ac153 Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Wed, 10 Feb 2021 16:17:56 +0000
Subject: [PATCH] * unicode fix in TInputLine.Init

git-svn-id: branches/unicodekvm@48616 -
---
 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 9e3dc95179..8d9a355966 100644
--- a/packages/fv/src/dialogs.inc
+++ b/packages/fv/src/dialogs.inc
@@ -1324,10 +1324,14 @@ BEGIN
    State := State OR sfCursorVis;                     { Cursor visible }
    Options := Options OR (ofSelectable + ofFirstClick
      + ofVersion20);                                  { Set options }
+{$ifdef FV_UNICODE}
+   Data := '';                                        { Data = empty string }
+{$else FV_UNICODE}
    If (MaxAvail > AMaxLen + 1) Then Begin             { Check enough memory }
      GetMem(Data, AMaxLen + 1);                       { Allocate memory }
      Data^ := '';                                     { Data = empty string }
    End;
+{$endif FV_UNICODE}
    MaxLen := AMaxLen;                                 { Hold maximum length }
 END;