property RadialMenu.AllowHotPointer as Boolean
Indicates whether the pointer is oriented to the item, while hovering the radial menu.

TypeDescription
Boolean A Boolean expression that indicates whether the pointer is oriented to the item, while hovering the radial menu.
By default, the AllowHotPointer property is False. The AllowHotPointer property indicates whether the pointer is oriented to the item, while hovering the radial menu. No pointer is shown, while the PointerPicture property is empty, even if the AllowHotPointer property is True. The PointerPicture property indicates the picture to be shown on the pointer zone's background. The SelectedIndex property specifies the index of the item/slice to be selected.

The following screen show show a pointer over the control:

The following properties specifies where the pointer picture should be placed, relative to the center of the radial menu:

The PointerIndex property specifies the index within the radial menu to target the pointer. The PointerAngle property specifies the angle of the pointer to target another item or index.

The following sample show how you can assign a hot pointer to your radial menu:

VBA (MS Access, Excell...)

With RadialMenu1
	.BeginUpdate 
	.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	.PointerPicture = "pointer.png"
	.PointerIndex = -1
	.PointerPictureY = "y + (height-pheight)/2- 21*dpi"
	.PointerPictureX = "x + (width-pwidth)/2 + 1 * dpi"
	.AllowHotPointer = True
	.SelBackAlpha(3) = 128
	.SelForeColor(3) = RGB(0,0,0)
	.ParentSize = "36*dpi"
	.ParentImageHeight(-1) = "48*dpi"
	.ParentImageWidth(-1) = "48*dpi"
	.RadialLineSize(8) = -1
	.RadialLineAlpha(8) = 32
	.RadialLineColor(11) = -1
	.Expanded = True
	.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
	.EndUpdate 
End With

VB6

With RadialMenu1
	.BeginUpdate 
	.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	.PointerPicture = "pointer.png"
	.PointerIndex = -1
	.PointerPictureY = "y + (height-pheight)/2- 21*dpi"
	.PointerPictureX = "x + (width-pwidth)/2 + 1 * dpi"
	.AllowHotPointer = True
	.SelBackAlpha(exRadialFullItems) = 128
	.SelForeColor(exRadialFullItems) = RGB(0,0,0)
	.ParentSize = "36*dpi"
	.ParentImageHeight(exRadialMenuStateAll) = "48*dpi"
	.ParentImageWidth(exRadialMenuStateAll) = "48*dpi"
	.RadialLineSize(exRadialHotParent) = -1
	.RadialLineAlpha(exRadialHotParent) = 32
	.RadialLineColor(exRadialHotFullItem) = -1
	.Expanded = True
	.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
	.EndUpdate 
End With

VB.NET

With Exradialmenu1
	.BeginUpdate()
	.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	.PointerPicture = "pointer.png"
	.PointerIndex = -1
	.PointerPictureY = "y + (height-pheight)/2- 21*dpi"
	.PointerPictureX = "x + (width-pwidth)/2 + 1 * dpi"
	.AllowHotPointer = True
	.set_SelBackAlpha(exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,128)
	.set_SelForeColor(exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,Color.FromArgb(0,0,0))
	.ParentSize = "36*dpi"
	.set_ParentImageHeight(exontrol.EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,"48*dpi")
	.set_ParentImageWidth(exontrol.EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,"48*dpi")
	.set_RadialLineSize(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialHotParent,-1)
	.set_RadialLineAlpha(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialHotParent,32)
	.set_RadialLineColor32(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,-1)
	.Expanded = True
	.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
	.EndUpdate()
End With

VB.NET for /COM

With AxRadialMenu1
	.BeginUpdate()
	.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	.PointerPicture = "pointer.png"
	.PointerIndex = -1
	.PointerPictureY = "y + (height-pheight)/2- 21*dpi"
	.PointerPictureX = "x + (width-pwidth)/2 + 1 * dpi"
	.AllowHotPointer = True
	.set_SelBackAlpha(EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,128)
	.set_SelForeColor(EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,0)
	.ParentSize = "36*dpi"
	.set_ParentImageHeight(EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,"48*dpi")
	.set_ParentImageWidth(EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,"48*dpi")
	.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialHotParent,-1)
	.set_RadialLineAlpha(EXRADIALMENULib.RadialLineEnum.exRadialHotParent,32)
	.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,-1)
	.Expanded = True
	.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
	.EndUpdate()
End With

C++

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

	#import <ExRadialMenu.dll>
	using namespace EXRADIALMENULib;
*/
EXRADIALMENULib::IRadialMenuPtr spRadialMenu1 = GetDlgItem(IDC_RADIALMENU1)->GetControlUnknown();
spRadialMenu1->BeginUpdate();
spRadialMenu1->PutPicturesPath(L"C:\\Program Files\\Exontrol\\ExRadialMenu\\Sample\\Images");
spRadialMenu1->PutPointerPicture("pointer.png");
spRadialMenu1->PutPointerIndex(-1);
spRadialMenu1->PutPointerPictureY(L"y + (height-pheight)/2- 21*dpi");
spRadialMenu1->PutPointerPictureX(L"x + (width-pwidth)/2 + 1 * dpi");
spRadialMenu1->PutAllowHotPointer(VARIANT_TRUE);
spRadialMenu1->PutSelBackAlpha(EXRADIALMENULib::exRadialFullItems,128);
spRadialMenu1->PutSelForeColor(EXRADIALMENULib::exRadialFullItems,RGB(0,0,0));
spRadialMenu1->PutParentSize(L"36*dpi");
spRadialMenu1->PutParentImageHeight(EXRADIALMENULib::exRadialMenuStateAll,L"48*dpi");
spRadialMenu1->PutParentImageWidth(EXRADIALMENULib::exRadialMenuStateAll,L"48*dpi");
spRadialMenu1->PutRadialLineSize(EXRADIALMENULib::exRadialHotParent,-1);
spRadialMenu1->PutRadialLineAlpha(EXRADIALMENULib::exRadialHotParent,32);
spRadialMenu1->PutRadialLineColor(EXRADIALMENULib::exRadialHotFullItem,-1);
spRadialMenu1->PutExpanded(VARIANT_TRUE);
spRadialMenu1->GetItems()->PutToString(L"Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8");
spRadialMenu1->EndUpdate();

C++ Builder

RadialMenu1->BeginUpdate();
RadialMenu1->PicturesPath = L"C:\\Program Files\\Exontrol\\ExRadialMenu\\Sample\\Images";
RadialMenu1->set_PointerPicture(TVariant("pointer.png"));
RadialMenu1->PointerIndex = -1;
RadialMenu1->PointerPictureY = L"y + (height-pheight)/2- 21*dpi";
RadialMenu1->PointerPictureX = L"x + (width-pwidth)/2 + 1 * dpi";
RadialMenu1->AllowHotPointer = true;
RadialMenu1->SelBackAlpha[Exradialmenulib_tlb::RadialItemsEnum::exRadialFullItems] = 128;
RadialMenu1->SelForeColor[Exradialmenulib_tlb::RadialItemsEnum::exRadialFullItems] = RGB(0,0,0);
RadialMenu1->ParentSize = L"36*dpi";
RadialMenu1->ParentImageHeight[Exradialmenulib_tlb::RadialMenuStateEnum::exRadialMenuStateAll] = L"48*dpi";
RadialMenu1->ParentImageWidth[Exradialmenulib_tlb::RadialMenuStateEnum::exRadialMenuStateAll] = L"48*dpi";
RadialMenu1->RadialLineSize[Exradialmenulib_tlb::RadialLineEnum::exRadialHotParent] = -1;
RadialMenu1->RadialLineAlpha[Exradialmenulib_tlb::RadialLineEnum::exRadialHotParent] = 32;
RadialMenu1->RadialLineColor[Exradialmenulib_tlb::RadialLineEnum::exRadialHotFullItem] = -1;
RadialMenu1->Expanded = true;
RadialMenu1->Items->ToString = L"Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8";
RadialMenu1->EndUpdate();

C#

exradialmenu1.BeginUpdate();
exradialmenu1.PicturesPath = "C:\\Program Files\\Exontrol\\ExRadialMenu\\Sample\\Images";
exradialmenu1.PointerPicture = "pointer.png";
exradialmenu1.PointerIndex = -1;
exradialmenu1.PointerPictureY = "y + (height-pheight)/2- 21*dpi";
exradialmenu1.PointerPictureX = "x + (width-pwidth)/2 + 1 * dpi";
exradialmenu1.AllowHotPointer = true;
exradialmenu1.set_SelBackAlpha(exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,128);
exradialmenu1.set_SelForeColor(exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,Color.FromArgb(0,0,0));
exradialmenu1.ParentSize = "36*dpi";
exradialmenu1.set_ParentImageHeight(exontrol.EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,"48*dpi");
exradialmenu1.set_ParentImageWidth(exontrol.EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,"48*dpi");
exradialmenu1.set_RadialLineSize(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialHotParent,-1);
exradialmenu1.set_RadialLineAlpha(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialHotParent,32);
exradialmenu1.set_RadialLineColor32(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,-1);
exradialmenu1.Expanded = true;
exradialmenu1.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8";
exradialmenu1.EndUpdate();

JScript/JavaScript

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	RadialMenu1.BeginUpdate();
	RadialMenu1.PicturesPath = "C:\\Program Files\\Exontrol\\ExRadialMenu\\Sample\\Images";
	RadialMenu1.PointerPicture = "pointer.png";
	RadialMenu1.PointerIndex = -1;
	RadialMenu1.PointerPictureY = "y + (height-pheight)/2- 21*dpi";
	RadialMenu1.PointerPictureX = "x + (width-pwidth)/2 + 1 * dpi";
	RadialMenu1.AllowHotPointer = true;
	RadialMenu1.SelBackAlpha(3) = 128;
	RadialMenu1.SelForeColor(3) = 0;
	RadialMenu1.ParentSize = "36*dpi";
	RadialMenu1.ParentImageHeight(-1) = "48*dpi";
	RadialMenu1.ParentImageWidth(-1) = "48*dpi";
	RadialMenu1.RadialLineSize(8) = -1;
	RadialMenu1.RadialLineAlpha(8) = 32;
	RadialMenu1.RadialLineColor(11) = -1;
	RadialMenu1.Expanded = true;
	RadialMenu1.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8";
	RadialMenu1.EndUpdate();
}
</SCRIPT>
</BODY>

VBScript

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With RadialMenu1
		.BeginUpdate 
		.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
		.PointerPicture = "pointer.png"
		.PointerIndex = -1
		.PointerPictureY = "y + (height-pheight)/2- 21*dpi"
		.PointerPictureX = "x + (width-pwidth)/2 + 1 * dpi"
		.AllowHotPointer = True
		.SelBackAlpha(3) = 128
		.SelForeColor(3) = RGB(0,0,0)
		.ParentSize = "36*dpi"
		.ParentImageHeight(-1) = "48*dpi"
		.ParentImageWidth(-1) = "48*dpi"
		.RadialLineSize(8) = -1
		.RadialLineAlpha(8) = 32
		.RadialLineColor(11) = -1
		.Expanded = True
		.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

C# for /COM

axRadialMenu1.BeginUpdate();
axRadialMenu1.PicturesPath = "C:\\Program Files\\Exontrol\\ExRadialMenu\\Sample\\Images";
axRadialMenu1.PointerPicture = "pointer.png";
axRadialMenu1.PointerIndex = -1;
axRadialMenu1.PointerPictureY = "y + (height-pheight)/2- 21*dpi";
axRadialMenu1.PointerPictureX = "x + (width-pwidth)/2 + 1 * dpi";
axRadialMenu1.AllowHotPointer = true;
axRadialMenu1.set_SelBackAlpha(EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,128);
axRadialMenu1.set_SelForeColor(EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,(uint)ColorTranslator.ToWin32(Color.FromArgb(0,0,0)));
axRadialMenu1.ParentSize = "36*dpi";
axRadialMenu1.set_ParentImageHeight(EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,"48*dpi");
axRadialMenu1.set_ParentImageWidth(EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,"48*dpi");
axRadialMenu1.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialHotParent,-1);
axRadialMenu1.set_RadialLineAlpha(EXRADIALMENULib.RadialLineEnum.exRadialHotParent,32);
axRadialMenu1.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,-1);
axRadialMenu1.Expanded = true;
axRadialMenu1.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8";
axRadialMenu1.EndUpdate();

X++ (Dynamics Ax 2009)

public void init()
{
	;

	super();

	exradialmenu1.BeginUpdate();
	exradialmenu1.PicturesPath("C:\\Program Files\\Exontrol\\ExRadialMenu\\Sample\\Images");
	exradialmenu1.PointerPicture("pointer.png");
	exradialmenu1.PointerIndex(-1);
	exradialmenu1.PointerPictureY("y + (height-pheight)/2- 21*dpi");
	exradialmenu1.PointerPictureX("x + (width-pwidth)/2 + 1 * dpi");
	exradialmenu1.AllowHotPointer(true);
	exradialmenu1.SelBackAlpha(3/*exRadialFullItems*/,128);
	exradialmenu1.SelForeColor(3/*exRadialFullItems*/,WinApi::RGB2int(0,0,0));
	exradialmenu1.ParentSize("36*dpi");
	exradialmenu1.ParentImageHeight(-1/*exRadialMenuStateAll*/,"48*dpi");
	exradialmenu1.ParentImageWidth(-1/*exRadialMenuStateAll*/,"48*dpi");
	exradialmenu1.RadialLineSize(8/*exRadialHotParent*/,-1);
	exradialmenu1.RadialLineAlpha(8/*exRadialHotParent*/,32);
	exradialmenu1.RadialLineColor(11/*exRadialHotFullItem*/,-1);
	exradialmenu1.Expanded(true);
	exradialmenu1.Items().ToString("Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8");
	exradialmenu1.EndUpdate();
}

Delphi 8 (.NET only)

with AxRadialMenu1 do
begin
	BeginUpdate();
	PicturesPath := 'C:\Program Files\Exontrol\ExRadialMenu\Sample\Images';
	PointerPicture := 'pointer.png';
	PointerIndex := -1;
	PointerPictureY := 'y + (height-pheight)/2- 21*dpi';
	PointerPictureX := 'x + (width-pwidth)/2 + 1 * dpi';
	AllowHotPointer := True;
	set_SelBackAlpha(EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,128);
	set_SelForeColor(EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,$0);
	ParentSize := '36*dpi';
	set_ParentImageHeight(EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,'48*dpi');
	set_ParentImageWidth(EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,'48*dpi');
	set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialHotParent,-1);
	set_RadialLineAlpha(EXRADIALMENULib.RadialLineEnum.exRadialHotParent,32);
	set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,$ffffffff);
	Expanded := True;
	Items.ToString := 'Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8';
	EndUpdate();
end

Delphi (standard)

with RadialMenu1 do
begin
	BeginUpdate();
	PicturesPath := 'C:\Program Files\Exontrol\ExRadialMenu\Sample\Images';
	PointerPicture := 'pointer.png';
	PointerIndex := -1;
	PointerPictureY := 'y + (height-pheight)/2- 21*dpi';
	PointerPictureX := 'x + (width-pwidth)/2 + 1 * dpi';
	AllowHotPointer := True;
	SelBackAlpha[EXRADIALMENULib_TLB.exRadialFullItems] := 128;
	SelForeColor[EXRADIALMENULib_TLB.exRadialFullItems] := $0;
	ParentSize := '36*dpi';
	ParentImageHeight[EXRADIALMENULib_TLB.exRadialMenuStateAll] := '48*dpi';
	ParentImageWidth[EXRADIALMENULib_TLB.exRadialMenuStateAll] := '48*dpi';
	RadialLineSize[EXRADIALMENULib_TLB.exRadialHotParent] := -1;
	RadialLineAlpha[EXRADIALMENULib_TLB.exRadialHotParent] := 32;
	RadialLineColor[EXRADIALMENULib_TLB.exRadialHotFullItem] := $ffffffff;
	Expanded := True;
	Items.ToString := 'Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8';
	EndUpdate();
end

VFP

with thisform.RadialMenu1
	.BeginUpdate
	.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	.PointerPicture = "pointer.png"
	.PointerIndex = -1
	.PointerPictureY = "y + (height-pheight)/2- 21*dpi"
	.PointerPictureX = "x + (width-pwidth)/2 + 1 * dpi"
	.AllowHotPointer = .T.
	.Object.SelBackAlpha(3) = 128
	.Object.SelForeColor(3) = RGB(0,0,0)
	.ParentSize = "36*dpi"
	.Object.ParentImageHeight(-1) = "48*dpi"
	.Object.ParentImageWidth(-1) = "48*dpi"
	.Object.RadialLineSize(8) = -1
	.Object.RadialLineAlpha(8) = 32
	.Object.RadialLineColor(11) = -1
	.Expanded = .T.
	.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
	.EndUpdate
endwith

dBASE Plus

local oRadialMenu

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.BeginUpdate()
oRadialMenu.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oRadialMenu.PointerPicture = "pointer.png"
oRadialMenu.PointerIndex = -1
oRadialMenu.PointerPictureY = "y + (height-pheight)/2- 21*dpi"
oRadialMenu.PointerPictureX = "x + (width-pwidth)/2 + 1 * dpi"
oRadialMenu.AllowHotPointer = true
oRadialMenu.Template = [SelBackAlpha(3) = 128] // oRadialMenu.SelBackAlpha(3) = 128
oRadialMenu.Template = [SelForeColor(3) = 0] // oRadialMenu.SelForeColor(3) = 0x0
oRadialMenu.ParentSize = "36*dpi"
oRadialMenu.Template = [ParentImageHeight(-1) = "48*dpi"] // oRadialMenu.ParentImageHeight(-1) = "48*dpi"
oRadialMenu.Template = [ParentImageWidth(-1) = "48*dpi"] // oRadialMenu.ParentImageWidth(-1) = "48*dpi"
oRadialMenu.Template = [RadialLineSize(8) = -1] // oRadialMenu.RadialLineSize(8) = -1
oRadialMenu.Template = [RadialLineAlpha(8) = 32] // oRadialMenu.RadialLineAlpha(8) = 32
oRadialMenu.Template = [RadialLineColor(11) = -1] // oRadialMenu.RadialLineColor(11) = -1
oRadialMenu.Expanded = true
oRadialMenu.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
oRadialMenu.EndUpdate()

XBasic (Alpha Five)

Dim oRadialMenu as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.BeginUpdate()
oRadialMenu.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oRadialMenu.PointerPicture = "pointer.png"
oRadialMenu.PointerIndex = -1
oRadialMenu.PointerPictureY = "y + (height-pheight)/2- 21*dpi"
oRadialMenu.PointerPictureX = "x + (width-pwidth)/2 + 1 * dpi"
oRadialMenu.AllowHotPointer = .t.
oRadialMenu.Template = "SelBackAlpha(3) = 128" // oRadialMenu.SelBackAlpha(3) = 128
oRadialMenu.Template = "SelForeColor(3) = 0" // oRadialMenu.SelForeColor(3) = 0
oRadialMenu.ParentSize = "36*dpi"
oRadialMenu.Template = "ParentImageHeight(-1) = `48*dpi`" // oRadialMenu.ParentImageHeight(-1) = "48*dpi"
oRadialMenu.Template = "ParentImageWidth(-1) = `48*dpi`" // oRadialMenu.ParentImageWidth(-1) = "48*dpi"
oRadialMenu.Template = "RadialLineSize(8) = -1" // oRadialMenu.RadialLineSize(8) = -1
oRadialMenu.Template = "RadialLineAlpha(8) = 32" // oRadialMenu.RadialLineAlpha(8) = 32
oRadialMenu.Template = "RadialLineColor(11) = -1" // oRadialMenu.RadialLineColor(11) = -1
oRadialMenu.Expanded = .t.
oRadialMenu.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
oRadialMenu.EndUpdate()

Visual Objects


oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:PicturesPath := "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oDCOCX_Exontrol1:PointerPicture := "pointer.png"
oDCOCX_Exontrol1:PointerIndex := -1
oDCOCX_Exontrol1:PointerPictureY := "y + (height-pheight)/2- 21*dpi"
oDCOCX_Exontrol1:PointerPictureX := "x + (width-pwidth)/2 + 1 * dpi"
oDCOCX_Exontrol1:AllowHotPointer := true
oDCOCX_Exontrol1:[SelBackAlpha,exRadialFullItems] := 128
oDCOCX_Exontrol1:[SelForeColor,exRadialFullItems] := RGB(0,0,0)
oDCOCX_Exontrol1:ParentSize := "36*dpi"
oDCOCX_Exontrol1:[ParentImageHeight,exRadialMenuStateAll] := "48*dpi"
oDCOCX_Exontrol1:[ParentImageWidth,exRadialMenuStateAll] := "48*dpi"
oDCOCX_Exontrol1:[RadialLineSize,exRadialHotParent] := -1
oDCOCX_Exontrol1:[RadialLineAlpha,exRadialHotParent] := 32
oDCOCX_Exontrol1:[RadialLineColor,exRadialHotFullItem] := -1
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:Items:ToString := "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
oDCOCX_Exontrol1:EndUpdate()

PowerBuilder

OleObject oRadialMenu

oRadialMenu = ole_1.Object
oRadialMenu.BeginUpdate()
oRadialMenu.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oRadialMenu.PointerPicture = "pointer.png"
oRadialMenu.PointerIndex = -1
oRadialMenu.PointerPictureY = "y + (height-pheight)/2- 21*dpi"
oRadialMenu.PointerPictureX = "x + (width-pwidth)/2 + 1 * dpi"
oRadialMenu.AllowHotPointer = true
oRadialMenu.SelBackAlpha(3,128)
oRadialMenu.SelForeColor(3,RGB(0,0,0))
oRadialMenu.ParentSize = "36*dpi"
oRadialMenu.ParentImageHeight(-1,"48*dpi")
oRadialMenu.ParentImageWidth(-1,"48*dpi")
oRadialMenu.RadialLineSize(8,-1)
oRadialMenu.RadialLineAlpha(8,32)
oRadialMenu.RadialLineColor(11,-1)
oRadialMenu.Expanded = true
oRadialMenu.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
oRadialMenu.EndUpdate()

Visual DataFlex

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComPicturesPath to "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	Set ComPointerPicture to "pointer.png"
	Set ComPointerIndex to -1
	Set ComPointerPictureY to "y + (height-pheight)/2- 21*dpi"
	Set ComPointerPictureX to "x + (width-pwidth)/2 + 1 * dpi"
	Set ComAllowHotPointer to True
	Set ComSelBackAlpha OLEexRadialFullItems to 128
	Set ComSelForeColor OLEexRadialFullItems to (RGB(0,0,0))
	Set ComParentSize to "36*dpi"
	Set ComParentImageHeight OLEexRadialMenuStateAll to "48*dpi"
	Set ComParentImageWidth OLEexRadialMenuStateAll to "48*dpi"
	Set ComRadialLineSize OLEexRadialHotParent to -1
	Set ComRadialLineAlpha OLEexRadialHotParent to 32
	Set ComRadialLineColor OLEexRadialHotFullItem to -1
	Set ComExpanded to True
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
	Send Destroy to hoItems
	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 oRadialMenu

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

	oRadialMenu := XbpActiveXControl():new( oForm:drawingArea )
	oRadialMenu:CLSID  := "Exontrol.RadialMenu.1" /*{1604BDE1-D48F-4D3F-B51B-49C0CD74236C}*/
	oRadialMenu:create(,, {10,60},{610,370} )

		oRadialMenu:BeginUpdate()
		oRadialMenu:PicturesPath := "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
		oRadialMenu:PointerPicture := "pointer.png"
		oRadialMenu:PointerIndex := -1
		oRadialMenu:PointerPictureY := "y + (height-pheight)/2- 21*dpi"
		oRadialMenu:PointerPictureX := "x + (width-pwidth)/2 + 1 * dpi"
		oRadialMenu:AllowHotPointer := .T.
		oRadialMenu:SetProperty("SelBackAlpha",3/*exRadialFullItems*/,128)
		oRadialMenu:SetProperty("SelForeColor",3/*exRadialFullItems*/,AutomationTranslateColor( GraMakeRGBColor  ( { 0,0,0 } )  , .F. ))
		oRadialMenu:ParentSize := "36*dpi"
		oRadialMenu:SetProperty("ParentImageHeight",-1/*exRadialMenuStateAll*/,"48*dpi")
		oRadialMenu:SetProperty("ParentImageWidth",-1/*exRadialMenuStateAll*/,"48*dpi")
		oRadialMenu:SetProperty("RadialLineSize",8/*exRadialHotParent*/,-1)
		oRadialMenu:SetProperty("RadialLineAlpha",8/*exRadialHotParent*/,32)
		oRadialMenu:SetProperty("RadialLineColor",11/*exRadialHotFullItem*/,-1)
		oRadialMenu:Expanded := .T.
		oRadialMenu:Items():ToString := "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
		oRadialMenu:EndUpdate()

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