source: trunk/Packages/CoolWeb/WebServer/WebPage.pas

unit WebPage;

interface

uses
  Classes, SysUtils, HTTPServer, Controls;

type
  TOnProduceEvent = procedure(HandlerData: THTTPHandlerData) of object;

  { TWebPage }

  TWebPage = class(TDataModule)
  private
    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;

procedure Register;


implementation

procedure Register;
begin
  RegisterNoIcon([TWebPage]);
end;

end.