Changeset 119 for trunk/Modules/ZdechovNET/UModuleZdechovNET.pas

Timestamp:

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

Author:

chronos

Message:

• Added: Page about IPTV.

File:

• trunk/Modules/ZdechovNET/UModuleZdechovNET.pas (modified) (5 diffs)

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>' +