Changeset 104 for trunk/Modules/Portal/UModulePortal.pas

Timestamp:

Oct 8, 2012, 10:22:08 AM (12 years ago)

Author:

chronos

Message:

• Opraveno: Zobrazení hlavní stránky modulu Portál.

File:

• trunk/Modules/Portal/UModulePortal.pas (modified) (4 diffs)

trunk/Modules/Portal/UModulePortal.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, UModularSystem, SpecializedDictionary, USqlDatabase,
-  UUtils, UWebSession, SpecializedList, UUser;
+  UUtils, UWebSession, SpecializedList, UUser, UWebPage, UHtmlClasses;
 
 type
@@ -18 +18 @@
     function ShowFooter(Session: TWebSession): string;
     function ShowHeader(Session: TWebSession): string;
+    procedure GeneratePage(ASession: TWebSession; Page: TWebPage);
   public
     constructor Create(Owner: TComponent); override;
@@ -54 +55 @@
 procedure TModulePortal.Start;
 begin
+  Core.GeneratePage := GeneratePage;
   Core.Pages.RegisterPage(TWebPagePortal, WebPagePortal, 'portal');
   inherited;
@@ -220 +222 @@
 end;
 
+procedure TModulePortal.GeneratePage(ASession: TWebSession; Page: TWebPage);
+var
+  I: Integer;
+  TitleTag: THtmlString;
+begin
+  with ASession do begin
+    HtmlDocument.ContentLanguage := 'cs';
+    GlobalTitle := 'Portál';
+    HtmlDocument.Styles.Add(NavigationLink('/Style/' + TCore(MainModule).Style + '/Style.css'));
+    HtmlDocument.Scripts.Add(NavigationLink('/Style/' + TCore(MainModule).Style + '/Global.js'));
+    HtmlDocument.Scripts.Add(NavigationLink('/Style/' + TCore(MainModule).Style + '/jquery.js'));
+
+      TitleTag := THtmlString.Create;
+      TitleTag.Text := ShowHeader(ASession);
+      HtmlDocument.Body.SubItems.Insert(0, TitleTag);
+      TitleTag := THtmlString.Create;
+      TitleTag.Text := ShowFooter(ASession);
+      HtmlDocument.Body.SubItems.Add(TitleTag);
+      //Page.Page.OnProduce(HandlerData);
+      HtmlDocument.Title := Page.Caption;
+      TitleTag.Text := '<div class="TitlePanel"><span class="GlobalTitle">' + GlobalTitle +
+        '</span> - ' + HtmlDocument.Title + '</div>';
+      HtmlDocument.Title := GlobalTitle + ' - ' + HtmlDocument.Title;
+      with HtmlDocument.AsXmlDocument do
+      try
+        Formated := TCore(MainModule).FormatHTML;
+        Response.Content.WriteString(AsString);
+      finally
+        Free;
+      end;
+    end;
+end;
+
 function TModulePortal.ShowFooter(Session: TWebSession): string;
 begin