Changeset 77 for trunk/Pages/UContactPage.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/UContactPage.pas (modified) (2 diffs)

trunk/Pages/UContactPage.pas

@@ -32 +32 @@
 procedure TContactPage.DataModuleProduce(HandlerData: THTTPHandlerData);
 begin
-  with MainModule.HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
+  with MainModule, HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
+    LoadUserInfo(HandlerData);
     Text := '<strong>Kontaktní informace</strong><br/>' +
     'Provozovatel: Ing. Jiří Hajda<br/>' +
@@ -42 +43 @@
     'IČ: 75904535<br/>' +
     'DIČ: CZ8303255884<br/>' +
-    'Bankovní účet: 218098370 / 0300<br/>';
+    'Bankovní spojení pro platby v CZK v ČR: 2600134781 / 2010' +
+    'Bankovní spojení pro platby v EUR v SR: 2600134781 / 8330' +
+    'Starý bankovní účet: 218098370 / 0300<br/>';
   end;
   MainModule.GeneratePage(HandlerData, Self);