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

Qt: TQtComboBox -> do not call IntfGetItems if our combo list is still visible.fixes #15183

Browse Source 
git-svn-id: trunk@22802 -
This commit is contained in:
zeljko 2009-11-26 18:15:27 +00:00
parent 4005006703
commit 4f157751ed
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -710,6 +710,7 @@ type
// parts
FLineEdit: TQtLineEdit;
FDropList: TQtListWidget;
FDropListVisibleInternal: Boolean;
function GetDropList: TQtListWidget;
function GetLineEdit: TQtLineEdit;
procedure SetOwnerDrawn(const AValue: Boolean);
@ -6003,6 +6004,7 @@ begin
{$ifdef VerboseQt}
WriteLn('TQtComboBox.Create');
{$endif}
FDropListVisibleInternal := False;
Result := QComboBox_create();
// disable AutoCompletion. LCL has its own
QComboBox_setAutoCompletion(QComboboxH(Result), False);
@ -6392,7 +6394,11 @@ begin
QEvent_accept(Event);
end;
end;
QEventFocusIn: TCustomComboBox(LCLObject).IntfGetItems;
QEventFocusIn:
begin
if not FDropListVisibleInternal then
TCustomComboBox(LCLObject).IntfGetItems;
end;
QEventKeyPress,
QEventKeyRelease:
begin
@ -6485,6 +6491,7 @@ begin
Msg.NotifyCode := VisibilityToCodeMap[AVisible];
DeliverMessage(Msg);
FDropListVisibleInternal := AVisible;
end;
{ TQtAbstractSpinBox }