Changeset 108 for trunk/Packages/CoolWeb/WebServer/UWebApp.pas

Timestamp:

Oct 10, 2012, 3:30:34 PM (12 years ago)

Author:

chronos

Message:

• Upraveno: Opět zprovozněno zobrazování oficiálního webu sítě.

File:

• trunk/Packages/CoolWeb/WebServer/UWebApp.pas (modified) (2 diffs)

trunk/Packages/CoolWeb/WebServer/UWebApp.pas

@@ -29 +29 @@
     procedure UnregisterPage(Page: TWebPage);
     function ProducePage(HandlerData: THTTPHandlerData): Boolean;
+    constructor Create; override;
   end;
 
@@ -163 +164 @@
 end;
 
+constructor TPageList.Create;
+begin
+  inherited Create;
+  OwnsObjects := False;
+end;
+
 procedure TWebApp.HTTPServerRequest(HandlerData: THTTPHandlerData);
 begin