SpkToolbar: Prevent mouse clicks on hidden "More options" button.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7700 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-09-26 22:37:56 +00:00
parent 51e360c94b
commit eeda26f714

View File

@ -892,7 +892,7 @@ procedure TSpkPane.MouseDown(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer); X, Y: Integer);
begin begin
// Handle mouse down on 'More options' button // Handle mouse down on 'More options' button
if FInMoreOptionsButton then if FInMoreOptionsButton and FShowMoreOptionsButton then
begin begin
FMoreOptionsButtonState := mobsBtnPressed; FMoreOptionsButtonState := mobsBtnPressed;
// Draw the 'More options' button // Draw the 'More options' button