paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-08-18 15:39:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add bind call to list

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-04-11 13:58:41 +02:00
parent 14c840b2fd
commit b7396548f4
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
packages/rtl/htmlactions.pas
View File

@ -122,6 +122,7 @@ Type
Constructor Create(aOwner : TComponent); override; Constructor Create(aOwner : TComponent); override;
Destructor Destroy; override; Destructor Destroy; override;
Procedure Clear; Procedure Clear;
Procedure Bind;
Function IndexOfElementID(aID : String; StartAt : Integer = 0) : Integer; Function IndexOfElementID(aID : String; StartAt : Integer = 0) : Integer;
Function FindActionByElementID(aID : String; StartAt : Integer = 0) : THTMLCustomElementAction; Function FindActionByElementID(aID : String; StartAt : Integer = 0) : THTMLCustomElementAction;
Function GetActionsForElementID(aID : String) : THTMLCustomElementActionArray; Function GetActionsForElementID(aID : String) : THTMLCustomElementActionArray;
@ -241,6 +242,16 @@ begin
end; end;
end; end;
procedure THTMLCustomElementActionList.Bind;
Var
I : Integer;
begin
For I:=0 to ActionCount-1 do
Actions[I].Bind;
end;
function THTMLCustomElementActionList.IndexOfElementID(aID: String; function THTMLCustomElementActionList.IndexOfElementID(aID: String;
StartAt: Integer): Integer; StartAt: Integer): Integer;
begin begin