Changeset 254 for Network/CoolWeb/WebServer

Timestamp:

Jul 20, 2011, 10:25:27 PM (14 years ago)

Author:

george

Message:

• Added: Registration of CoolWebApp as Lazarus project.
• Added: Registration CoolWebPage as Lazarus form.

Location:

Network/CoolWeb/WebServer

Files:

• UWebApp.pas (added)
• UWebPage.lfm (added)
• UWebPage.lrs (added)
• UWebPage.pas (modified) (1 diff)

Network/CoolWeb/WebServer/UWebPage.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils;
+  Classes, SysUtils, UHTTPServer, Controls;
 
 type
-  TOnProduceEvent = procedure of object;
+  TOnProduceEvent = procedure(HandlerData: THTTPHandlerData) of object;
 
   { TWebPage }
 
-  TWebPage = class(TComponent)
+  TWebPage = class(TDataModule)
   private
+    FCaption: string;
     FOnProduce: TOnProduceEvent;
   published
+    property Caption: string read FCaption write FCaption;
     property OnProduce: TOnProduceEvent read FOnProduce write FOnProduce;
   end;
 
+
+  TWebPageClass = class of TWebPage;
+
+procedure Register;
+
+
 implementation
+
+procedure Register;
+begin
+  RegisterNoIcon([TWebPage]);
+end;
 
 end.