Changeset 42 for trunk/Application
- Timestamp:
- Nov 21, 2010, 8:49:46 AM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Application/UCustomApplication.pas
r41 r42 6 6 7 7 uses 8 Classes, SysUtils, UHTTPServerCGI, Contnrs,USqlDatabase, UConfig, DateUtils,9 UXmlClasses, UHtmlClasses, UCore, U StringListEx, UHTTPServer, UHTTPServerTCP,10 UHTTPSessionMySQL, UHTTPSessionFile, UUser ;8 Classes, SysUtils, UHTTPServerCGI, USqlDatabase, UConfig, DateUtils, 9 UXmlClasses, UHtmlClasses, UCore, UHTTPServer, UHTTPServerTCP, 10 UHTTPSessionMySQL, UHTTPSessionFile, UUser, SpecializedObjectList; 11 11 12 12 type … … 41 41 Keywords: string; 42 42 HtmlDocument: THtmlDocument; 43 Pages: T ObjectList;43 Pages: TListObject; 44 44 Database: TSqlDatabase; 45 45 PageName: string; … … 137 137 inherited; 138 138 Database := TSqlDatabase.Create; 139 Pages := T ObjectList.Create;139 Pages := TListObject.Create; 140 140 HtmlDocument := THtmlDocument.Create; 141 141 User := TWebUser.Create; … … 246 246 Text := Text + '</ul>' + 247 247 '<ul class="MenuItem2">' + 248 '<li> </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>'; 251 250 end else begin 252 251 Text := Text + '</ul>' +
Note:
See TracChangeset
for help on using the changeset viewer.