From e6b9f9169d1cf0f0ea3d1006b703d6dfe906188d Mon Sep 17 00:00:00 2001 From: wp_xxyyzz Date: Mon, 5 Feb 2018 08:23:23 +0000 Subject: [PATCH] spktoolbar: Clean-up git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6173 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- components/spktoolbar/SpkToolbar/spkt_Buttons.pas | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/components/spktoolbar/SpkToolbar/spkt_Buttons.pas b/components/spktoolbar/SpkToolbar/spkt_Buttons.pas index f759ac9e5..3150858c1 100644 --- a/components/spktoolbar/SpkToolbar/spkt_Buttons.pas +++ b/components/spktoolbar/SpkToolbar/spkt_Buttons.pas @@ -77,7 +77,6 @@ type FGroupIndex: Integer; FAllowAllUp: Boolean; FDropdownMenu: TPopupMenu; - FMouseUp: Boolean; // *** Drawing support *** // The task of the method in inherited classes is to calculate the @@ -420,7 +419,7 @@ begin if Assigned(FOnClick) then FOnClick(Self); // then trigger the Action - if (not (csDesigning in ComponentState)) and (FActionLink <> nil) then //and not FMouseUp then + if (not (csDesigning in ComponentState)) and (FActionLink <> nil) then FActionLink.Execute(Self); end; @@ -705,9 +704,7 @@ begin begin if FButtonKind in [bkButton, bkButtonDropdown, bkToggle] then begin - FMouseUp := true; Click; - FMouseUp := false; FButtonState := bsBtnHottrack; if Assigned(FToolbarDispatch) then FToolbarDispatch.NotifyVisualsChanged;