Changeset 77 for trunk/Pages/UInternetPage.pas

Timestamp:

Jun 18, 2012, 8:48:28 PM (12 years ago)

Author:

chronos

Message:

• Upraveno: Obsluhuj generování stránek dle vlastního seznamu stránek a pokud nenajdeš přímou obsluhu, tak zkus generovat ze souboru.

File:

• trunk/Pages/UInternetPage.pas (modified) (1 diff)

trunk/Pages/UInternetPage.pas

@@ -35 +35 @@
 begin
   with MainModule do begin
+    LoadUserInfo(HandlerData);
     with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
       Text := Text + 'Hlavní náplní činnosti sítě je poskytovat výhodné připojení k internetu pro občany.<br/><br/>' +