TPageHTML = class (TObject)
public
constructor Create() ; overload;
destructor Destroy() ; override;
procedure PageProducerOutputHTMLTag(Sender: TObject; Tag: TTag;
const TagString: String; TagParams: TStrings;
var ReplaceText: String);
end;
constructor TPageHTML.Create;
begin
inherited Create;
end;
destructor TPageHTML.Destroy;
begin
inherited Destroy;
end;
procedure TPageHTML.PageProducerOutputHTMLTag(Sender: TObject; Tag: TTag;
const TagString: String; TagParams: TStrings; var ReplaceText: String);
begin
case Tag of
tgCustom:
begin
if TagString = 'TitleInfo' then ReplaceText:='hello' ;
if TagString = 'Status' then ReplaceText:= 'boby';
if TagString = 'Messages' then ReplaceText:= 'sess';
end;
end;
end;
