Merge pull request #11 from UweRaabe/Add_TLlDOMTableFieldTable

Add TLlDOMTableFieldTable

Sources/l28dom.pas

@@ -6099,6 +6099,20 @@   TLlDOMTableFieldHTML = class(TLlDOMTableField)
     constructor Create(list: TLlDOMTableLineFieldList); overload;
   end;
 
+  TLlDOMTableFieldTable = class(TLlDOMTableField)
+
+  private
+    fSubItems: TLlDOMSubItemCoreList;
+    function GetReservedMinHeight: string;
+    function GetSubItems: TLlDOMSubItemCoreList;
+    procedure SetReservedMinHeight(const Value: string);
+  public
+    constructor Create(list: TLlDOMTableLineFieldList);
+    destructor Destroy; override;
+    property ReservedMinHeight: string read GetReservedMinHeight write SetReservedMinHeight;
+    property SubItems: TLlDOMSubItemCoreList read GetSubItems;
+  end;
+
   TLlDOMTableInputFieldBase = class(TLlDOMTableField)
   private
     fConditionalFormatters: TLlDOMConditionalFormatterItemList;
@@ -31496,6 +31510,34 @@ function GetVariantFromProfContents(text: PWideChar): OleVariant;
  VariantClear(Content);
 end;
 
+constructor TLlDOMTableFieldTable.Create(list: TLlDOMTableLineFieldList);
+begin
+  inherited Create(list, 'SubTableList', list.Count);
+end;
+
+destructor TLlDOMTableFieldTable.Destroy;
+begin
+  fSubItems.Free;
+  inherited;
+end;
+
+function TLlDOMTableFieldTable.GetReservedMinHeight: string;
+begin
+  Result := GetProperty('ReservedMinHeight');
+end;
+
+function TLlDOMTableFieldTable.GetSubItems: TLlDOMSubItemCoreList;
+begin
+  if fSubItems = nil then
+    fSubItems := TLlDOMSubItemCoreList.Create(GetObject('SubItems'));
+  result := fSubItems;
+end;
+
+procedure TLlDOMTableFieldTable.SetReservedMinHeight(const Value: string);
+begin
+  SetProperty('ReservedMinHeight', Value);
+end;
+
 
 end.