Changeset 137 for trunk/Packages/CoolWeb/WebServer/UWebPage.pas

Timestamp:

Sep 9, 2022, 1:16:58 AM (22 months ago)

Author:

chronos

Message:

• Added: Robots page.
• Modified: Canonical URL for webcams.
• Modified: Removed compiler mode delphi as it is already set in project.
• Modified: Updated Common package.
• Modified: Use Generics.Collections instead of fgl.

File:

• trunk/Packages/CoolWeb/WebServer/UWebPage.pas (modified) (3 diffs)

trunk/Packages/CoolWeb/WebServer/UWebPage.pas

@@ -1 +1 @@
 unit UWebPage;
-
-{$mode objfpc}{$H+}
 
 interface
@@ -11 +9 @@
   TOnProduceEvent = procedure(HandlerData: THTTPHandlerData) of object;
 
-
   { TWebPage }
 
@@ -18 +15 @@
     FCaption: string;
     FOnProduce: TOnProduceEvent;
+    FRaw: Boolean;
   published
+    property Raw: Boolean read FRaw write FRaw;
     property Caption: string read FCaption write FCaption;
     property OnProduce: TOnProduceEvent read FOnProduce write FOnProduce;
   end;
-
 
   TWebPageClass = class of TWebPage;