Changeset 46 for trunk/Application/UWebObjects.pas

Timestamp:

Jan 30, 2011, 11:06:37 AM (14 years ago)

Author:

george

Message:

• Přidáno: Stránka "Plánované projekty".
• Upraveno: Přeorganizace hlavního menu a přidána položka "Síť".

File:

• trunk/Application/UWebObjects.pas (modified) (2 diffs)

trunk/Application/UWebObjects.pas

@@ -44 +44 @@
   TQueryForm = class(THtmlForm)
   private
-    function GetAsXmlElement: TXmlElement; override;
   public
     Title: string;
     Groups: TListObject;
     Actions: TListObject; // TListObject<THtmlInput>
+    function GetAsXmlElement: TXmlElement; override;
     constructor Create;
     destructor Destroy; override;
@@ -88 +88 @@
 function TQueryForm.GetAsXmlElement: TXmlElement;
 var
-  NewItem: TXmlElement;
   I: Integer;
   G: Integer;
-  NewHtml: THtmlElement;
 begin
   Result := inherited GetAsXmlElement;
-  for G := 0 to Groups.Count - 1 do
-  with TQueryFormGroup(Groups[G]) do
-  begin
-    NewItem := TXmlString.Create;
-    TXmlString(NewItem).Text := Title;
-    TXmlTag(Result).SubElements.Add(NewItem);
-    NewHtml := THtmlLineBreak.Create;
-    TXmlTag(Result).SubElements.Add(NewHtml.AsXmlElement);
-    for I := 0 to Rows.Count - 1 do
-    with TQueryFormItem(Rows[I]) do begin
-      NewItem := TXmlString.Create;
-      TXmlString(NewItem).Text := Caption + ': ';
-      TXmlTag(Result).SubElements.Add(NewItem);
-      TXmlTag(Result).SubElements.Add(Value.AsXmlElement);
-      NewHtml := THtmlLineBreak.Create;
-      TXmlTag(Result).SubElements.Add(NewHtml.AsXmlElement);
+  with TXmlTag(Result).SubElements do begin
+    for G := 0 to Groups.Count - 1 do
+    with TQueryFormGroup(Groups[G]) do
+    begin
+      with TXmlString(Items[Add(TXmlString.Create)]) do begin
+        Text := Title;
+      end;
+      with THtmlLineBreak.Create do begin
+        Add(AsXmlElement);
+      end;
+      for I := 0 to Rows.Count - 1 do
+      with TQueryFormItem(Rows[I]) do begin
+        with TXmlString(Items[Add(TXmlString.Create)]) do begin
+          Text := Caption + ': ';
+        end;
+        Add(Value.AsXmlElement);
+        with THtmlLineBreak.Create do begin
+          Add(AsXmlElement);
+        end;
+      end;
+    end;
+    with THtmlInput.Create do begin
+      Value := 'Přihlásit';
+      InputType := itSubmit;
+      Add(AsXmlElement);
     end;
   end;
-  NewHtml := THtmlInput.Create;
-  THtmlInput(NewHtml).Value := 'Přihlásit';
-  THtmlInput(NewHtml).InputType := itSubmit;
-  TXmlTag(Result).SubElements.Add(NewHtml.AsXmlElement);
 end;