From 647e21c6a7e431a1d226a6b46776bdf9c7acfd7b Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Wed, 3 Jan 2018 09:56:54 +0000
Subject: [PATCH] LCL-QT: Restore Char type which was changed in r56640
 #e2435a5cd6.

git-svn-id: trunk@56931 -
---
 lcl/interfaces/qt/qtwidgets.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lcl/interfaces/qt/qtwidgets.pas b/lcl/interfaces/qt/qtwidgets.pas
index e35857d780..3833f47cd3 100644
--- a/lcl/interfaces/qt/qtwidgets.pas
+++ b/lcl/interfaces/qt/qtwidgets.pas
@@ -3021,7 +3021,7 @@ var
   {$IFDEF UNIX}
   ScanCode: LongWord;
   {$ENDIF}
-  AChar: UnicodeChar;
+  AChar: Char;
   AKeyEvent: QKeyEventH;
   GlobalAction: Integer;
   {$IFDEF VerboseQtKeys}
@@ -3063,7 +3063,7 @@ var
       Text := UTF8ToUTF16(Utf8Char)
     else
     if Word(AChar) <> CharMsg.CharCode then
-      Text := UnicodeChar(CharMsg.CharCode);
+      Text := Char(CharMsg.CharCode);
 
     AKeyEvent := QKeyEvent_createExtendedKeyEvent(
       QEvent_type(Event),