Changeset 65 for trunk/Components/CoolWeb/Common/UHtmlClasses.pas

Timestamp:

Dec 19, 2011, 3:48:33 PM (13 years ago)

Author:

chronos

Message:

• Přidáno: Třídy pro modelování HTML tabulky.

File:

• trunk/Components/CoolWeb/Common/UHtmlClasses.pas (modified) (2 diffs)

trunk/Components/CoolWeb/Common/UHtmlClasses.pas

@@ -175 +175 @@
     Styles: TStringList;
     Scripts: TStringList;
+    property AsXmlDocument: TXmlDocument read GetAsXmlDocument;
+    constructor Create;
+    destructor Destroy; override;
+  end;
+
+  { THtmlCell }
+
+  THtmlCell = class(THtmlElement)
+    RowSpan: Integer;
+    ColSpan: Integer;
+    Value: THtmlElement;
+    constructor Create;
+  end;
+
+  { THtmlRow }
+
+  THtmlRow = class(THtmlElement)
+    Cells: TListObject; // TListObject<THtmlCell>
+    constructor Create;
+    destructor Destroy; override;
+  end;
+
+  { THtmlTable }
+
+  THtmlTable = class
+  private
+    function GetAsXmlDocument: TXmlDocument;
+  public
+    Rows: TListObject; // TListObject<THtmlRow>
     property AsXmlDocument: TXmlDocument read GetAsXmlDocument;
     constructor Create;
@@ -247 +276 @@
     Result := False;
   end;
+end;
+
+{ THtmlCell }
+
+constructor THtmlCell.Create;
+begin
+  ColSpan := 1;
+  RowSpan := 1;
+end;
+
+{ THtmlRow }
+
+constructor THtmlRow.Create;
+begin
+  Cells := TListObject.Create;
+end;
+
+destructor THtmlRow.Destroy;
+begin
+  Cells.Free;
+  inherited Destroy;
+end;
+
+{ THtmlTable }
+
+function THtmlTable.GetAsXmlDocument: TXmlDocument;
+var
+  Row, Column: Integer;
+begin
+  with TXmlTag(Result) do begin
+    Name := 'table';
+    for Row := 0 to Rows.Count - 1 do
+    with TXmlTag(SubElements.AddNew(TXmlTag.Create)) do begin
+      Name := 'tr';
+      for Column := 0 to THtmlRow(Rows[Row]).Cells.Count - 1 do
+      with TXmlTag(SubElements.AddNew(TXmlTag.Create)) do begin
+        Name := 'td';
+        SubElements.Add(THtmlCell(THtmlRow(Rows[Row]).Cells[Column]).Value);
+      end;
+    end;
+  end;
+end;
+
+constructor THtmlTable.Create;
+begin
+  Rows := TListObject.Create;
+end;
+
+destructor THtmlTable.Destroy;
+begin
+  Rows.Free;
+  inherited Destroy;
 end;