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

Qt: fixed menu flickering. issue #22872

Browse Source 
git-svn-id: trunk@38644 -
This commit is contained in:
zeljko 2012-09-13 14:55:40 +00:00
parent e5d8903dd7
commit 76e8b12016
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1472,6 +1472,7 @@ type
TQtMenu = class(TQtWidget)
private
FLastTick: QWord; // issue #22872
FActions: TFPList;
FIcon: QIconH;
FTriggeredHook: QAction_hookH;
@ -13276,6 +13277,7 @@ var
Parent: QWidgetH;
begin
FTrackButton := QtNoButton;
FLastTick := 0;
FIcon := nil;
if AParams.WndParent <> 0 then
Parent := TQtWidget(AParams.WndParent).GetContainerWidget
@ -13690,13 +13692,18 @@ begin
SlotTriggered();
end;
end;
QEventShowtoParent:
QEventHideToParent: FLastTick := GetTickCount64; // issue #22872
QEventShowToParent:
begin
if Assigned(FMenuItem) and Assigned(FMenuItem.OnClick)
and not (FMenuItem.Menu is TPopupMenu) then
begin
SlotTriggered();
Result:=True;
// issue #22872
if GetTickCount64 - FLastTick > 50 then
begin
FLastTick := GetTickCount64;
SlotTriggered();
end;
end;
end;
end;