paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-08 19:47:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

IHTMLClient interface

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-06-22 16:56:19 +02:00
parent ee912ee368
commit 465f2395b8
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
packages/rtl/Rtl.HTMLActions.pas
View File

@ -29,7 +29,7 @@ Type
TForeachHTMLElementDataEx = {$ifdef pas2js}reference to {$endif} procedure (aElement : TJSHTMLElement; aData : TObject);
TForeachHTMLElementData = {$ifdef pas2js}reference to {$endif} procedure (aElement : TJSHTMLElement);
THTMLCustomElementAction = class(TComponent)
THTMLCustomElementAction = class(TComponent,IHTMLClient)
private
FActionList: THTMLCustomElementActionList;
FCSSSelector: String;
@ -58,9 +58,12 @@ Type
Procedure DoBind;
Procedure DoBeforeBind; virtual;
Procedure DoAfterBind; virtual;
Public
Destructor Destroy; override;
Class Function GetElementValue(aElement : TJSHTMLElement) : String; virtual;
procedure HTMLLoaded;
procedure HTMLRendered;
Class Procedure SetElementValue(aElement : TJSHTMLElement; const aValue : String; asHTML : Boolean = false); virtual;
function GetParentComponent: TComponent; override;
function HasParent: Boolean; override;
@ -406,6 +409,16 @@ begin
Result:=aElement.InputValue;
end;
procedure THTMLCustomElementAction.HTMLLoaded;
begin
// Do nothing
end;
procedure THTMLCustomElementAction.HTMLRendered;
begin
Bind;
end;
class procedure THTMLCustomElementAction.SetElementValue(
aElement: TJSHTMLElement; const aValue: String; asHTML: Boolean);
begin