Changeset 119 for trunk/Modules/ZdechovNET

Timestamp:

Sep 3, 2016, 10:43:15 PM (8 years ago)

Author:

chronos

Message:

• Added: Page about IPTV.

Location:

trunk/Modules/ZdechovNET

Files:

• UContactPage.pas (modified) (1 diff)
• UIPTVPage.lfm (added)
• UIPTVPage.pas (added)
• UInternetPage.pas (modified) (1 diff)
• UModuleZdechovNET.pas (modified) (5 diffs)

trunk/Modules/ZdechovNET/UContactPage.pas

@@ -42 +42 @@
     'ICQ: <a href="http://www.icq.com/people/277158770">277158770</a><br/>' +
     'IČ: <strong>75904535</strong><br/>' +
-    'DIČ: <strong>CZ8303255884</strong><br/>' +
+    'DIČ: <strong>CZ8303255884</strong> (neplátce DPH)<br/>' +
     'Bankovní spojení pro platby v CZK v ČR: <strong>2600134781 / 2010</strong><br/>' +
     'Bankovní spojení pro platby v EUR v SR: <strong>2600134781 / 8330</strong><br/>' +

trunk/Modules/ZdechovNET/UInternetPage.pas

@@ -43 +43 @@
       '<tr><th>Označení</th><th>Minimální rychlost</th><th>Maximální rychlost</th><th>Cena [Kč/měsíc]</th></tr>' +
       '<tr><td>Zdarma</td><td align="center">0 kbit/s</td><td align="center">256 kbit/s</td><td align="center">0</td></tr>' +
-      '<tr><td>Internet Garant 200k</td><td align="center">200 kbit/s</td><td align="center">140 Mbit/s</td><td align="center">190</td></tr>' +
-      '<tr><td>Internet Garant 500k</td><td align="center">500 kbit/s</td><td align="center">140 Mbit/s</td><td align="center">260</td></tr>' +
-      '<tr><td>Internet Garant 1M</td><td align="center">1 Mbit/s</td><td align="center">140 Mbit/s</td><td align="center">360</td></tr>' +
-      '<tr><td>Internet Garant 3M</td><td align="center">3 Mbit/s</td><td align="center">140 Mbit/s</td><td align="center">520</td></tr>' +
-      '<tr><td>Internet Garant 7M</td><td align="center">7 Mbit/s</td><td align="center">140 Mbit/s</td><td align="center">750</td></tr>' +
+      '<tr><td>Internet Garant 200k/140M</td><td align="center">200 kbit/s</td><td align="center">140 Mbit/s</td><td align="center">190</td></tr>' +
+      '<tr><td>Internet Garant 500k/140M</td><td align="center">500 kbit/s</td><td align="center">140 Mbit/s</td><td align="center">260</td></tr>' +
+      '<tr><td>Internet Garant 1M/140M</td><td align="center">1 Mbit/s</td><td align="center">140 Mbit/s</td><td align="center">360</td></tr>' +
+      '<tr><td>Internet Garant 3M/140M</td><td align="center">3 Mbit/s</td><td align="center">140 Mbit/s</td><td align="center">520</td></tr>' +
+      '<tr><td>Internet Garant 7M/140M</td><td align="center">7 Mbit/s</td><td align="center">140 Mbit/s</td><td align="center">750</td></tr>' +
       '</table>' +
       '<br/>' +

trunk/Modules/ZdechovNET/UModuleZdechovNET.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, UModularSystem, SpecializedDictionary, UWebPage,
-  UWebSession, DateUtils, UModuleBase, UModuleUser,
+  UWebSession, DateUtils, UModuleBase, UModuleUser, UIPTVPage,
   UInternetPage, UHostingPage, UHistoryPage, UDocumentsPage, UVoIPPage,
   ULinksPage, UPlansPage, UServerInfoPage, UWebCamPage, UUser,
@@ -31 +31 @@
     ProjectsPage: TProjectsPage;
     AboutPage: TAboutPage;
+    IPTVPage: TIPTVPage;
     procedure Footer(Session: TWebSession);
     procedure GeneratePage(ASession: TWebSession; Page: TWebPage);
@@ -118 +119 @@
     AboutPage.ModuleUser := ModuleUser;
     RegisterPage(AboutPage, '');
+    IPTVPage := TIPTVPage.Create(nil);
+    IPTVPage.ModuleUser := ModuleUser;
+    RegisterPage(IPTVPage, 'televize');
   end;
   AfterStart;
@@ -126 +130 @@
   BeforeStop;
   with ModuleBase, Pages do begin
+    UnregisterPage(IPTVPage);
+    FreeAndNil(IPTVPage);
     UnregisterPage(AboutPage);
     FreeAndNil(AboutPage);
@@ -310 +316 @@
       '<li>' + MakeLink('Úvod', NavigationLink('/')) + '</li>' +
       '<li>' + MakeLink('Internet', NavigationLink('/internet/')) + '</li>' +
+      '<li>' + MakeLink('Televize', NavigationLink('/televize/')) + '</li>' +
       '<li>' + MakeLink('Hosting', NavigationLink('/hosting/')) + '</li>' +
       '<li>' + MakeLink('VoIP', NavigationLink('/voip/')) + '</li>' +