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...")
 
 
(One intermediate revision by the same user not shown)
Line 41: Line 41:
 
|-
 
|-
 
|colspan="2"|&nbsp;
 
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function NormalizedDateToStr(const DateTime:TDateTime):String;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function NormalizedTimeToStr(const DateTime:TDateTime):String;</code>
 +
| &nbsp;
 
|-
 
|-
 
| <code>function NormalizedDateTimeToStr(const DateTime:TDateTime):String;</code>
 
| <code>function NormalizedDateTimeToStr(const DateTime:TDateTime):String;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function NormalizedIntervalToStr(const DateTime:TDateTime):String;</code>
 
| &nbsp;
 
| &nbsp;
 
|-
 
|-
Line 72: Line 83:
 
|-
 
|-
 
| <code>function AddItemEx(AResponse:THTTPServerResponse; const AName,AValue:String; AIndent:LongWord):Boolean;</code>
 
| <code>function AddItemEx(AResponse:THTTPServerResponse; const AName,AValue:String; AIndent:LongWord):Boolean;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function AddItemSpan(AResponse:THTTPServerResponse; const AValue:String; AColumns:LongWord; ABreak:Boolean = True):Boolean;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function AddItemSpanEx(AResponse:THTTPServerResponse; const AValue:String; AColumns,AIndent:LongWord; ABreak:Boolean = True):Boolean;</code>
 
| &nbsp;
 
| &nbsp;
 
|-
 
|-
Line 184: Line 203:
 
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
 
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
 
<pre style="border: 0; padding-bottom:0px;">function TWebStatusSub.GetCaption:String;</pre>
 
<pre style="border: 0; padding-bottom:0px;">function TWebStatusSub.GetCaption:String;</pre>
 +
<div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 +
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
 +
{| class="wikitable" style="font-size: 14px; background: white;"
 +
|-
 +
! Note
 +
| None documented
 +
|-
 +
|}
 +
</div></div>
 +
<br />
 +
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
 +
<pre style="border: 0; padding-bottom:0px;">function TWebStatusSub.NormalizedDateToStr(const DateTime:TDateTime):String;</pre>
 +
<div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 +
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
 +
{| class="wikitable" style="font-size: 14px; background: white;"
 +
|-
 +
! Note
 +
| None documented
 +
|-
 +
|}
 +
</div></div>
 +
<br />
 +
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
 +
<pre style="border: 0; padding-bottom:0px;">function TWebStatusSub.NormalizedTimeToStr(const DateTime:TDateTime):String;</pre>
 
<div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 
<div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
 
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
Line 196: Line 239:
 
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
 
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
 
<pre style="border: 0; padding-bottom:0px;">function TWebStatusSub.NormalizedDateTimeToStr(const DateTime:TDateTime):String;</pre>
 
<pre style="border: 0; padding-bottom:0px;">function TWebStatusSub.NormalizedDateTimeToStr(const DateTime:TDateTime):String;</pre>
 +
<div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 +
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
 +
{| class="wikitable" style="font-size: 14px; background: white;"
 +
|-
 +
! Note
 +
| None documented
 +
|-
 +
|}
 +
</div></div>
 +
<br />
 +
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
 +
<pre style="border: 0; padding-bottom:0px;">function TWebStatusSub.NormalizedIntervalToStr(const DateTime:TDateTime):String;</pre>
 
<div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 
<div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
 
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
Line 268: Line 323:
 
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
 
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
 
<pre style="border: 0; padding-bottom:0px;">function TWebStatusSub.AddItemEx(AResponse:THTTPServerResponse; const AName,AValue:String; AIndent:LongWord):Boolean;</pre>
 
<pre style="border: 0; padding-bottom:0px;">function TWebStatusSub.AddItemEx(AResponse:THTTPServerResponse; const AName,AValue:String; AIndent:LongWord):Boolean;</pre>
 +
<div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 +
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
 +
{| class="wikitable" style="font-size: 14px; background: white;"
 +
|-
 +
! Note
 +
| None documented
 +
|-
 +
|}
 +
</div></div>
 +
<br />
 +
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
 +
<pre style="border: 0; padding-bottom:0px;">function TWebStatusSub.AddItemSpan(AResponse:THTTPServerResponse; const AValue:String; AColumns:LongWord; ABreak:Boolean):Boolean;</pre>
 +
<div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 +
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
 +
{| class="wikitable" style="font-size: 14px; background: white;"
 +
|-
 +
! Note
 +
| None documented
 +
|-
 +
|}
 +
</div></div>
 +
<br />
 +
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
 +
<pre style="border: 0; padding-bottom:0px;">function TWebStatusSub.AddItemSpanEx(AResponse:THTTPServerResponse; const AValue:String; AColumns,AIndent:LongWord; ABreak:Boolean):Boolean;</pre>
 
<div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 
<div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
 
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">

Latest revision as of 01:42, 24 August 2022

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 NormalizedDateToStr(const DateTime:TDateTime):String;  
function NormalizedTimeToStr(const DateTime:TDateTime):String;  
function NormalizedDateTimeToStr(const DateTime:TDateTime):String;  
 
function NormalizedIntervalToStr(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.NormalizedDateToStr(const DateTime:TDateTime):String;
Description: To be documented
Note None documented


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


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


function TWebStatusSub.NormalizedIntervalToStr(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