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

spktoolbar: Clean-up

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6173 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-02-05 08:23:23 +00:00
parent 08713d9bf5
commit e6b9f9169d
1 changed files with 1 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/spktoolbar/SpkToolbar/spkt_Buttons.pas
View File

@@ -77,7 +77,6 @@ type
FGroupIndex: Integer; FGroupIndex: Integer;
FAllowAllUp: Boolean; FAllowAllUp: Boolean;
FDropdownMenu: TPopupMenu; FDropdownMenu: TPopupMenu;
FMouseUp: Boolean;
// *** Drawing support *** // *** Drawing support ***
// The task of the method in inherited classes is to calculate the // The task of the method in inherited classes is to calculate the
@@ -420,7 +419,7 @@ begin
if Assigned(FOnClick) then if Assigned(FOnClick) then
FOnClick(Self); FOnClick(Self);
// then trigger the Action // 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); FActionLink.Execute(Self);
end; end;
@@ -705,9 +704,7 @@ begin
begin begin
if FButtonKind in [bkButton, bkButtonDropdown, bkToggle] then if FButtonKind in [bkButton, bkButtonDropdown, bkToggle] then
begin begin
FMouseUp := true;
Click; Click;
FMouseUp := false;
FButtonState := bsBtnHottrack; FButtonState := bsBtnHottrack;
if Assigned(FToolbarDispatch) then if Assigned(FToolbarDispatch) then
FToolbarDispatch.NotifyVisualsChanged; FToolbarDispatch.NotifyVisualsChanged;