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

* Before/After bind support for THTMLElementActionList

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-07-18 09:14:56 +02:00
parent 5261aa9075
commit 961f8b2aa8
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/pas2js/components/stubs/stub.htmlactions.pas
View File

@ -106,6 +106,8 @@ Type
THTMLCustomElementActionList = class(TComponent) THTMLCustomElementActionList = class(TComponent)
private private
FAfterBind: TNotifyEvent;
FBeforeBind: TNotifyEvent;
FList : TFPList; FList : TFPList;
FOnExecute: THTMLGLobalNotifyEvent; FOnExecute: THTMLGLobalNotifyEvent;
function GetAction(aIndex: Integer): THTMLCustomElementAction; function GetAction(aIndex: Integer): THTMLCustomElementAction;
@ -132,11 +134,15 @@ Type
Property ActionCount : Integer Read GetActionsCount; Property ActionCount : Integer Read GetActionsCount;
Protected Protected
Property OnExecute : THTMLGLobalNotifyEvent Read FOnExecute Write FOnExecute; Property OnExecute : THTMLGLobalNotifyEvent Read FOnExecute Write FOnExecute;
property BeforeBind : TNotifyEvent Read FBeforeBind Write FAfterBind;
Property AfterBind : TNotifyEvent Read FAfterBind Write FAfterBind;
end; end;
THTMLElementActionList = Class(THTMLCustomElementActionList) THTMLElementActionList = Class(THTMLCustomElementActionList)
Published Published
Property OnExecute; Property OnExecute;
property AfterBind;
property BeforeBind;
end; end;