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

LCL: Undo r58266 #9602db0b8b (Breaks inner workings of combined components using the OnClick internally and providing access to Actions externally, like in RxViewPanel)

Browse Source 
git-svn-id: trunk@58290 -
This commit is contained in:
wp 2018-06-16 12:53:24 +00:00
parent b79f430898
commit 4fd2587322
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/control.inc
View File

@ -2928,10 +2928,8 @@ begin
// first call our own OnClick if it differs from Action.OnExecute
if Assigned(FOnClick)
and ((not CallAction) or (not OnClickIsActionExecute)) then begin
and ((not CallAction) or (not OnClickIsActionExecute)) then
FOnClick(Self);
exit;
end;
// then trigger the Action
if CallAction then
ActionLink.Execute(Self);