Changeset 107 for trunk/Modules/News

Timestamp:

Oct 10, 2012, 2:50:48 PM (12 years ago)

Author:

chronos

Message:

• Přidáno: Zobrazení aktualit na stránce portálu.

Location:

trunk/Modules/News

Files:

• UModuleNews.pas (modified) (5 diffs)
• UNews.pas (added)

trunk/Modules/News/UModuleNews.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, UModularSystem, SpecializedDictionary, UModuleBase;
+  Classes, SysUtils, UModularSystem, SpecializedDictionary, UModuleBase, UNews,
+  UHTTPServer, UModuleUser;
 
 type
@@ -14 +15 @@
   public
     ModuleBase: TModuleBase;
-    procedure Show;
+    News: TNews;
+    function Show(HandlerData: THTTPHandlerData): string;
     constructor Create(Owner: TComponent); override;
     destructor Destroy; override;
@@ -32 +34 @@
 { TModuleNews }
 
-procedure TModuleNews.Show;
+function TModuleNews.Show(HandlerData: THTTPHandlerData): string;
 begin
-
+  Result := News.Show(HandlerData);
 end;
 
@@ -57 +59 @@
   BeforeStart;
   ModuleBase := TModuleBase(Manager.FindModuleByName('Base'));
-  UserControlPage := TUserControlPage.Create(nil);
-  ModuleBase.Pages.RegisterPage(UserControlPage, 'uzivatel');
+  //UserControlPage := TUserControlPage.Create(nil);
+  //ModuleBase.Pages.RegisterPage(UserControlPage, 'uzivatel');
   //RegisterPage(TUserControlPage, UserControlPage, '');
+  News := TNews.Create;
+  News.ModuleUser := TModuleUser(Manager.FindModuleByName('User'));
+  News.Database := ModuleBase.Session.Database;
+  News.ModuleBase := ModuleBase;
   AfterStart;
 end;
@@ -66 +72 @@
 begin
   BeforeStop;
-  ModuleBase.Pages.UnregisterPage(UserControlPage);
-  FreeAndNil(UserControlPage);
+  FreeAndNil(News);
+  //ModuleBase.Pages.UnregisterPage(UserControlPage);
+  //FreeAndNil(UserControlPage);
   ModuleBase := nil;
   AfterStop;