SelectItem Event (ExRadialMenu)

The SelectItem event notifies once the user selects an item. The SelectItem event is fired when user clicks an item with no child items. The BrowseItem event notifies when a new item has been selected / browsed. When the user selects a new item, it is displayed on the parent portion of the control, while its content / children is displayed around. The SelectParent event occurs once the user clicks the parent of the item. The SelectedIndex property gets or sets a value that indicates index to be selected.

Syntax for SelectItem event, /NET version, on:

C#

private void SelectItem(object sender,exontrol.EXRADIALMENULib.Item Item) { }

VB

Private Sub SelectItem(ByVal sender As System.Object,ByVal Item As exontrol.EXRADIALMENULib.Item) Handles SelectItem End Sub

Syntax for SelectItem event, /COM version, on:

C#

private void SelectItem(object sender, AxEXRADIALMENULib._IRadialMenuEvents_SelectItemEvent e) { }

C++

void OnSelectItem(LPDISPATCH Item) { }

C++ Builder

void __fastcall SelectItem(TObject *Sender,Exradialmenulib_tlb::IItem *Item) { }

Delphi

procedure SelectItem(ASender: TObject; Item : IItem); begin end;

Delphi 8 (.NET only)

procedure SelectItem(sender: System.Object; e: AxEXRADIALMENULib._IRadialMenuEvents_SelectItemEvent); begin end;

PowerBuilder

begin event SelectItem(oleobject Item) end event SelectItem

VB.NET

Private Sub SelectItem(ByVal sender As System.Object, ByVal e As AxEXRADIALMENULib._IRadialMenuEvents_SelectItemEvent) Handles SelectItem End Sub

VB6

Private Sub SelectItem(ByVal Item As EXRADIALMENULibCtl.IItem) End Sub

VBA

Private Sub SelectItem(ByVal Item As Object) End Sub

VFP

LPARAMETERS Item

Xbase++

PROCEDURE OnSelectItem(oRadialMenu,Item) RETURN

Syntax for SelectItem event, /COM version ^(others), on:

JavaScript

<SCRIPT EVENT="SelectItem(Item)" LANGUAGE="JScript"> </SCRIPT>

VBScript

<SCRIPT LANGUAGE="VBScript"> Function SelectItem(Item) End Function </SCRIPT>

Visual DataFlex

Procedure OnComSelectItem Variant llItem Forward Send OnComSelectItem llItem End_Procedure

Visual Objects

METHOD OCX_SelectItem(Item) CLASS MainDialog RETURN NIL

X++

void onEvent_SelectItem(COM _Item) { }

XBasic

function SelectItem as v (Item as OLE::Exontrol.RadialMenu.1::IItem) end function

dBASE

function nativeObject_SelectItem(Item) return

The following sample shows how you can select an item, once the user clicks it:

VBA (MS Access, Excell...)

' SelectItem event - Notifies once the user selects an item.
Private Sub RadialMenu1_SelectItem(ByVal Item As Object)
	' SelectedIndex(3) = Item.Index
End Sub

With RadialMenu1
	.BeginUpdate 
	.SelBackAlpha(1) = 32
	.SelBackAlpha(2) = 128
	.SelForeColor(3) = RGB(0,0,0)
	.RadialLineSize(8) = -1
	.RadialLineAlpha(8) = 32
	.RadialLineColor(11) = -1
	.Expanded = True
	.Items.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
	.SelectedIndex(3) = 0
	.EndUpdate 
End With

VB6

' SelectItem event - Notifies once the user selects an item.
Private Sub RadialMenu1_SelectItem(ByVal Item As EXRADIALMENULibCtl.IItem)
	' SelectedIndex(3) = Item.Index
End Sub

With RadialMenu1
	.BeginUpdate 
	.SelBackAlpha(exRadialItems) = 32
	.SelBackAlpha(exRadialSubItems) = 128
	.SelForeColor(exRadialFullItems) = RGB(0,0,0)
	.RadialLineSize(exRadialHotParent) = -1
	.RadialLineAlpha(exRadialHotParent) = 32
	.RadialLineColor(exRadialHotFullItem) = -1
	.Expanded = True
	.Items.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
	.SelectedIndex(exRadialFullItems) = 0
	.EndUpdate 
End With

VB.NET

' SelectItem event - Notifies once the user selects an item.
Private Sub Exradialmenu1_SelectItem(ByVal sender As System.Object,ByVal Item As exontrol.EXRADIALMENULib.Item) Handles Exradialmenu1.SelectItem
	' SelectedIndex(3) = Item.Index
End Sub

With Exradialmenu1
	.BeginUpdate()
	.set_SelBackAlpha(exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialItems,32)
	.set_SelBackAlpha(exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialSubItems,128)
	.set_SelForeColor(exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,Color.FromArgb(0,0,0))
	.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,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
	.set_SelectedIndex(exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,0)
	.EndUpdate()
End With

VB.NET for /COM

' SelectItem event - Notifies once the user selects an item.
Private Sub AxRadialMenu1_SelectItem(ByVal sender As System.Object, ByVal e As AxEXRADIALMENULib._IRadialMenuEvents_SelectItemEvent) Handles AxRadialMenu1.SelectItem
	' SelectedIndex(3) = Item.Index
End Sub

With AxRadialMenu1
	.BeginUpdate()
	.set_SelBackAlpha(EXRADIALMENULib.RadialItemsEnum.exRadialItems,32)
	.set_SelBackAlpha(EXRADIALMENULib.RadialItemsEnum.exRadialSubItems,128)
	.set_SelForeColor(EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,0)
	.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialHotParent,-1)
	.set_RadialLineAlpha(EXRADIALMENULib.RadialLineEnum.exRadialHotParent,32)
	.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,-1)
	.Expanded = True
	.Items.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
	.set_SelectedIndex(EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,0)
	.EndUpdate()
End With

C++

// SelectItem event - Notifies once the user selects an item.
void OnSelectItemRadialMenu1(LPDISPATCH   Item)
{
	// SelectedIndex(3) = Item.Index
}

/*
	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->PutSelBackAlpha(EXRADIALMENULib::exRadialItems,32);
spRadialMenu1->PutSelBackAlpha(EXRADIALMENULib::exRadialSubItems,128);
spRadialMenu1->PutSelForeColor(EXRADIALMENULib::exRadialFullItems,RGB(0,0,0));
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,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8");
spRadialMenu1->PutSelectedIndex(EXRADIALMENULib::exRadialFullItems,0);
spRadialMenu1->EndUpdate();

C++ Builder

// SelectItem event - Notifies once the user selects an item.
void __fastcall TForm1::RadialMenu1SelectItem(TObject *Sender,Exradialmenulib_tlb::IItem   *Item)
{
	// SelectedIndex(3) = Item.Index
}

RadialMenu1->BeginUpdate();
RadialMenu1->SelBackAlpha[Exradialmenulib_tlb::RadialItemsEnum::exRadialItems] = 32;
RadialMenu1->SelBackAlpha[Exradialmenulib_tlb::RadialItemsEnum::exRadialSubItems] = 128;
RadialMenu1->SelForeColor[Exradialmenulib_tlb::RadialItemsEnum::exRadialFullItems] = RGB(0,0,0);
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,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8";
RadialMenu1->SelectedIndex[Exradialmenulib_tlb::RadialItemsEnum::exRadialFullItems] = 0;
RadialMenu1->EndUpdate();

// SelectItem event - Notifies once the user selects an item.
private void exradialmenu1_SelectItem(object sender,exontrol.EXRADIALMENULib.Item   Item)
{
	// SelectedIndex(3) = Item.Index
}
//this.exradialmenu1.SelectItem += new exontrol.EXRADIALMENULib.exg2antt.SelectItemEventHandler(this.exradialmenu1_SelectItem);

exradialmenu1.BeginUpdate();
exradialmenu1.set_SelBackAlpha(exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialItems,32);
exradialmenu1.set_SelBackAlpha(exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialSubItems,128);
exradialmenu1.set_SelForeColor(exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,Color.FromArgb(0,0,0));
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,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8";
exradialmenu1.set_SelectedIndex(exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,0);
exradialmenu1.EndUpdate();

JScript/JavaScript

<BODY onload="Init()">
<SCRIPT FOR="RadialMenu1" EVENT="SelectItem(Item)" LANGUAGE="JScript">
	// SelectedIndex(3) = Item.Index
</SCRIPT>

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

<SCRIPT LANGUAGE="JScript">
function Init()
{
	RadialMenu1.BeginUpdate();
	RadialMenu1.SelBackAlpha(1) = 32;
	RadialMenu1.SelBackAlpha(2) = 128;
	RadialMenu1.SelForeColor(3) = 0;
	RadialMenu1.RadialLineSize(8) = -1;
	RadialMenu1.RadialLineAlpha(8) = 32;
	RadialMenu1.RadialLineColor(11) = -1;
	RadialMenu1.Expanded = true;
	RadialMenu1.Items.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8";
	RadialMenu1.SelectedIndex(3) = 0;
	RadialMenu1.EndUpdate();
}
</SCRIPT>
</BODY>

VBScript

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function RadialMenu1_SelectItem(Item)
	' SelectedIndex(3) = Item.Index
End Function
</SCRIPT>

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With RadialMenu1
		.BeginUpdate 
		.SelBackAlpha(1) = 32
		.SelBackAlpha(2) = 128
		.SelForeColor(3) = RGB(0,0,0)
		.RadialLineSize(8) = -1
		.RadialLineAlpha(8) = 32
		.RadialLineColor(11) = -1
		.Expanded = True
		.Items.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
		.SelectedIndex(3) = 0
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

C# for /COM

// SelectItem event - Notifies once the user selects an item.
private void axRadialMenu1_SelectItem(object sender, AxEXRADIALMENULib._IRadialMenuEvents_SelectItemEvent e)
{
	// SelectedIndex(3) = Item.Index
}
//this.axRadialMenu1.SelectItem += new AxEXRADIALMENULib._IRadialMenuEvents_SelectItemEventHandler(this.axRadialMenu1_SelectItem);

axRadialMenu1.BeginUpdate();
axRadialMenu1.set_SelBackAlpha(EXRADIALMENULib.RadialItemsEnum.exRadialItems,32);
axRadialMenu1.set_SelBackAlpha(EXRADIALMENULib.RadialItemsEnum.exRadialSubItems,128);
axRadialMenu1.set_SelForeColor(EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,(uint)ColorTranslator.ToWin32(Color.FromArgb(0,0,0)));
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,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8";
axRadialMenu1.set_SelectedIndex(EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,0);
axRadialMenu1.EndUpdate();

X++ (Dynamics Ax 2009)

// SelectItem event - Notifies once the user selects an item.
void onEvent_SelectItem(COM   _Item)
{
	// SelectedIndex(3) = Item.Index
	;
}

public void init()
{
	;

	super();

	exradialmenu1.BeginUpdate();
	exradialmenu1.SelBackAlpha(1/*exRadialItems*/,32);
	exradialmenu1.SelBackAlpha(2/*exRadialSubItems*/,128);
	exradialmenu1.SelForeColor(3/*exRadialFullItems*/,WinApi::RGB2int(0,0,0));
	exradialmenu1.RadialLineSize(8/*exRadialHotParent*/,-1);
	exradialmenu1.RadialLineAlpha(8/*exRadialHotParent*/,32);
	exradialmenu1.RadialLineColor(11/*exRadialHotFullItem*/,-1);
	exradialmenu1.Expanded(true);
	exradialmenu1.Items().ToString("Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8");
	exradialmenu1.SelectedIndex(3/*exRadialFullItems*/,0);
	exradialmenu1.EndUpdate();
}

Delphi 8 (.NET only)

// SelectItem event - Notifies once the user selects an item.
procedure TWinForm1.AxRadialMenu1_SelectItem(sender: System.Object; e: AxEXRADIALMENULib._IRadialMenuEvents_SelectItemEvent);
begin
	// SelectedIndex(3) = Item.Index
end;

with AxRadialMenu1 do
begin
	BeginUpdate();
	set_SelBackAlpha(EXRADIALMENULib.RadialItemsEnum.exRadialItems,32);
	set_SelBackAlpha(EXRADIALMENULib.RadialItemsEnum.exRadialSubItems,128);
	set_SelForeColor(EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,$0);
	set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialHotParent,-1);
	set_RadialLineAlpha(EXRADIALMENULib.RadialLineEnum.exRadialHotParent,32);
	set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,$ffffffff);
	Expanded := True;
	Items.ToString := 'Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8';
	set_SelectedIndex(EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,0);
	EndUpdate();
end

Delphi (standard)

// SelectItem event - Notifies once the user selects an item.
procedure TForm1.RadialMenu1SelectItem(ASender: TObject; Item : IItem);
begin
	// SelectedIndex(3) = Item.Index
end;

with RadialMenu1 do
begin
	BeginUpdate();
	SelBackAlpha[EXRADIALMENULib_TLB.exRadialItems] := 32;
	SelBackAlpha[EXRADIALMENULib_TLB.exRadialSubItems] := 128;
	SelForeColor[EXRADIALMENULib_TLB.exRadialFullItems] := $0;
	RadialLineSize[EXRADIALMENULib_TLB.exRadialHotParent] := -1;
	RadialLineAlpha[EXRADIALMENULib_TLB.exRadialHotParent] := 32;
	RadialLineColor[EXRADIALMENULib_TLB.exRadialHotFullItem] := $ffffffff;
	Expanded := True;
	Items.ToString := 'Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8';
	SelectedIndex[EXRADIALMENULib_TLB.exRadialFullItems] := 0;
	EndUpdate();
end

VFP

*** SelectItem event - Notifies once the user selects an item. ***
LPARAMETERS Item
	*** SelectedIndex(3) = Item.Index

with thisform.RadialMenu1
	.BeginUpdate
	.Object.SelBackAlpha(1) = 32
	.Object.SelBackAlpha(2) = 128
	.Object.SelForeColor(3) = RGB(0,0,0)
	.Object.RadialLineSize(8) = -1
	.Object.RadialLineAlpha(8) = 32
	.Object.RadialLineColor(11) = -1
	.Expanded = .T.
	.Items.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
	.Object.SelectedIndex(3) = 0
	.EndUpdate
endwith

dBASE Plus

/*
with (this.EXRADIALMENUACTIVEXCONTROL1.nativeObject)
	SelectItem = class::nativeObject_SelectItem
endwith
*/
// Notifies once the user selects an item.
function nativeObject_SelectItem(Item)
	/* SelectedIndex(3) = Item.Index */
	oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
return

local oRadialMenu

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.BeginUpdate()
oRadialMenu.Template = [SelBackAlpha(1) = 32] // oRadialMenu.SelBackAlpha(1) = 32
oRadialMenu.Template = [SelBackAlpha(2) = 128] // oRadialMenu.SelBackAlpha(2) = 128
oRadialMenu.Template = [SelForeColor(3) = 0] // oRadialMenu.SelForeColor(3) = 0x0
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,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
oRadialMenu.Template = [SelectedIndex(3) = 0] // oRadialMenu.SelectedIndex(3) = 0
oRadialMenu.EndUpdate()

XBasic (Alpha Five)

' Notifies once the user selects an item.
function SelectItem as v (Item  as  OLE::Exontrol.RadialMenu.1::IItem)
	' SelectedIndex(3) = Item.Index
	oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
end function

Dim oRadialMenu as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.BeginUpdate()
oRadialMenu.Template = "SelBackAlpha(1) = 32" // oRadialMenu.SelBackAlpha(1) = 32
oRadialMenu.Template = "SelBackAlpha(2) = 128" // oRadialMenu.SelBackAlpha(2) = 128
oRadialMenu.Template = "SelForeColor(3) = 0" // oRadialMenu.SelForeColor(3) = 0
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,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
oRadialMenu.Template = "SelectedIndex(3) = 0" // oRadialMenu.SelectedIndex(3) = 0
oRadialMenu.EndUpdate()

Visual Objects

METHOD OCX_Exontrol1SelectItem(Item) CLASS MainDialog
	// SelectItem event - Notifies once the user selects an item.
	// SelectedIndex(3) = Item.Index

RETURN NIL


oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:[SelBackAlpha,exRadialItems] := 32
oDCOCX_Exontrol1:[SelBackAlpha,exRadialSubItems] := 128
oDCOCX_Exontrol1:[SelForeColor,exRadialFullItems] := RGB(0,0,0)
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,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
oDCOCX_Exontrol1:[SelectedIndex,exRadialFullItems] := 0
oDCOCX_Exontrol1:EndUpdate()

PowerBuilder

/*begin event SelectItem(oleobject  Item) - Notifies once the user selects an item.*/
/*
	SelectedIndex(3) = Item.Index
	oRadialMenu = ole_1.Object
*/
/*end event SelectItem*/

OleObject oRadialMenu

oRadialMenu = ole_1.Object
oRadialMenu.BeginUpdate()
oRadialMenu.SelBackAlpha(1,32)
oRadialMenu.SelBackAlpha(2,128)
oRadialMenu.SelForeColor(3,RGB(0,0,0))
oRadialMenu.RadialLineSize(8,-1)
oRadialMenu.RadialLineAlpha(8,32)
oRadialMenu.RadialLineColor(11,-1)
oRadialMenu.Expanded = true
oRadialMenu.Items.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
oRadialMenu.SelectedIndex(3,0)
oRadialMenu.EndUpdate()

Visual DataFlex

// Notifies once the user selects an item.
Procedure OnComSelectItem Variant   llItem
	Forward Send OnComSelectItem llItem
	// SelectedIndex(3) = Item.Index
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComSelBackAlpha OLEexRadialItems to 32
	Set ComSelBackAlpha OLEexRadialSubItems to 128
	Set ComSelForeColor OLEexRadialFullItems to (RGB(0,0,0))
	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,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
	Send Destroy to hoItems
	Set ComSelectedIndex OLEexRadialFullItems to 0
	Send ComEndUpdate
End_Procedure

XBase++

PROCEDURE OnSelectItem(oRadialMenu,Item)
	/*SelectedIndex(3) = Item.Index*/

RETURN

#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:SelectItem := {|Item| OnSelectItem(oRadialMenu,Item)} /*Notifies once the user selects an item.*/

		oRadialMenu:BeginUpdate()
		oRadialMenu:SetProperty("SelBackAlpha",1/*exRadialItems*/,32)
		oRadialMenu:SetProperty("SelBackAlpha",2/*exRadialSubItems*/,128)
		oRadialMenu:SetProperty("SelForeColor",3/*exRadialFullItems*/,AutomationTranslateColor( GraMakeRGBColor  ( { 0,0,0 } )  , .F. ))
		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,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
		oRadialMenu:SetProperty("SelectedIndex",3/*exRadialFullItems*/,0)
		oRadialMenu:EndUpdate()

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

		Type	Description
		Item as Item	The Item being clicked / selected.