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

LCL: Do not clear Checked state of an Action when linked to TSpeedButton and the button gets disabled. Issue #41352, patch by Peter.

Browse Source
This commit is contained in:
Juha 2025-01-23 20:22:11 +02:00
parent b38335ac9a
commit 9c1268e600
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/speedbutton.inc
View File

@ -352,7 +352,7 @@ begin
FState := UpState[FMouseInControl];
end
else
if (FState in [bsHot, bsDown]) and (not FMouseInControl) and (not FDragging) and (not FDown) then
if (FState in [bsHot,bsDown]) and not (FMouseInControl or FDragging or FDown) then
begin
// return to normal
FState := bsUp;
@ -361,7 +361,7 @@ begin
if (FState = bsUp) and FMouseInControl then
FState := bsHot;
end;
if FState <> OldState then
if (FState <> OldState) and (FState in [bsUp,bsDown]) and (OldState in [bsUp,bsDown]) then
if (Action is TCustomAction) then
TCustomAction(Action).Checked := FState = bsDown;
//if InvalidateOnChange then DebugLn(['TCustomSpeedButton.UpdateState ',DbgSName(Self),' InvalidateOnChange=',InvalidateOnChange,' StateChange=',FState<>OldState]);