paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-14 19:39:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* THTMLCustomPageContentProducer added

Browse Source 
git-svn-id: trunk@8038 -
This commit is contained in:
joost 2007-07-13 13:04:41 +00:00
parent 4a649f5b74
commit 7d7080394d
1 changed files with 37 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
packages/fcl-web/src/fphtml.pp
View File

@ -46,6 +46,27 @@ type
TWriterEvent = procedure (Sender:THTMLContentProducer; aWriter : THTMLWriter) of object;
TBooleanEvent = procedure (Sender:THTMLContentProducer; var flag : boolean) of object;
{ THTMLCustomPagContentProducer }
{ THTMLCustomPageContentProducer }
THTMLCustomPageContentProducer = class (THTMLContentProducer)
private
FOnWritePage: TWriterEvent;
protected
function WriteContent (aWriter : THTMLWriter) : THTMLCustomElement; override;
procedure DoWritePage (aWriter : THTMLWriter); virtual;
public
Property OnWritePage : TWriterEvent read FOnWritePage write FOnWritePage;
end;
{ THTMLCustomPagContentProducer }
THTMLPageContentProducer = class (THTMLCustomPageContentProducer)
published
Property OnWritePage;
end;
{ THTMLCustomDatasetContentProducer }
THTMLCustomDatasetContentProducer = class (THTMLContentProducer)
@ -471,5 +492,21 @@ begin
FOnGetContent(Self,ARequest,HTMLPage,Handled);
end;
{ THTMLCustomPageContentProducer }
function THTMLCustomPageContentProducer.WriteContent(aWriter: THTMLWriter
): THTMLCustomElement;
begin
result := aWriter.Starthtml;
DoWritePage(aWriter);
aWriter.Endhtml;
end;
procedure THTMLCustomPageContentProducer.DoWritePage(aWriter: THTMLWriter);
begin
if assigned (FOnWritePage) then
FOnWritePage (self, aWriter);
end;
end.