paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-06 23:27:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

* "OnElementBound event

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-06-13 19:11:11 +02:00
parent 85c8e7d0f6
commit f64a034b69
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packages/webwidget/webwidget.pas
View File

@ -104,6 +104,7 @@ Type
THTMLNotifyEvent = Procedure (Sender : TObject; Event : TJSEvent) of object;
TEventDispatch = Record
MsgStr : String;
HTMLEvent : TJSEvent;
@ -305,6 +306,7 @@ Type
FAfterUnRenderHTML: TNotifyEvent;
FBeforeRenderHTML: TNotifyEvent;
FBeforeUnRenderHTML: TNotifyEvent;
FOnElementBound: TNotifyEvent;
FParent : TCustomWebWidget;
FMyHook : TJSRawEventHandler;
// Set by setting ParentID or Parent
@ -509,6 +511,8 @@ Type
Property Visible : Boolean Read GetVisible Write SetVisible;
// Is the ElementID Set
Property FixedElementID : Boolean Read GetFixedElementID;
// When the element is bound
Property OnElementBound : TNotifyEvent Read FOnElementBound Write FOnElementBound;
// This protected section can be published in descendents
Protected
// Parent or Element ID: Will be used when determining the HTML element when rendering.
@ -2216,6 +2220,8 @@ begin
ApplyData;
RefreshReferences; // After data, so data can be used in selectors
end;
if Assigned(FOnElementBound) then
FOnElementBound(Self);
end;
procedure TCustomWebWidget.InvalidateParentElement;
@ -2909,10 +2915,12 @@ end;
procedure TCustomWebWidget.RefreshReferences;
begin
if Assigned(FReferences) then
begin
if Assigned(Element) then
References.RefreshFromDom(GetReferenceElement)
else
References.FRefs:=Nil;
References.FRefs:=Nil
end;
end;
class function TCustomWebWidget.GenerateID: String;