Changeset 46 for trunk/Application

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íť".

Location:

trunk/Application

Files:

• UCustomApplication.pas (modified) (2 diffs)
• UWebObjects.pas (modified) (2 diffs)

trunk/Application/UCustomApplication.pas

@@ -111 +111 @@
   HtmlDocument.Scripts.Add(NavigationLink('/Style/' + Style + '/jquery.js'));
 
-  Request.QueryParts.Count := 2;
-  Request.QueryParts[0] := 'uzivatel';
-  Request.QueryParts[1] := 'prihlaseni';
+  //Request.QueryParts.Count := 2;
+  //Request.QueryParts[0] := 'uzivatel';
+  //Request.QueryParts[1] := 'prihlaseni';
 
   if Request.QueryParts.Count > 0 then PageName := Request.QueryParts[0]
@@ -235 +235 @@
     // Visitor
     Text := Text + '<ul class="MenuItem">' +
-      '<li>' + MakeLink('O síti', NavigationLink('/')) + '</li>' +
+      '<li>' + MakeLink('Úvod', NavigationLink('/')) + '</li>' +
       '<li>' + MakeLink('Internet', NavigationLink('/internet/')) + '</li>' +
       '<li>' + MakeLink('Hosting', NavigationLink('/hosting/')) + '</li>' +
       '<li>' + MakeLink('VoIP', NavigationLink('/voip/')) + '</li>' +
-      '<li>' + MakeLink('Historie', NavigationLink('/historie/')) + '</li>' +
-      '<li>' + MakeLink('Dokumenty', NavigationLink('/dokumenty/')) + '</li>' +
+      '<li>' + MakeLink('Síť', NavigationLink('/sit/')) + '</li>' +
       '<li>' + MakeLink('Odkazy', NavigationLink('/odkazy/')) + '</li>' +
       '<li>' + MakeLink('Kontakt', NavigationLink('/kontakt/')) + '</li>' +

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;