paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 16:37:54 +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]; FState := UpState[FMouseInControl];
end end
else 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 begin
// return to normal // return to normal
FState := bsUp; FState := bsUp;
@ -361,7 +361,7 @@ begin
if (FState = bsUp) and FMouseInControl then if (FState = bsUp) and FMouseInControl then
FState := bsHot; FState := bsHot;
end; end;
if FState <> OldState then if (FState <> OldState) and (FState in [bsUp,bsDown]) and (OldState in [bsUp,bsDown]) then
if (Action is TCustomAction) then if (Action is TCustomAction) then
TCustomAction(Action).Checked := FState = bsDown; TCustomAction(Action).Checked := FState = bsDown;
//if InvalidateOnChange then DebugLn(['TCustomSpeedButton.UpdateState ',DbgSName(Self),' InvalidateOnChange=',InvalidateOnChange,' StateChange=',FState<>OldState]); //if InvalidateOnChange then DebugLn(['TCustomSpeedButton.UpdateState ',DbgSName(Self),' InvalidateOnChange=',InvalidateOnChange,' StateChange=',FState<>OldState]);