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

* ClearContents added

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-10-05 11:03:57 +02:00
parent 5222c7955b
commit a30c313d3e
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/webwidget/webwidget.pas
View File

@ -456,6 +456,8 @@ Type
Public
Constructor Create(aOwner : TComponent); override;
Destructor Destroy; override;
// Clear content
Procedure ClearContent; virtual;
// Does this element allow childern ?
Class Function AllowChildren : Boolean; virtual;
// Manipulate Classes
@ -3000,6 +3002,12 @@ begin
inherited Destroy;
end;
procedure TCustomWebWidget.ClearContent;
begin
if Assigned(FElement) then
FElement.InnerHTML:='';
end;
class function TCustomWebWidget.AllowChildren: Boolean;
begin
Result:=True;