Changeset 29 for branches/lazarus/Application
- Timestamp:
- Sep 13, 2010, 6:54:58 AM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/lazarus/Application/UCustomCGIApplication.pas
r27 r29 215 215 '<li>' + MakeLink('Hosting', NavigationLink('/hosting/')) + '</li>' + 216 216 '<li>' + MakeLink('VoIP', NavigationLink('/voip/')) + '</li>' + 217 '<li><a href="https://mail.zdechov.net/">Pošta</a></li>' +218 217 '<li>' + MakeLink('Historie', NavigationLink('/historie/')) + '</li>' + 219 218 '<li>' + MakeLink('Dokumenty', NavigationLink('/dokumenty/')) + '</li>' + 220 219 '<li>' + MakeLink('Odkazy', NavigationLink('/odkazy/')) + '</li>' + 221 '<li>' + MakeLink('Kontakt', NavigationLink('/kontakt/')) + '</li>'; 222 Text := Text + '</ul><ul class="MenuItem2"><li> </li>'; 220 '<li>' + MakeLink('Kontakt', NavigationLink('/kontakt/')) + '</li>' + 221 '<li><a href="https://mail.zdechov.net/">Pošta</a></li>' + 222 '<li><a href="http://wiki.zdechov.net/">Wiki</a></li>' + 223 '</ul><ul class="MenuItem2"><li> </li>'; 223 224 (* if System.UserOnline.User = System.UserOnline.AnonymousUserId then begin 224 225 Text := Text + '</ul>' +
Note:
See TracChangeset
for help on using the changeset viewer.