Difference between revisions of "TWebStatusSub"

From Ultibo.org
Jump to: navigation, search
(Created page with "Return to Unit WebStatus __TOC__ === Description === ---- ''To be documented'' === Class definitions === ---- <div class="toccolours mw-collapsible m...")
(No difference)

Revision as of 05:49, 4 June 2018

Return to Unit WebStatus


Description


To be documented

Class definitions



TWebStatusSub = class(THTTPDocument)

public
constructor Create(AMain:TWebStatusMain);  
destructor Destroy; override;  
private
FMain:TWebStatusMain;  
 
function GetTitle:String;  
function GetCaption:String;  
 
function NormalizedDateTimeToStr(const DateTime:TDateTime):String;  
protected
FCaption:String;  
 
function MakeBold(const AName:String):String;  
function MakeLink(const AName,ALink:String):String;  
 
function AddBlank(AResponse:THTTPServerResponse):Boolean;  
function AddBlankEx(AResponse:THTTPServerResponse; AColumns:LongWord):Boolean;  
 
function AddItem(AResponse:THTTPServerResponse; const AName,AValue:String):Boolean;  
function AddItemEx(AResponse:THTTPServerResponse; const AName,AValue:String; AIndent:LongWord):Boolean;  
 
function AddItem3Column(AResponse:THTTPServerResponse; const AName,AValue1,AValue2:String):Boolean;  
function AddItem4Column(AResponse:THTTPServerResponse; const AName,AValue1,AValue2,AValue3:String):Boolean;  
function AddItem5Column(AResponse:THTTPServerResponse; const AName,AValue1,AValue2,AValue3,AValue4:String):Boolean;  
 
function AddBold(AResponse:THTTPServerResponse; const AName,AValue:String):Boolean;  
function AddBoldEx(AResponse:THTTPServerResponse; const AName,AValue:String; AIndent:LongWord):Boolean;  
 
function AddBold3Column(AResponse:THTTPServerResponse; const AName,AValue1,AValue2:String):Boolean;  
function AddBold4Column(AResponse:THTTPServerResponse; const AName,AValue1,AValue2,AValue3:String):Boolean;  
function AddBold5Column(AResponse:THTTPServerResponse; const AName,AValue1,AValue2,AValue3,AValue4:String):Boolean;  
 
function AddHeader(AResponse:THTTPServerResponse; const ATitle:String; ASub:TWebStatusSub):Boolean;  
function AddHeaderEx(AResponse:THTTPServerResponse; const ATitle,ACaption:String; ASub:TWebStatusSub; AColumns:LongWord):Boolean;  
 
function AddFooter(AResponse:THTTPServerResponse):Boolean;  
function AddFooterEx(AResponse:THTTPServerResponse; AColumns:LongWord):Boolean;  
 
function AddContent(AResponse:THTTPServerResponse; const AContent:String):Boolean;  
 
function DoGet(AHost:THTTPHost;ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; override;  
public
property Main:TWebStatusMain read FMain;  
property Caption:String read GetCaption;  


Function declarations



constructor TWebStatusSub.Create(AMain:TWebStatusMain);
Description: To be documented
Note None documented


destructor TWebStatusSub.Destroy;
Description: To be documented
Note None documented


function TWebStatusSub.GetTitle:String;
Description: To be documented
Note None documented


function TWebStatusSub.GetCaption:String;
Description: To be documented
Note None documented


function TWebStatusSub.NormalizedDateTimeToStr(const DateTime:TDateTime):String;
Description: To be documented
Note None documented


function TWebStatusSub.MakeBold(const AName:String):String;
Description: To be documented
Note None documented


function TWebStatusSub.MakeLink(const AName,ALink:String):String;
Description: To be documented
Note None documented


function TWebStatusSub.AddBlank(AResponse:THTTPServerResponse):Boolean;
Description: To be documented
Note None documented


function TWebStatusSub.AddBlankEx(AResponse:THTTPServerResponse; AColumns:LongWord):Boolean;
Description: To be documented
Note None documented


function TWebStatusSub.AddItem(AResponse:THTTPServerResponse; const AName,AValue:String):Boolean;
Description: To be documented
Note None documented


function TWebStatusSub.AddItemEx(AResponse:THTTPServerResponse; const AName,AValue:String; AIndent:LongWord):Boolean;
Description: To be documented
Note None documented


function TWebStatusSub.AddItem3Column(AResponse:THTTPServerResponse; const AName,AValue1,AValue2:String):Boolean;
Description: To be documented
Note None documented


function TWebStatusSub.AddItem4Column(AResponse:THTTPServerResponse; const AName,AValue1,AValue2,AValue3:String):Boolean;
Description: To be documented
Note None documented


function TWebStatusSub.AddItem5Column(AResponse:THTTPServerResponse; const AName,AValue1,AValue2,AValue3,AValue4:String):Boolean;
Description: To be documented
Note None documented


function TWebStatusSub.AddBold(AResponse:THTTPServerResponse; const AName,AValue:String):Boolean;
Description: To be documented
Note None documented


function TWebStatusSub.AddBoldEx(AResponse:THTTPServerResponse; const AName,AValue:String; AIndent:LongWord):Boolean;
Description: To be documented
Note None documented


function TWebStatusSub.AddBold3Column(AResponse:THTTPServerResponse; const AName,AValue1,AValue2:String):Boolean;
Description: To be documented
Note None documented


function TWebStatusSub.AddBold4Column(AResponse:THTTPServerResponse; const AName,AValue1,AValue2,AValue3:String):Boolean;
Description: To be documented
Note None documented


function TWebStatusSub.AddBold5Column(AResponse:THTTPServerResponse; const AName,AValue1,AValue2,AValue3,AValue4:String):Boolean;
Description: To be documented
Note None documented


function TWebStatusSub.AddHeader(AResponse:THTTPServerResponse; const ATitle:String; ASub:TWebStatusSub):Boolean;
Description: To be documented
Note None documented


function TWebStatusSub.AddHeaderEx(AResponse:THTTPServerResponse; const ATitle,ACaption:String; ASub:TWebStatusSub; AColumns:LongWord):Boolean;
Description: To be documented
Note None documented


function TWebStatusSub.AddFooter(AResponse:THTTPServerResponse):Boolean;
Description: To be documented
Note None documented


function TWebStatusSub.AddFooterEx(AResponse:THTTPServerResponse; AColumns:LongWord):Boolean;
Description: To be documented
Note None documented


function TWebStatusSub.AddContent(AResponse:THTTPServerResponse; const AContent:String):Boolean;
Description: To be documented
Note None documented


function TWebStatusSub.DoGet(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean;
Description: To be documented
Note None documented


Return to Unit Reference