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

Qt: pass key events from dropdown list to the lcl. part of issue #28553

Browse Source 
git-svn-id: trunk@49824 -
This commit is contained in:
zeljko 2015-09-14 08:34:03 +00:00
parent 9f13f52fca
commit 300707437e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -10726,7 +10726,7 @@ begin
if (FDropList <> nil) and (Sender = FDropList.Widget) then if (FDropList <> nil) and (Sender = FDropList.Widget) then
begin begin
if QEvent_type(Event) = QEventFontChange then if (Byte(QEvent_type(Event)) in [QEventKeyPress, QEventKeyRelease,QEventFontChange]) then
Result := inherited EventFilter(Sender, Event); Result := inherited EventFilter(Sender, Event);
QEvent_ignore(Event); QEvent_ignore(Event);
exit; exit;