Changeset 48 for trunk/Application

Timestamp:

Mar 28, 2011, 9:31:28 AM (14 years ago)

Author:

george

Message:

 

Location:

trunk/Application

Files:

• UCustomApplication.pas (modified) (5 diffs)
• UWebObjects.pas (modified) (1 diff)

trunk/Application/UCustomApplication.pas

@@ -41 +41 @@
     Keywords: string;
     HtmlDocument: THtmlDocument;
-    Pages: TListObject;
+    Pages: TListObject; // TListObject<TRegistredPage>
     Database: TSqlDatabase;
     PageName: string;
@@ -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]
@@ -169 +169 @@
   TextNode: TXmlString;
 begin
-  with TXmlTag(HtmlDocument.Body.SubItems[HtmlDocument.Body.SubItems.Add(TXmlTag.Create)]) do begin
+  with TXmlTag(HtmlDocument.Body.SubItems.AddNew(TXmlTag.Create)) do begin
     Name := 'ul';
     Attributes.Values['class'] := 'Footer';
-    with TXmlTag(SubElements[SubElements.Add(TXmlTag.Create)]) do begin
+    with TXmlTag(SubElements.AddNew(TXmlTag.Create)) do begin
       Name := 'li';
-      with TXmlString(SubElements[SubElements.Add(TXmlString.Create)]) do begin
+      with TXmlString(SubElements.AddNew(TXmlString.Create)) do begin
         Text := Admin;
       end;
     end;
-    with TXmlTag(SubElements[SubElements.Add(TXmlTag.Create)]) do begin
+    with TXmlTag(SubElements.AddNew(TXmlTag.Create)) do begin
       Name := 'li';
-      with TXmlString(SubElements[SubElements.Add(TXmlString.Create)]) do begin
+      with TXmlString(SubElements.AddNew(TXmlString.Create)) do begin
         Text := AdminEmail;
       end;
     end;
     if ShowRuntimeInfo then begin
-      with TXmlTag(SubElements[SubElements.Add(TXmlTag.Create)]) do begin
+      with TXmlTag(SubElements.AddNew(TXmlTag.Create)) do begin
         Name := 'li';
-        with TXmlString(SubElements[SubElements.Add(TXmlString.Create)]) do begin
+        with TXmlString(SubElements.AddNew(TXmlString.Create)) do begin
           Text := 'Doba generování: ' +
             FloatToStr(Round(((Now - TimeStart) / OneMillisecond) * 100) / 100) + ' s / '; // + ini_get('max_execution_time') + ' s';
         end;
       end;
-      with TXmlTag(SubElements[SubElements.Add(TXmlTag.Create)]) do begin
+      with TXmlTag(SubElements.AddNew(TXmlTag.Create)) do begin
         Name := 'li';
-        with TXmlString(SubElements[SubElements.Add(TXmlString.Create)]) do begin
+        with TXmlString(SubElements.AddNew(TXmlString.Create)) do begin
           //Text := 'Použitá paměť: '  + System.PrefixMultiplier.AddPrefixMultipliers(memory_get_peak_usage(FALSE), 'B').' / '.ini_get('memory_limit').'B';
         end;
@@ -231 +231 @@
 procedure TCustomApplication.TopMenu;
 begin
-  with THtmlString(HtmlDocument.Body.SubItems[HtmlDocument.Body.SubItems.Add(THtmlString.Create)]) do begin
+  with THtmlString(HtmlDocument.Body.SubItems.AddNew(THtmlString.Create)) do begin
     Text := '<div class="Navigation">';
     // Visitor
@@ -249 +249 @@
       Text := Text + '</ul>' +
         '<ul class="MenuItem2">' +
-        '<li>' + MakeLink('Přihlášení', NavigationLink('/uzivatel/prihlaseni/')) + '</li>';
+        //'<li>' + MakeLink('Přihlášení', NavigationLink('/uzivatel/prihlaseni/')) + '</li>';
+        '<li></li>';
       // $Output .= '<li>'.$this->System->HTML->MakeLink($this->System->Translate('UserRegistration'), $this->System->MakeLink('UserList', 'Register')).'</li>';
     end else begin

trunk/Application/UWebObjects.pas

@@ -46 +46 @@
   public
     Title: string;
-    Groups: TListObject;
+    Groups: TListObject; // TListObject<TQueryFormGroup>
     Actions: TListObject; // TListObject<THtmlInput>
     function GetAsXmlElement: TXmlElement; override;