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

LCL: toolbutton: fix down states. Issue #28286. Modified patch by Derit Agustin

Browse Source 
git-svn-id: trunk@50870 -
This commit is contained in:
ondrej 2015-12-17 18:26:08 +00:00
parent f612624bb3
commit c95d982d72
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/include/toolbutton.inc
View File

@ -903,17 +903,19 @@ begin
begin
if Down then
begin // checked states
if FMouseInControl then
if (tbfPressed in FToolButtonFlags) and FMouseInControl then
inc(ToolDetail, 2) // ttbButtonPressed
else if FMouseInControl then
inc(ToolDetail, 5) // ttbButtonCheckedHot
else
inc(ToolDetail, 4) // ttbButtonChecked
inc(ToolDetail, 4);// ttbButtonChecked
end
else
begin
if (tbfPressed in FToolButtonFlags) and FMouseInControl then
inc(ToolDetail, 2) else // ttbButtonPressed
if FMouseInControl then
inc(ToolDetail, 1); // ttbButtonHot
inc(ToolDetail, 2) // ttbButtonPressed
else if FMouseInControl then
inc(ToolDetail, 1);// ttbButtonHot
end;
end;
Result := ThemeServices.GetElementDetails(ToolDetail);