Changeset 69 for trunk/Modules/UMainModule.pas

Timestamp:

Dec 30, 2011, 6:00:53 PM (12 years ago)

Author:

chronos

Message:

• Přidáno: Částečně zprovozněna registrace a přihlašování uživatelů.

File:

• trunk/Modules/UMainModule.pas (modified) (4 diffs)

trunk/Modules/UMainModule.pas

@@ -25 +25 @@
     procedure Show(Content: string);
     procedure TopMenu;
+    procedure DoBeforePageProduce(HandlerData: THTTPHandlerData);
   public
     TimeStart: TDateTime;
@@ -68 +69 @@
   TitleTag: THtmlString;
 begin
-  User.HandlerData := HandlerData;
-  UserOnline.HandlerData := HandlerData;
-  UserOnline.Update;
   with HandlerData do begin
     HtmlDocument.ContentLanguage := 'cs';
@@ -235 +233 @@
 end;
 
+procedure TMainModule.DoBeforePageProduce(HandlerData: THTTPHandlerData);
+begin
+  User.HandlerData := HandlerData;
+  UserOnline.HandlerData := HandlerData;
+  UserOnline.Update;
+  User.Id := UserOnline.User;
+  User.Load;
+end;
+
 procedure TMainModule.LoadFromRegistry;
 const
@@ -291 +298 @@
   InitDatabase;
   //Database.Query('SELECT * FROM ssss');
+  Application.OnBeforePageProduce := DoBeforePageProduce;
 end;