TWebStatusSub

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 AddItemSpan(AResponse:THTTPServerResponse; const AValue:String; AColumns:LongWord; ABreak:Boolean = True):Boolean;
function AddItemSpanEx(AResponse:THTTPServerResponse; const AValue:String; AColumns,AIndent:LongWord; ABreak:Boolean = True):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.AddItemSpan(AResponse:THTTPServerResponse; const AValue:String; AColumns:LongWord; ABreak:Boolean):Boolean;

Description: To be documented

Note	None documented

function TWebStatusSub.AddItemSpanEx(AResponse:THTTPServerResponse; const AValue:String; AColumns,AIndent:LongWord; ABreak:Boolean):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