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

* Forgot to commit

Browse Source
This commit is contained in:
michael 2020-09-09 21:51:50 +00:00
parent bd2dd96c45
commit 620cdcd7d0
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
packages/webwidget/htmlwidgets.pp
View File

@ -531,6 +531,7 @@ Type
property SelectedIndex;
Property Multiple;
property size;
property Classes;
end;
{ TLabelWidget }
@ -797,6 +798,13 @@ Type
Property OnFooterRowClick;
end;
{ TDivWidget }
TDivWidget = Class(TWebWidget)
Protected
Function HTMLTag : String; override;
end;
Function ViewPort : TViewPort;
Const
@ -822,6 +830,13 @@ end;
Const
CellTags : Array[TRowKind] of string = ('th','td','td');
{ TDivWidget }
function TDivWidget.HTMLTag: String;
begin
Result:='DIV';
end;
{ TSelectWidget.TStringsSelectOptionEnumerator }
constructor TSelectWidget.TStringsSelectOptionEnumerator.Create(ASelect: TCustomSelectWidget);