pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

SpkToolbar: Fire OnMenuButtonClick only when a MenuButtonDropDown popup menu is assigned to the SpkToolbar. Issue #38481.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7969 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2021-02-15 15:00:44 +00:00
parent 79c276f94d
commit 4e0089b2f2
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/spktoolbar/SpkToolbar/SpkToolbar.pas
View File

@ -2579,13 +2579,13 @@ begin
SetMetricsInvalid; SetMetricsInvalid;
Repaint; Repaint;
// Dropdown the Menu button dropdown menu and fire the event for click // Dropdown the Menu button dropdown menu or fire the event for click
if Assigned(FMenuButtonDropdownMenu) and (FShowMenuButton) then if Assigned(FMenuButtonDropdownMenu) and (FShowMenuButton) then
begin begin
aPopupPoint := ClientToScreen(GetMenuButtonDropdownPoint); aPopupPoint := ClientToScreen(GetMenuButtonDropdownPoint);
TPopupMenu(FMenuButtonDropdownMenu).PopUp(aPopupPoint.X, aPopupPoint.Y); TPopupMenu(FMenuButtonDropdownMenu).PopUp(aPopupPoint.X, aPopupPoint.Y);
DoMenuButtonClick; end else
end; DoMenuButtonClick;
end; end;
// Support for Menu Button click // Support for Menu Button click