Browse Source

* Paragraph widget

michael 4 years ago
parent
commit
81e5de31ac
1 changed files with 12 additions and 0 deletions
  1. 12 0
      packages/webwidget/htmlwidgets.pp

+ 12 - 0
packages/webwidget/htmlwidgets.pp

@@ -805,6 +805,11 @@ Type
      Function HTMLTag : String; override;
      Function HTMLTag : String; override;
   end;
   end;
 
 
+  TParagraphWidget = Class(TWebWidget)
+  Protected
+     Function HTMLTag : String; override;
+  end;
+
 Function ViewPort : TViewPort;
 Function ViewPort : TViewPort;
 
 
 Const
 Const
@@ -837,6 +842,13 @@ begin
   Result:='DIV';
   Result:='DIV';
 end;
 end;
 
 
+
+function  TParagraphWidget.HTMLTag : String;
+
+begin
+  Result:='P';
+end;
+
 { TSelectWidget.TStringsSelectOptionEnumerator }
 { TSelectWidget.TStringsSelectOptionEnumerator }
 
 
 constructor TSelectWidget.TStringsSelectOptionEnumerator.Create(ASelect: TCustomSelectWidget);
 constructor TSelectWidget.TStringsSelectOptionEnumerator.Create(ASelect: TCustomSelectWidget);