paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-06 19:00:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: set csCaptureMouse on TToolButton only when it's style is tbsDropDown. issue #19688

Browse Source 
git-svn-id: trunk@36263 -
This commit is contained in:
zeljko 2012-03-23 10:38:24 +00:00
parent 9295d6a2a5
commit ddc6615683
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/include/toolbutton.inc
View File

@ -57,7 +57,7 @@ begin
FImageIndex := -1;
FStyle := tbsButton;
FShowCaption := true;
ControlStyle := [csCaptureMouse, csSetCaption, csDesignNoSmoothResize];
ControlStyle := [csSetCaption, csDesignNoSmoothResize];
with GetControlClassDefaultSize do
SetInitialBounds(0, 0, CX, CY);
end;
@ -458,14 +458,14 @@ end;
procedure TToolButton.MouseEnter;
begin
//DebugLn('TToolButton.MouseEnter ',Name);
// DebugLn('TToolButton.MouseEnter ',Name);
inherited MouseEnter;
SetMouseInControl(true);
end;
procedure TToolButton.MouseLeave;
begin
//DebugLn('TToolButton.MouseLeave ',Name);
// DebugLn('TToolButton.MouseLeave ',Name);
inherited MouseLeave;
SetMouseInControl(false);
if (not MouseCapture) and ([tbfPressed, tbfArrowPressed] * FToolButtonFlags <> []) then
@ -622,6 +622,10 @@ begin
if FStyle = Value then exit;
FStyle := Value;
InvalidatePreferredSize;
if FStyle = tbsDropDown then
ControlStyle := ControlStyle + [csCaptureMouse]
else
ControlStyle := ControlStyle - [csCaptureMouse];
if IsControlVisible then
UpdateVisibleToolbar;
end;