From 961f8b2aa87563218d1974e642e12885e4287eab Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Tue, 18 Jul 2023 09:14:56 +0200
Subject: [PATCH] * Before/After bind support for THTMLElementActionList

---
 components/pas2js/components/stubs/stub.htmlactions.pas | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/components/pas2js/components/stubs/stub.htmlactions.pas b/components/pas2js/components/stubs/stub.htmlactions.pas
index 4433a00c9c..1365197e49 100644
--- a/components/pas2js/components/stubs/stub.htmlactions.pas
+++ b/components/pas2js/components/stubs/stub.htmlactions.pas
@@ -106,6 +106,8 @@ Type
 
    THTMLCustomElementActionList = class(TComponent)
    private
+     FAfterBind: TNotifyEvent;
+     FBeforeBind: TNotifyEvent;
      FList : TFPList;
      FOnExecute: THTMLGLobalNotifyEvent;
      function GetAction(aIndex: Integer): THTMLCustomElementAction;
@@ -132,11 +134,15 @@ Type
      Property ActionCount : Integer Read GetActionsCount;
    Protected
      Property OnExecute : THTMLGLobalNotifyEvent Read FOnExecute Write FOnExecute;
+     property BeforeBind : TNotifyEvent Read FBeforeBind Write FAfterBind;
+     Property AfterBind : TNotifyEvent Read FAfterBind Write FAfterBind;
    end;
 
    THTMLElementActionList = Class(THTMLCustomElementActionList)
    Published
      Property OnExecute;
+     property AfterBind;
+     property BeforeBind;
    end;