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

LazControls: Revert the earlier change in TCustomCheckBoxThemed, issue #39425.

Browse Source
This commit is contained in:
Juha 2021-10-12 16:47:56 +03:00
parent 232ed8531c
commit 51cdd4d4c4
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/lazcontrols/checkboxthemed.pas
View File

@ -467,12 +467,14 @@ begin
if [csLoading, csDestroying, csDesigning]*ComponentState = [] then begin
if Assigned(OnEditingDone) then OnEditingDone(self);
if Assigned(OnChange) then OnChange(self);
{ Execute only when Action.Checked is changed }
// Execute only when Action.Checked is changed
if not CheckFromAction then begin
if Assigned(OnClick) and not Assigned(Action) then
OnClick(self);
if (Action is TCustomAction) and
(TCustomAction(Action).Checked <> (AValue = cbChecked))
// Call OnClick only if its handler differs from the Action's handler.
if Assigned(OnClick) and
not (Assigned(Action) and SameMethod(TMethod(Action.OnExecute),TMethod(OnClick)))
then OnClick(self);
// Then the action
if (Action is TCustomAction) and (TCustomAction(Action).Checked<>(AValue=cbChecked))
then ActionLink.Execute(self);
end;
end;