Gauge.ExtraCaption Property (ExGauge)

The control support unlimited HTML captions to be place anywhere on the control or on any layer of the control. The Caption( exLayerCaption) specifies the HTML caption to be shown on the control/layer. The Images method specifies the list of icons the control can display. The HTMLPicture adds or replaces a picture in HTML captions. The Caption( exLayerCaptionBackgroundExt) property indicates unlimited options to show any HTML text, images, colors, EBNs, patterns, frames anywhere on the control / layer's background. The caption on the control stay on its position, no matter what layer is moved or rotated, while a caption on a layer gets moved or rotated together with the layer itself.

Any of the following properties can be used to display a HTML caption:

Caption property specifies the caption to be shown on the control's foreground.
ExtraCaption property specifies any extra caption to be shown on the control's foreground.
Foreground.Caption specifies the caption to be shown on the layer's foreground.
Foreground.ExtraCaption specifies any extra caption to be shown on the layer's foreground.

The following screen shot shows a caption on the Top-Left side of the control, and one extra caption to to Bottom-Right side of the control:

The following samples show how you can place caption on the Top-Left side of the control, and one extra caption to to Bottom-Right side of the control:

VBA (MS Access, Excell...)

With Gauge1
	.BeginUpdate 
	.HTMLPicture("logo") = "E:\Exontrol\Exontrol.Logo\exontrol.logo.png"
	.PicturesPath = "C:\Program Files\Exontrol\ExGauge\Sample\Design\Circular\Knob 1"
	.PicturesName = "`Layer` + int(value  + 1) + `.png`"
	.Layers.Count = 5
	.Caption(0) = "This is just a caption"
	.ExtraCaption("logo",3) = 2
	.ExtraCaption("logo",8) = True
	.ExtraCaption("logo",6) = "164"
	.ExtraCaption("logo",4) = "width - 164"
	.ExtraCaption("logo",0) = "<c>This is our logo<br><c><img>logo</img>"
	.EndUpdate 
End With

VB6

With Gauge1
	.BeginUpdate 
	.HTMLPicture("logo") = "E:\Exontrol\Exontrol.Logo\exontrol.logo.png"
	.PicturesPath = "C:\Program Files\Exontrol\ExGauge\Sample\Design\Circular\Knob 1"
	.PicturesName = "`Layer` + int(value  + 1) + `.png`"
	.Layers.Count = 5
	.Caption(exLayerCaption) = "This is just a caption"
	.ExtraCaption("logo",exLayerCaptionAnchor) = 2
	.ExtraCaption("logo",exLayerCaptionWordWrap) = True
	.ExtraCaption("logo",exLayerCaptionWidth) = "164"
	.ExtraCaption("logo",exLayerCaptionLeft) = "width - 164"
	.ExtraCaption("logo",exLayerCaption) = "<c>This is our logo<br><c><img>logo</img>"
	.EndUpdate 
End With

VB.NET

With Exgauge1
	.BeginUpdate()
	.set_HTMLPicture("logo","E:\Exontrol\Exontrol.Logo\exontrol.logo.png")
	.PicturesPath = "C:\Program Files\Exontrol\ExGauge\Sample\Design\Circular\Knob 1"
	.PicturesName = "`Layer` + int(value  + 1) + `.png`"
	.Layers.Count = 5
	.set_Caption(exontrol.EXGAUGELib.PropertyLayerCaptionEnum.exLayerCaption,"This is just a caption")
	.set_ExtraCaption("logo",exontrol.EXGAUGELib.PropertyLayerCaptionEnum.exLayerCaptionAnchor,2)
	.set_ExtraCaption("logo",exontrol.EXGAUGELib.PropertyLayerCaptionEnum.exLayerCaptionWordWrap,True)
	.set_ExtraCaption("logo",exontrol.EXGAUGELib.PropertyLayerCaptionEnum.exLayerCaptionWidth,"164")
	.set_ExtraCaption("logo",exontrol.EXGAUGELib.PropertyLayerCaptionEnum.exLayerCaptionLeft,"width - 164")
	.set_ExtraCaption("logo",exontrol.EXGAUGELib.PropertyLayerCaptionEnum.exLayerCaption,"<c>This is our logo<br><c><img>logo</img>")
	.EndUpdate()
End With

VB.NET for /COM

With AxGauge1
	.BeginUpdate()
	.set_HTMLPicture("logo","E:\Exontrol\Exontrol.Logo\exontrol.logo.png")
	.PicturesPath = "C:\Program Files\Exontrol\ExGauge\Sample\Design\Circular\Knob 1"
	.PicturesName = "`Layer` + int(value  + 1) + `.png`"
	.Layers.Count = 5
	.set_Caption(EXGAUGELib.PropertyLayerCaptionEnum.exLayerCaption,"This is just a caption")
	.set_ExtraCaption("logo",EXGAUGELib.PropertyLayerCaptionEnum.exLayerCaptionAnchor,2)
	.set_ExtraCaption("logo",EXGAUGELib.PropertyLayerCaptionEnum.exLayerCaptionWordWrap,True)
	.set_ExtraCaption("logo",EXGAUGELib.PropertyLayerCaptionEnum.exLayerCaptionWidth,"164")
	.set_ExtraCaption("logo",EXGAUGELib.PropertyLayerCaptionEnum.exLayerCaptionLeft,"width - 164")
	.set_ExtraCaption("logo",EXGAUGELib.PropertyLayerCaptionEnum.exLayerCaption,"<c>This is our logo<br><c><img>logo</img>")
	.EndUpdate()
End With

C++

/*
	Copy and paste the following directives to your header file as
	it defines the namespace 'EXGAUGELib' for the library: 'ExGauge 1.0 Control Library'

	#import <ExGauge.dll>
	using namespace EXGAUGELib;
*/
EXGAUGELib::IGaugePtr spGauge1 = GetDlgItem(IDC_GAUGE1)->GetControlUnknown();
spGauge1->BeginUpdate();
spGauge1->PutHTMLPicture(L"logo","E:\\Exontrol\\Exontrol.Logo\\exontrol.logo.png");
spGauge1->PutPicturesPath(L"C:\\Program Files\\Exontrol\\ExGauge\\Sample\\Design\\Circular\\Knob 1");
spGauge1->PutPicturesName(L"`Layer` + int(value  + 1) + `.png`");
spGauge1->GetLayers()->PutCount(5);
spGauge1->PutCaption(EXGAUGELib::exLayerCaption,"This is just a caption");
spGauge1->PutExtraCaption("logo",EXGAUGELib::exLayerCaptionAnchor,long(2));
spGauge1->PutExtraCaption("logo",EXGAUGELib::exLayerCaptionWordWrap,VARIANT_TRUE);
spGauge1->PutExtraCaption("logo",EXGAUGELib::exLayerCaptionWidth,"164");
spGauge1->PutExtraCaption("logo",EXGAUGELib::exLayerCaptionLeft,"width - 164");
spGauge1->PutExtraCaption("logo",EXGAUGELib::exLayerCaption,"<c>This is our logo<br><c><img>logo</img>");
spGauge1->EndUpdate();

C++ Builder

Gauge1->BeginUpdate();
Gauge1->HTMLPicture[L"logo"] = TVariant("E:\\Exontrol\\Exontrol.Logo\\exontrol.logo.png");
Gauge1->PicturesPath = L"C:\\Program Files\\Exontrol\\ExGauge\\Sample\\Design\\Circular\\Knob 1";
Gauge1->PicturesName = L"`Layer` + int(value  + 1) + `.png`";
Gauge1->Layers->Count = 5;
Gauge1->Caption[Exgaugelib_tlb::PropertyLayerCaptionEnum::exLayerCaption] = TVariant("This is just a caption");
Gauge1->ExtraCaption[TVariant("logo"),Exgaugelib_tlb::PropertyLayerCaptionEnum::exLayerCaptionAnchor] = TVariant(2);
Gauge1->ExtraCaption[TVariant("logo"),Exgaugelib_tlb::PropertyLayerCaptionEnum::exLayerCaptionWordWrap] = TVariant(true);
Gauge1->ExtraCaption[TVariant("logo"),Exgaugelib_tlb::PropertyLayerCaptionEnum::exLayerCaptionWidth] = TVariant("164");
Gauge1->ExtraCaption[TVariant("logo"),Exgaugelib_tlb::PropertyLayerCaptionEnum::exLayerCaptionLeft] = TVariant("width - 164");
Gauge1->ExtraCaption[TVariant("logo"),Exgaugelib_tlb::PropertyLayerCaptionEnum::exLayerCaption] = TVariant("<c>This is our logo<br><c><img>logo</img>");
Gauge1->EndUpdate();

exgauge1.BeginUpdate();
exgauge1.set_HTMLPicture("logo","E:\\Exontrol\\Exontrol.Logo\\exontrol.logo.png");
exgauge1.PicturesPath = "C:\\Program Files\\Exontrol\\ExGauge\\Sample\\Design\\Circular\\Knob 1";
exgauge1.PicturesName = "`Layer` + int(value  + 1) + `.png`";
exgauge1.Layers.Count = 5;
exgauge1.set_Caption(exontrol.EXGAUGELib.PropertyLayerCaptionEnum.exLayerCaption,"This is just a caption");
exgauge1.set_ExtraCaption("logo",exontrol.EXGAUGELib.PropertyLayerCaptionEnum.exLayerCaptionAnchor,2);
exgauge1.set_ExtraCaption("logo",exontrol.EXGAUGELib.PropertyLayerCaptionEnum.exLayerCaptionWordWrap,true);
exgauge1.set_ExtraCaption("logo",exontrol.EXGAUGELib.PropertyLayerCaptionEnum.exLayerCaptionWidth,"164");
exgauge1.set_ExtraCaption("logo",exontrol.EXGAUGELib.PropertyLayerCaptionEnum.exLayerCaptionLeft,"width - 164");
exgauge1.set_ExtraCaption("logo",exontrol.EXGAUGELib.PropertyLayerCaptionEnum.exLayerCaption,"<c>This is our logo<br><c><img>logo</img>");
exgauge1.EndUpdate();

JScript/JavaScript

<BODY onload="Init()">
<OBJECT CLASSID="clsid:91628F12-393C-44EF-A558-83ED1790AAD3" id="Gauge1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gauge1.BeginUpdate();
	Gauge1.HTMLPicture("logo") = "E:\\Exontrol\\Exontrol.Logo\\exontrol.logo.png";
	Gauge1.PicturesPath = "C:\\Program Files\\Exontrol\\ExGauge\\Sample\\Design\\Circular\\Knob 1";
	Gauge1.PicturesName = "`Layer` + int(value  + 1) + `.png`";
	Gauge1.Layers.Count = 5;
	Gauge1.Caption(0) = "This is just a caption";
	Gauge1.ExtraCaption("logo",3) = 2;
	Gauge1.ExtraCaption("logo",8) = true;
	Gauge1.ExtraCaption("logo",6) = "164";
	Gauge1.ExtraCaption("logo",4) = "width - 164";
	Gauge1.ExtraCaption("logo",0) = "<c>This is our logo<br><c><img>logo</img>";
	Gauge1.EndUpdate();
}
</SCRIPT>
</BODY>

VBScript

<BODY onload="Init()">
<OBJECT CLASSID="clsid:91628F12-393C-44EF-A558-83ED1790AAD3" id="Gauge1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Gauge1
		.BeginUpdate 
		.HTMLPicture("logo") = "E:\Exontrol\Exontrol.Logo\exontrol.logo.png"
		.PicturesPath = "C:\Program Files\Exontrol\ExGauge\Sample\Design\Circular\Knob 1"
		.PicturesName = "`Layer` + int(value  + 1) + `.png`"
		.Layers.Count = 5
		.Caption(0) = "This is just a caption"
		.ExtraCaption("logo",3) = 2
		.ExtraCaption("logo",8) = True
		.ExtraCaption("logo",6) = "164"
		.ExtraCaption("logo",4) = "width - 164"
		.ExtraCaption("logo",0) = "<c>This is our logo<br><c><img>logo</img>"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

C# for /COM

axGauge1.BeginUpdate();
axGauge1.set_HTMLPicture("logo","E:\\Exontrol\\Exontrol.Logo\\exontrol.logo.png");
axGauge1.PicturesPath = "C:\\Program Files\\Exontrol\\ExGauge\\Sample\\Design\\Circular\\Knob 1";
axGauge1.PicturesName = "`Layer` + int(value  + 1) + `.png`";
axGauge1.Layers.Count = 5;
axGauge1.set_Caption(EXGAUGELib.PropertyLayerCaptionEnum.exLayerCaption,"This is just a caption");
axGauge1.set_ExtraCaption("logo",EXGAUGELib.PropertyLayerCaptionEnum.exLayerCaptionAnchor,2);
axGauge1.set_ExtraCaption("logo",EXGAUGELib.PropertyLayerCaptionEnum.exLayerCaptionWordWrap,true);
axGauge1.set_ExtraCaption("logo",EXGAUGELib.PropertyLayerCaptionEnum.exLayerCaptionWidth,"164");
axGauge1.set_ExtraCaption("logo",EXGAUGELib.PropertyLayerCaptionEnum.exLayerCaptionLeft,"width - 164");
axGauge1.set_ExtraCaption("logo",EXGAUGELib.PropertyLayerCaptionEnum.exLayerCaption,"<c>This is our logo<br><c><img>logo</img>");
axGauge1.EndUpdate();

X++ (Dynamics Ax 2009)

public void init()
{
	;

	super();

	exgauge1.BeginUpdate();
	exgauge1.HTMLPicture("logo","E:\\Exontrol\\Exontrol.Logo\\exontrol.logo.png");
	exgauge1.PicturesPath("C:\\Program Files\\Exontrol\\ExGauge\\Sample\\Design\\Circular\\Knob 1");
	exgauge1.PicturesName("`Layer` + int(value  + 1) + `.png`");
	exgauge1.Layers().Count(5);
	exgauge1.Caption(0/*exLayerCaption*/,"This is just a caption");
	exgauge1.ExtraCaption("logo",3/*exLayerCaptionAnchor*/,COMVariant::createFromInt(2));
	exgauge1.ExtraCaption("logo",8/*exLayerCaptionWordWrap*/,COMVariant::createFromBoolean(true));
	exgauge1.ExtraCaption("logo",6/*exLayerCaptionWidth*/,"164");
	exgauge1.ExtraCaption("logo",4/*exLayerCaptionLeft*/,"width - 164");
	exgauge1.ExtraCaption("logo",0/*exLayerCaption*/,"<c>This is our logo<br><c><img>logo</img>");
	exgauge1.EndUpdate();
}

Delphi 8 (.NET only)

with AxGauge1 do
begin
	BeginUpdate();
	set_HTMLPicture('logo','E:\Exontrol\Exontrol.Logo\exontrol.logo.png');
	PicturesPath := 'C:\Program Files\Exontrol\ExGauge\Sample\Design\Circular\Knob 1';
	PicturesName := '`Layer` + int(value  + 1) + `.png`';
	Layers.Count := 5;
	set_Caption(EXGAUGELib.PropertyLayerCaptionEnum.exLayerCaption,'This is just a caption');
	set_ExtraCaption('logo',EXGAUGELib.PropertyLayerCaptionEnum.exLayerCaptionAnchor,TObject(2));
	set_ExtraCaption('logo',EXGAUGELib.PropertyLayerCaptionEnum.exLayerCaptionWordWrap,TObject(True));
	set_ExtraCaption('logo',EXGAUGELib.PropertyLayerCaptionEnum.exLayerCaptionWidth,'164');
	set_ExtraCaption('logo',EXGAUGELib.PropertyLayerCaptionEnum.exLayerCaptionLeft,'width - 164');
	set_ExtraCaption('logo',EXGAUGELib.PropertyLayerCaptionEnum.exLayerCaption,'<c>This is our logo<br><c><img>logo</img>');
	EndUpdate();
end

Delphi (standard)

with Gauge1 do
begin
	BeginUpdate();
	HTMLPicture['logo'] := 'E:\Exontrol\Exontrol.Logo\exontrol.logo.png';
	PicturesPath := 'C:\Program Files\Exontrol\ExGauge\Sample\Design\Circular\Knob 1';
	PicturesName := '`Layer` + int(value  + 1) + `.png`';
	Layers.Count := 5;
	Caption[EXGAUGELib_TLB.exLayerCaption] := 'This is just a caption';
	ExtraCaption['logo',EXGAUGELib_TLB.exLayerCaptionAnchor] := OleVariant(2);
	ExtraCaption['logo',EXGAUGELib_TLB.exLayerCaptionWordWrap] := OleVariant(True);
	ExtraCaption['logo',EXGAUGELib_TLB.exLayerCaptionWidth] := '164';
	ExtraCaption['logo',EXGAUGELib_TLB.exLayerCaptionLeft] := 'width - 164';
	ExtraCaption['logo',EXGAUGELib_TLB.exLayerCaption] := '<c>This is our logo<br><c><img>logo</img>';
	EndUpdate();
end

VFP

with thisform.Gauge1
	.BeginUpdate
	.Object.HTMLPicture("logo") = "E:\Exontrol\Exontrol.Logo\exontrol.logo.png"
	.PicturesPath = "C:\Program Files\Exontrol\ExGauge\Sample\Design\Circular\Knob 1"
	.PicturesName = "`Layer` + int(value  + 1) + `.png`"
	.Layers.Count = 5
	.Object.Caption(0) = "This is just a caption"
	.Object.ExtraCaption("logo",3) = 2
	.Object.ExtraCaption("logo",8) = .T.
	.Object.ExtraCaption("logo",6) = "164"
	.Object.ExtraCaption("logo",4) = "width - 164"
	.Object.ExtraCaption("logo",0) = "<c>This is our logo<br><c><img>logo</img>"
	.EndUpdate
endwith

dBASE Plus

local oGauge

oGauge = form.EXGAUGEACTIVEXCONTROL1.nativeObject
oGauge.BeginUpdate()
oGauge.Template = [HTMLPicture("logo") = "E:\Exontrol\Exontrol.Logo\exontrol.logo.png"] // oGauge.HTMLPicture("logo") = "E:\Exontrol\Exontrol.Logo\exontrol.logo.png"
oGauge.PicturesPath = "C:\Program Files\Exontrol\ExGauge\Sample\Design\Circular\Knob 1"
oGauge.PicturesName = "`Layer` + int(value  + 1) + `.png`"
oGauge.Layers.Count = 5
oGauge.Template = [Caption(0) = "This is just a caption"] // oGauge.Caption(0) = "This is just a caption"
oGauge.Template = [ExtraCaption("logo",3) = 2] // oGauge.ExtraCaption("logo",3) = 2
oGauge.Template = [ExtraCaption("logo",8) = True] // oGauge.ExtraCaption("logo",8) = true
oGauge.Template = [ExtraCaption("logo",6) = "164"] // oGauge.ExtraCaption("logo",6) = "164"
oGauge.Template = [ExtraCaption("logo",4) = "width - 164"] // oGauge.ExtraCaption("logo",4) = "width - 164"
oGauge.Template = [ExtraCaption("logo",0) = "<c>This is our logo<br><c><img>logo</img>"] // oGauge.ExtraCaption("logo",0) = "<c>This is our logo<br><c><img>logo</img>"
oGauge.EndUpdate()

XBasic (Alpha Five)

Dim oGauge as P

oGauge = topparent:CONTROL_ACTIVEX1.activex
oGauge.BeginUpdate()
oGauge.Template = "HTMLPicture(`logo`) = `E:\Exontrol\Exontrol.Logo\exontrol.logo.png`" // oGauge.HTMLPicture("logo") = "E:\Exontrol\Exontrol.Logo\exontrol.logo.png"
oGauge.PicturesPath = "C:\Program Files\Exontrol\ExGauge\Sample\Design\Circular\Knob 1"
oGauge.PicturesName = "`Layer` + int(value  + 1) + `.png`"
oGauge.Layers.Count = 5
oGauge.Template = "Caption(0) = `This is just a caption`" // oGauge.Caption(0) = "This is just a caption"
oGauge.Template = "ExtraCaption(`logo`,3) = 2" // oGauge.ExtraCaption("logo",3) = 2
oGauge.Template = "ExtraCaption(`logo`,8) = True" // oGauge.ExtraCaption("logo",8) = .t.
oGauge.Template = "ExtraCaption(`logo`,6) = `164`" // oGauge.ExtraCaption("logo",6) = "164"
oGauge.Template = "ExtraCaption(`logo`,4) = `width - 164`" // oGauge.ExtraCaption("logo",4) = "width - 164"
oGauge.Template = "ExtraCaption(`logo`,0) = `<c>This is our logo<br><c><img>logo</img>`" // oGauge.ExtraCaption("logo",0) = "<c>This is our logo<br><c><img>logo</img>"
oGauge.EndUpdate()

Visual Objects


oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:[HTMLPicture,"logo"] := "E:\Exontrol\Exontrol.Logo\exontrol.logo.png"
oDCOCX_Exontrol1:PicturesPath := "C:\Program Files\Exontrol\ExGauge\Sample\Design\Circular\Knob 1"
oDCOCX_Exontrol1:PicturesName := "`Layer` + int(value  + 1) + `.png`"
oDCOCX_Exontrol1:Layers:Count := 5
oDCOCX_Exontrol1:[Caption,exLayerCaption] := "This is just a caption"
oDCOCX_Exontrol1:[ExtraCaption,"logo",exLayerCaptionAnchor] := 2
oDCOCX_Exontrol1:[ExtraCaption,"logo",exLayerCaptionWordWrap] := true
oDCOCX_Exontrol1:[ExtraCaption,"logo",exLayerCaptionWidth] := "164"
oDCOCX_Exontrol1:[ExtraCaption,"logo",exLayerCaptionLeft] := "width - 164"
oDCOCX_Exontrol1:[ExtraCaption,"logo",exLayerCaption] := "<c>This is our logo<br><c><img>logo</img>"
oDCOCX_Exontrol1:EndUpdate()

PowerBuilder

OleObject oGauge

oGauge = ole_1.Object
oGauge.BeginUpdate()
oGauge.HTMLPicture("logo","E:\Exontrol\Exontrol.Logo\exontrol.logo.png")
oGauge.PicturesPath = "C:\Program Files\Exontrol\ExGauge\Sample\Design\Circular\Knob 1"
oGauge.PicturesName = "`Layer` + int(value  + 1) + `.png`"
oGauge.Layers.Count = 5
oGauge.Caption(0,"This is just a caption")
oGauge.ExtraCaption("logo",3,2)
oGauge.ExtraCaption("logo",8,true)
oGauge.ExtraCaption("logo",6,"164")
oGauge.ExtraCaption("logo",4,"width - 164")
oGauge.ExtraCaption("logo",0,"<c>This is our logo<br><c><img>logo</img>")
oGauge.EndUpdate()

Visual DataFlex

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComHTMLPicture "logo" to "E:\Exontrol\Exontrol.Logo\exontrol.logo.png"
	Set ComPicturesPath to "C:\Program Files\Exontrol\ExGauge\Sample\Design\Circular\Knob 1"
	Set ComPicturesName to "`Layer` + int(value  + 1) + `.png`"
	Variant voLayers
	Get ComLayers to voLayers
	Handle hoLayers
	Get Create (RefClass(cComLayers)) to hoLayers
	Set pvComObject of hoLayers to voLayers
		Set ComCount of hoLayers to 5
	Send Destroy to hoLayers
	Set ComCaption OLEexLayerCaption to "This is just a caption"
	Set ComExtraCaption "logo" OLEexLayerCaptionAnchor to 2
	Set ComExtraCaption "logo" OLEexLayerCaptionWordWrap to True
	Set ComExtraCaption "logo" OLEexLayerCaptionWidth to "164"
	Set ComExtraCaption "logo" OLEexLayerCaptionLeft to "width - 164"
	Set ComExtraCaption "logo" OLEexLayerCaption to "<c>This is our logo<br><c><img>logo</img>"
	Send ComEndUpdate
End_Procedure

XBase++

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oGauge

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oGauge := XbpActiveXControl():new( oForm:drawingArea )
	oGauge:CLSID  := "Exontrol.Gauge.1" /*{91628F12-393C-44EF-A558-83ED1790AAD3}*/
	oGauge:create(,, {10,60},{610,370} )

		oGauge:BeginUpdate()
		oGauge:SetProperty("HTMLPicture","logo","E:\Exontrol\Exontrol.Logo\exontrol.logo.png")
		oGauge:PicturesPath := "C:\Program Files\Exontrol\ExGauge\Sample\Design\Circular\Knob 1"
		oGauge:PicturesName := "`Layer` + int(value  + 1) + `.png`"
		oGauge:Layers():Count := 5
		oGauge:SetProperty("Caption",0/*exLayerCaption*/,"This is just a caption")
		oGauge:SetProperty("ExtraCaption","logo",3/*exLayerCaptionAnchor*/,2)
		oGauge:SetProperty("ExtraCaption","logo",8/*exLayerCaptionWordWrap*/,.T.)
		oGauge:SetProperty("ExtraCaption","logo",6/*exLayerCaptionWidth*/,"164")
		oGauge:SetProperty("ExtraCaption","logo",4/*exLayerCaptionLeft*/,"width - 164")
		oGauge:SetProperty("ExtraCaption","logo",0/*exLayerCaption*/,"<c>This is our logo<br><c><img>logo</img>")
		oGauge:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN

		Type	Description
		Key as Variant	A VARIANT expression that specifies the key of the extra caption. You can use any value to identify one extra caption.
		Property as PropertyLayerCaptionEnum	A PropertyLayerCaptionEnum expression that specifies the extra caption's property to be changed.
		Variant	A VARIANT expression that specifies the value of the extra caption's property.