paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-05 12:41:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL-QT: Restore Char type which was changed in r56640 #e2435a5cd6.

Browse Source 
git-svn-id: trunk@56931 -
This commit is contained in:
juha 2018-01-03 09:56:54 +00:00
parent 241124c159
commit 647e21c6a7
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/qt/qtwidgets.pas
View File

@ -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),