Changeset 77 for trunk/Pages/UAboutPage.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/UAboutPage.pas (modified) (1 diff)

trunk/Pages/UAboutPage.pas

@@ -37 +37 @@
 begin
   with MainModule do begin
+    LoadUserInfo(HandlerData);
     with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
     Text := '<img align="left" src="' + NavigationLink('/images/umisteni.gif') + '" alt="Umístění obce"/>' +