Changeset 42 for trunk/Application/UCustomApplication.pas

Timestamp:

Nov 21, 2010, 8:49:46 AM (14 years ago)

Author:

george

Message:

• Upraveno: Zbylé výskyty TStringListEx nahrazeny TListString a TDictionaryStringString.

File:

• trunk/Application/UCustomApplication.pas (modified) (4 diffs)

trunk/Application/UCustomApplication.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, UHTTPServerCGI, Contnrs, USqlDatabase, UConfig, DateUtils,
-  UXmlClasses, UHtmlClasses, UCore, UStringListEx, UHTTPServer, UHTTPServerTCP,
-  UHTTPSessionMySQL, UHTTPSessionFile, UUser;
+  Classes, SysUtils, UHTTPServerCGI, USqlDatabase, UConfig, DateUtils,
+  UXmlClasses, UHtmlClasses, UCore, UHTTPServer, UHTTPServerTCP,
+  UHTTPSessionMySQL, UHTTPSessionFile, UUser, SpecializedObjectList;
 
 type
@@ -41 +41 @@
     Keywords: string;
     HtmlDocument: THtmlDocument;
-    Pages: TObjectList;
+    Pages: TListObject;
     Database: TSqlDatabase;
     PageName: string;
@@ -137 +137 @@
   inherited;
   Database := TSqlDatabase.Create;
-  Pages := TObjectList.Create;
+  Pages := TListObject.Create;
   HtmlDocument := THtmlDocument.Create;
   User := TWebUser.Create;
@@ -246 +246 @@
       Text := Text + '</ul>' +
         '<ul class="MenuItem2">' +
-        '<li>&nbsp;</li>';
-        //'<li>' + MakeLink('Přihlášení', NavigationLink('/uzivatel/prihlaseni/')) + '</li>';
-      //$Output .= '<li>'.$this->System->HTML->MakeLink($this->System->Translate('UserRegistration'), $this->System->MakeLink('UserList', 'Register')).'</li>';
+        '<li>' + MakeLink('Přihlášení', NavigationLink('/uzivatel/prihlaseni/')) + '</li>';
+      // $Output .= '<li>'.$this->System->HTML->MakeLink($this->System->Translate('UserRegistration'), $this->System->MakeLink('UserList', 'Register')).'</li>';
     end else begin
       Text := Text + '</ul>' +