Changeset 52 for trunk/Modules

Timestamp:

May 1, 2011, 12:20:19 AM (14 years ago)

Author:

george

Message:

• Upraveno: Stránky přepracovány z metod na komponenty.

Location:

trunk/Modules

Files:

• UMainModule.pas (modified) (5 diffs)
• UPagesModule.lfm (added)
• UPagesModule.lrs (added)
• UPagesModule.pas (added)

trunk/Modules/UMainModule.pas

@@ -14 +14 @@
   TMainModule = class;
 
-  TPageProducer = procedure(App: TMainModule; HandlerData: THTTPHandlerData);
-
   TRegistredPage = class
     Name: string;
-    Producer: TPageProducer;
+    Page: TWebPage;
   end;
 
@@ -60 +58 @@
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
-    procedure RegisterPage(Name: string; Producer: TPageProducer);
+    procedure RegisterPage(Name: string; Page: TWebPage);
   end;
 
@@ -116 +114 @@
       HtmlDocument.Body.SubItems.Add(TitleTag);
       TopMenu;
-      Page.Producer(Self, HandlerData);
+      Page.Page.OnProduce(HandlerData);
+      HtmlDocument.Title := Page.Page.Caption;
       TitleTag.Text := '<div class="TitlePanel"><span class="GlobalTitle">' + GlobalTitle +
         '</span> - ' + HtmlDocument.Title + '</div>';
@@ -131 +130 @@
 end;
 
-procedure TMainModule.RegisterPage(Name: string; Producer: TPageProducer);
+procedure TMainModule.RegisterPage(Name: string; Page: TWebPage);
 var
   NewRegistredPage: TRegistredPage;
@@ -137 +136 @@
   NewRegistredPage := TRegistredPage.Create;
   NewRegistredPage.Name := Name;
-  NewRegistredPage.Producer := Producer;
+  NewRegistredPage.Page := Page;
   Pages.Add(NewRegistredPage);
 end;