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

Qt: fix TQtComboBox.EventFilter() result.

Browse Source 
git-svn-id: trunk@16411 -
This commit is contained in:
zeljko 2008-09-04 14:08:37 +00:00
parent 5f76c9b083
commit 44c94bd08b
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5875,12 +5875,12 @@ var
str: WideString;
begin
BeginEventProcessing;
Result := False;
QEvent_accept(Event);
if (FDropList <> nil) and (Sender = FDropList.Widget) then
begin
Result := False;
QEvent_accept(Event);
case QEvent_type(Event) of
QEventShow: SlotDropListVisibility(True);
QEventHide:
@ -5923,7 +5923,6 @@ begin
if TCustomComboBox(LCLObject).Items.IndexOf(Str) < 0 then
TCustomComboBox(LCLObject).AddItem(Str, nil);
end;
QEvent_accept(Event);
Result := SlotKey(Sender, Event);
end;
else