Changeset 42 for trunk/Application


Ignore:
Timestamp:
Nov 21, 2010, 8:49:46 AM (14 years ago)
Author:
george
Message:
  • Upraveno: Zbylé výskyty TStringListEx nahrazeny TListString a TDictionaryStringString.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Application/UCustomApplication.pas

    r41 r42  
    66
    77uses
    8   Classes, SysUtils, UHTTPServerCGI, Contnrs, USqlDatabase, UConfig, DateUtils,
    9   UXmlClasses, UHtmlClasses, UCore, UStringListEx, UHTTPServer, UHTTPServerTCP,
    10   UHTTPSessionMySQL, UHTTPSessionFile, UUser;
     8  Classes, SysUtils, UHTTPServerCGI, USqlDatabase, UConfig, DateUtils,
     9  UXmlClasses, UHtmlClasses, UCore, UHTTPServer, UHTTPServerTCP,
     10  UHTTPSessionMySQL, UHTTPSessionFile, UUser, SpecializedObjectList;
    1111
    1212type
     
    4141    Keywords: string;
    4242    HtmlDocument: THtmlDocument;
    43     Pages: TObjectList;
     43    Pages: TListObject;
    4444    Database: TSqlDatabase;
    4545    PageName: string;
     
    137137  inherited;
    138138  Database := TSqlDatabase.Create;
    139   Pages := TObjectList.Create;
     139  Pages := TListObject.Create;
    140140  HtmlDocument := THtmlDocument.Create;
    141141  User := TWebUser.Create;
     
    246246      Text := Text + '</ul>' +
    247247        '<ul class="MenuItem2">' +
    248         '<li>&nbsp;</li>';
    249         //'<li>' + MakeLink('Přihlášení', NavigationLink('/uzivatel/prihlaseni/')) + '</li>';
    250       //$Output .= '<li>'.$this->System->HTML->MakeLink($this->System->Translate('UserRegistration'), $this->System->MakeLink('UserList', 'Register')).'</li>';
     248        '<li>' + MakeLink('Přihlášení', NavigationLink('/uzivatel/prihlaseni/')) + '</li>';
     249      // $Output .= '<li>'.$this->System->HTML->MakeLink($this->System->Translate('UserRegistration'), $this->System->MakeLink('UserList', 'Register')).'</li>';
    251250    end else begin
    252251      Text := Text + '</ul>' +
Note: See TracChangeset for help on using the changeset viewer.