Property Page - Items:
On the Items tab the items are defined
Property Page - Appearence:
The font, colors and margins are defined on the appearence tab.
Frontpage ActiveX footprint:
<object classid="clsid:8D7A9359-C186-4731-AB41-75E67D5A168C"
id="SimpleStatX" width="437" height="123">
<param name="_Version" value="131072">
<param name="_ExtentX" value="11562">
<param name="_ExtentY" value="3254">
<param name="_StockProps" value="0">
<param name="ConfigXml" value="<SPB name="SimpleStatConfig">
<NTP_BOOL name="FontItalic" value="false"/>
<NTP_BOOL name="ShowInsideBorder" value="false"/>
<NTP_BOOL name="ShowOutsideBorder" value="false"/>
<NTP_BOOL name="ShowResetButton" value="false"/>
<NTP_INT name="BackgroundColour" value="16777215"/>
<NTP_INT name="Column1Percent" value="70"/>
<NTP_INT name="FontHeight" value="-19"/>
<NTP_INT name="FontWeight" value="700"/>
<NTP_INT name="InnerMargin" value="8"/>
<NTP_INT name="LineHeight" value="32"/>
<NTP_INT name="OuterMargin" value="14"/>
<NTP_INT name="TextColour" value="0"/>
<NTP_TXT name="FontName" value="Tahoma"/>
</SPB>
">
<param name="ItemsXml" value="<SPB name="SimpleStatItems">
<SPB name="item000">
<NTP_INT name="InitialValue" value="0"/>
<NTP_TXT name="Name" value="OK"/>
</SPB>
<SPB name="item001">
<NTP_INT name="InitialValue" value="0"/>
<NTP_TXT name="Name" value="Error"/>
</SPB>
<SPB name="item002">
<NTP_INT name="InitialValue" value="0"/>
<NTP_TXT name="Name" value="Total"/>
</SPB>
<NTP_INT name="Items" value="3"/>
</SPB>
">
</object>
Methods:
AboutBox;
Configure;
Dec;Item=VT_BSTR;N=VT_I4
Get;Item=VT_BSTR
GetConfigXml;
GetItemsXml;
Inc;Item=VT_BSTR;N=VT_I4
Reset;
Set;Item=VT_BSTR;Value=VT_I4
SetConfigXml;Value=VT_BSTR
SetItemsXml;Value=VT_BSTR
Events:
ConfigChange;
ItemsChange;
Script Example:
# vb-script on a html-page decoding the strin
# Statistics;Fail=12;Pass=3;OK=8;
sub ProcessStatistics(Command)
SendDebugMessage(Command)
str0 = Mid(Command,11)
pos = InStr(str0,";")
Do While pos ' Inner loop.
str1 = Mid(str0,1,pos-1)
pos1 = InStr(str1,"=")
if (pos1) then
name = Mid(str1,1,pos1-1)
value = Mid(str1,pos1+1)
SendDebugMessage(name + "-" + value)
SimpleStatX.Set name,value
end if
str0 = Mid(str0,pos+1)
pos = InStr(str0,";")
Loop
end sub
|