87:
How can I display the control directly on the screen

Dim oRadialMenu as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.BeginUpdate()
oRadialMenu.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oRadialMenu.Template = "HTMLPicture(`arrow`) = `stock_mail_filters_apply.png`" // oRadialMenu.HTMLPicture("arrow") = "stock_mail_filters_apply.png"
oRadialMenu.Template = "HTMLPicture(`settings`) = `settings.png`" // oRadialMenu.HTMLPicture("settings") = "settings.png"
oRadialMenu.Template = "HTMLPicture(`hard`) = `download.png`" // oRadialMenu.HTMLPicture("hard") = "download.png"
oRadialMenu.Template = "HTMLPicture(`favorites`) = `favorites.png`" // oRadialMenu.HTMLPicture("favorites") = "favorites.png"
oRadialMenu.Template = "HTMLPicture(`remove`) = `remove.png`" // oRadialMenu.HTMLPicture("remove") = "remove.png"
oRadialMenu.Template = "HTMLPicture(`refresh`) = `refresh.png`" // oRadialMenu.HTMLPicture("refresh") = "refresh.png"
oRadialMenu.Template = "HTMLPicture(`synchronize`) = `synchronize.png`" // oRadialMenu.HTMLPicture("synchronize") = "synchronize.png"
oRadialMenu.Template = "HTMLPicture(`preview`) = `preview.png`" // oRadialMenu.HTMLPicture("preview") = "preview.png"
oRadialMenu.Template = "HTMLPicture(`search`) = `search.png`" // oRadialMenu.HTMLPicture("search") = "search.png"
oRadialMenu.ToString = "Save[img=hard],Settings[img=settings][browse=2][custom=16],Favorites[img=favorites](1,2),Refresh[img=refresh],<c>Quit<br><c>Application[img=remove],Synchronize[img=synchronize],Search[img=search](1,2),Preview[img=preview](1,2)"
oRadialMenu.Expanded = .t.
oRadialMenu.Template = "DisplayRadial(1) = 3" // oRadialMenu.DisplayRadial(1) = 3
oRadialMenu.BackgroundPicture = "Background\frontc.png"
oRadialMenu.SubItemsBackColor = -1
oRadialMenu.SubItemsSize = "18 * dpi"
oRadialMenu.EndUpdate()
oRadialMenu.Float = .t.

86:
How do I add a radial-slider control

Dim oRadialMenu as P
Dim var_Item as P
Dim var_Items as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.Expanded = .t.
oRadialMenu.ShadowColor = -1
oRadialMenu.InflateItems = "-8*dpi"
oRadialMenu.InflateCustom = oRadialMenu.InflateItems
oRadialMenu.ItemsBackColor = 15790320
oRadialMenu.Template = "RadialLineColor(4) = 0" // oRadialMenu.RadialLineColor(4) = 0
oRadialMenu.Template = "RadialLineStyle(4) = 2" // oRadialMenu.RadialLineStyle(4) = 2
oRadialMenu.Template = "RadialLineSize(4) = 3" // oRadialMenu.RadialLineSize(4) = 3
var_Items = oRadialMenu.Items
	var_Item = var_Items.Add("Slider")
		var_Item.BrowseType = 2
		var_Item.BrowseCustomType = 16
		' var_Item.BrowseCustom(9) = 35
		oRadialMenu.TemplateDef = "dim var_Item"
		oRadialMenu.TemplateDef = var_Item
		oRadialMenu.Template = "var_Item.BrowseCustom(9) = 35"

oRadialMenu.BrowseItem = oRadialMenu.Items.Item("Slider")

85:
How can I display a slider directly on the radial menu, with no items...

Dim oRadialMenu as P
Dim var_Item as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.BeginUpdate()
oRadialMenu.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oRadialMenu.Expanded = .t.
oRadialMenu.InflateCustom = "-4 * dpi"
oRadialMenu.Template = "RadialLineColor(4) = 0" // oRadialMenu.RadialLineColor(4) = 0
oRadialMenu.Template = "RadialLineSize(4) = 3" // oRadialMenu.RadialLineSize(4) = 3
oRadialMenu.Template = "RadialLineAlpha(4) = 128" // oRadialMenu.RadialLineAlpha(4) = 128
oRadialMenu.CustomPicture = "Background\frame.png"
var_Item = oRadialMenu.Root
	var_Item.BrowseType = 2
	var_Item.BrowseCustomType = 16
	' var_Item.BrowseCustom(9) = 25
	oRadialMenu.TemplateDef = "dim var_Item"
	oRadialMenu.TemplateDef = var_Item
	oRadialMenu.Template = "var_Item.BrowseCustom(9) = 25"

oRadialMenu.Refresh()
oRadialMenu.EndUpdate()

84:
How can I programatically browses for a new item

Dim oRadialMenu as P
Dim var_Item as P
Dim var_Items as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.Expanded = .t.
oRadialMenu.ShadowColor = -1
oRadialMenu.InflateItems = "-8*dpi"
oRadialMenu.InflateCustom = oRadialMenu.InflateItems
oRadialMenu.ItemsBackColor = 15790320
oRadialMenu.Template = "RadialLineColor(4) = 0" // oRadialMenu.RadialLineColor(4) = 0
oRadialMenu.Template = "RadialLineStyle(4) = 2" // oRadialMenu.RadialLineStyle(4) = 2
oRadialMenu.Template = "RadialLineSize(4) = 3" // oRadialMenu.RadialLineSize(4) = 3
var_Items = oRadialMenu.Items
	var_Item = var_Items.Add("Slider")
		var_Item.BrowseType = 2
		var_Item.BrowseCustomType = 16
oRadialMenu.BrowseItem = oRadialMenu.Items.Item("Slider")

83:
How can I display the items rotated

Dim oRadialMenu as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.BeginUpdate()
oRadialMenu.Expanded = .t.
oRadialMenu.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oRadialMenu.Template = "HTMLPicture(`arrow`) = `arrow.png`" // oRadialMenu.HTMLPicture("arrow") = "arrow.png"
oRadialMenu.Expanded = .t.
oRadialMenu.Items.ToString = "Item 1(1,2),Item 2(1,2),Item 3(1,2),Item 4(1,2),Item 5(1,2),Item 6(1,2),Item 7(1,2),Item 8(1,2)"
oRadialMenu.Template = "DisplayRadial(1) = 1" // oRadialMenu.DisplayRadial(1) = 1
oRadialMenu.Template = "DisplayCenter(1) = 0.05" // oRadialMenu.DisplayCenter(1) = 0.05
oRadialMenu.EndUpdate()

82:
Is it possible to display the arrow into the items section, and how I can change the default position

Dim oRadialMenu as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.BeginUpdate()
oRadialMenu.Expanded = .t.
oRadialMenu.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oRadialMenu.Template = "HTMLPicture(`arrow`) = `arrowu.png`" // oRadialMenu.HTMLPicture("arrow") = "arrowu.png"
oRadialMenu.DisplayArrow = 1
oRadialMenu.Template = "DisplayCenterArrow(1) = 0" // oRadialMenu.DisplayCenterArrow(1) = 0
oRadialMenu.Expanded = .t.
oRadialMenu.Items.ToString = "Item 1(1,2),Item 2(1,2),Item 3(1,2),Item 4(1,2),Item 5(1,2),Item 6(1,2),Item 7(1,2),Item 8(1,2)"
oRadialMenu.EndUpdate()

81:
Can I display the arrow into the items section

Dim oRadialMenu as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.BeginUpdate()
oRadialMenu.Expanded = .t.
oRadialMenu.DisplayArrow = 1
oRadialMenu.Expanded = .t.
oRadialMenu.Items.ToString = "Item 1(1,2),Item 2(1,2),Item 3(1,2),Item 4(1,2),Item 5(1,2),Item 6(1,2),Item 7(1,2),Item 8(1,2)"
oRadialMenu.EndUpdate()

80:
How can I know if the cursor is hovering the center ring ( parent zone )
' Occurs when the user moves the mouse.
function MouseMove as v (Button  as  N,Shift  as  N,X  as  OLE::Exontrol.RadialMenu.1::OLE_XPOS_PIXELS,Y  as  OLE::Exontrol.RadialMenu.1::OLE_YPOS_PIXELS)
	oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
	? "ParentOnPoint " 
	? oRadialMenu.ParentOnPoint(-1,-1) 
end function

Dim oRadialMenu as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.Expanded = .t.

79:
How can I specify the size to display the images/pictures into the items

Dim oRadialMenu as P
Dim var_Items as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.BeginUpdate()
oRadialMenu.AllowToggleExpand = .f.
oRadialMenu.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oRadialMenu.Template = "ItemsImageHeight(1) = `64*dpi`" // oRadialMenu.ItemsImageHeight(1) = "64*dpi"
oRadialMenu.Template = "ItemsImageWidth(1) = `64*dpi`" // oRadialMenu.ItemsImageWidth(1) = "64*dpi"
var_Items = oRadialMenu.Items
	var_Items.Add("","color_line.png")
	var_Items.Add("","color_fill.png")
	var_Items.Add("","format_font_size_less.png")
	var_Items.Add("","edit_undo.png")
	var_Items.Add("","edit_redo.png")
	var_Items.Add("","edit_copy.png")
	var_Items.Add("","fileview_text.png")
	var_Items.Add("","checkmark_korganizer.png")
oRadialMenu.EndUpdate()

78:
By default, the parent image is 32-pixels wide. Can I display it larger

Dim oRadialMenu as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.BeginUpdate()
oRadialMenu.AllowToggleExpand = .f.
oRadialMenu.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oRadialMenu.Template = "HTMLPicture(`logo`) = `settings.png`" // oRadialMenu.HTMLPicture("logo") = "settings.png"
oRadialMenu.ParentSize = "96 * dpi"
oRadialMenu.Template = "ParentImageWidth(-1) = `64*dpi`" // oRadialMenu.ParentImageWidth(-1) = "64*dpi"
oRadialMenu.Template = "ParentImageHeight(-1) = `64*dpi`" // oRadialMenu.ParentImageHeight(-1) = "64*dpi"
oRadialMenu.Template = "ParentCaption(-1) = `<font ;14><c>System Settings</font><br><c>Surround`" // oRadialMenu.ParentCaption(-1) = "<font ;14><c>System Settings</font><br><c>Surround"
oRadialMenu.EndUpdate()

77:
Is it possible to specify where to display the item's caption

Dim oRadialMenu as P
Dim var_Items as local

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.BeginUpdate()
oRadialMenu.Expanded = .t.
oRadialMenu.Items.ToString = "Item 1(1,2),Item 2(1,2),Item 3(1,2),Item 4(1,2),Item 5(1,2),Item 6(1,2),Item 7(1,2),Item 8(1,2)"
' oRadialMenu.Items.Item(0).BackColor(3) = 15790320
var_Items = oRadialMenu.Items.Item(0)
oRadialMenu.TemplateDef = "dim var_Items"
oRadialMenu.TemplateDef = var_Items
oRadialMenu.Template = "var_Items.BackColor(3) = 15790320"

oRadialMenu.Template = "DisplayCenter(1) = 0.85" // oRadialMenu.DisplayCenter(1) = 0.85
oRadialMenu.EndUpdate()

76:
How can I disable browsing the items, or prevent displaying its children
Dim oRadialMenu as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.BeginUpdate()
oRadialMenu.Expanded = .t.
oRadialMenu.AllowBrowseItem = .f.
oRadialMenu.Items.ToString = "Item 1(1,2),Item 2(1,2),Item 3(1,2),Item 4(1,2),Item 5(1,2),Item 6(1,2),Item 7(1,2),Item 8(1,2)"
oRadialMenu.EndUpdate()

75:
How do I get the item from the point
' Occurs when the user moves the mouse.
function MouseMove as v (Button  as  N,Shift  as  N,X  as  OLE::Exontrol.RadialMenu.1::OLE_XPOS_PIXELS,Y  as  OLE::Exontrol.RadialMenu.1::OLE_YPOS_PIXELS)
	oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
	? "Full-Item: " 
	? oRadialMenu.ItemFromPoint(3,-1,-1)oRadialMenu.Caption(1) 
	? "Item: " 
	? oRadialMenu.ItemFromPoint(1,-1,-1)oRadialMenu.Caption(1) 
	? "SubItem: " 
	? oRadialMenu.ItemFromPoint(2,-1,-1)oRadialMenu.Caption(2) 
end function

Dim oRadialMenu as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.Expanded = .t.
oRadialMenu.Items.ToString = "Item 1[scap=sub item 1],Item 2[scap=sub item 2],Item 3[scap=sub item 3],Item 4[scap=sub item 4],Item 5[scap=sub item 5],Item 6[scap=sub item 6],Item 7[scap=sub item 7],Item 8[scap=sub item 8]"

74:
How do I get the index of the pie from the point
' Occurs when the user moves the mouse.
function MouseMove as v (Button  as  N,Shift  as  N,X  as  OLE::Exontrol.RadialMenu.1::OLE_XPOS_PIXELS,Y  as  OLE::Exontrol.RadialMenu.1::OLE_YPOS_PIXELS)
	oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
	? "Full-Index: " 
	? oRadialMenu.IndexFromPoint(3,-1,-1) 
	? "Index: " 
	? oRadialMenu.IndexFromPoint(1,-1,-1) 
	? "Sub-Index: " 
	? oRadialMenu.IndexFromPoint(2,-1,-1) 
end function

Dim oRadialMenu as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.Expanded = .t.

73:
How can I select an item

' 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()

72:
How can I use the sub-items zone only

Dim oRadialMenu as P
Dim var_Items as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.BeginUpdate()
oRadialMenu.AllowToggleExpand = .f.
oRadialMenu.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oRadialMenu.Template = "HTMLPicture(`logo`) = `settings.png`" // oRadialMenu.HTMLPicture("logo") = "settings.png"
oRadialMenu.Template = "RadialLineColor(6) = SubItemsBackColor" // oRadialMenu.RadialLineColor(6) = oRadialMenu.SubItemsBackColor
oRadialMenu.Template = "RadialLineColor(5) = -1" // oRadialMenu.RadialLineColor(5) = -1
oRadialMenu.SubItemsSize = "64 * dpi"
oRadialMenu.ParentSize = "value - 66 * dpi"
oRadialMenu.Template = "ParentImageWidth(-1) = `64*dpi`" // oRadialMenu.ParentImageWidth(-1) = "64*dpi"
oRadialMenu.Template = "ParentImageHeight(-1) = `64*dpi`" // oRadialMenu.ParentImageHeight(-1) = "64*dpi"
oRadialMenu.Template = "ParentCaption(-1) = `<font ;14><c>System Settings</font><br><c>Surround`" // oRadialMenu.ParentCaption(-1) = "<font ;14><c>System Settings</font><br><c>Surround"
oRadialMenu.Template = "RadialLineSize(11) = 0" // oRadialMenu.RadialLineSize(11) = 0
oRadialMenu.Template = "RadialLineSize(10) = -1" // oRadialMenu.RadialLineSize(10) = -1
oRadialMenu.Template = "RadialLineColor(10) = -2147483635" // oRadialMenu.RadialLineColor(10) = -2147483635
oRadialMenu.Template = "RadialLineAlpha(10) = 128" // oRadialMenu.RadialLineAlpha(10) = 128
oRadialMenu.ItemsBackColor = oRadialMenu.SubItemsBackColor
var_Items = oRadialMenu.Items
	var_Items.Add("","color_line.png",2)
	var_Items.Add("","color_fill.png",2)
	var_Items.Add("","format_font_size_less.png",2)
	var_Items.Add("","edit_undo.png",2)
	var_Items.Add("","edit_redo.png",2)
	var_Items.Add("","edit_copy.png",2)
	var_Items.Add("","fileview_text.png",2)
	var_Items.Add("","checkmark_korganizer.png",2)
oRadialMenu.EndUpdate()

71:
Is it possible to display all items with a different rotation angle

Dim oRadialMenu as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.BeginUpdate()
oRadialMenu.Expanded = .t.
oRadialMenu.DisplayAngle = -7.5
oRadialMenu.DisplayArrow = 1
oRadialMenu.Template = "DisplayRadial(1) = 1" // oRadialMenu.DisplayRadial(1) = 1
oRadialMenu.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oRadialMenu.ParentSize = "48 * dpi"
oRadialMenu.ParentPicture = "Background\frontb.png"
oRadialMenu.ArrowImage = "arrow.png"
oRadialMenu.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
oRadialMenu.InflateParentPicture = "72 * dpi"
oRadialMenu.EndUpdate()

70:
How can I programatically advance / browse for the parent item (method 2)
' Occurs once the user right clicks the control.
function RClick as v ()
	oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
	oRadialMenu.BrowseItem = oRadialMenu.BrowseItem.Parent
end function

Dim oRadialMenu as P
Dim var_Item as P
Dim var_Items as P
Dim var_Items1 as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.Expanded = .t.
oRadialMenu.DisplayArrow = 1
var_Items = oRadialMenu.Items
	var_Item = var_Items.Add("Volume")
		' var_Item.Caption(2) = "slider"
		oRadialMenu.TemplateDef = "dim var_Item"
		oRadialMenu.TemplateDef = var_Item
		oRadialMenu.Template = "var_Item.Caption(2) = `slider`"

		var_Item.BrowseType = 2
		var_Item.BrowseCustomType = 16
	var_Items1 = var_Items.Add("Item").Items
		var_Items1.Add("Child 1")
		var_Items1.Add("Child 2")

69:
How can I programatically advance / browse for the parent item (method 1)
' Occurs once the user right clicks the control.
function RClick as v ()
	oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
	oRadialMenu.GoBack()
end function

Dim oRadialMenu as P
Dim var_Item as P
Dim var_Items as P
Dim var_Items1 as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.Expanded = .t.
oRadialMenu.DisplayArrow = 1
var_Items = oRadialMenu.Items
	var_Item = var_Items.Add("Volume")
		' var_Item.Caption(2) = "slider"
		oRadialMenu.TemplateDef = "dim var_Item"
		oRadialMenu.TemplateDef = var_Item
		oRadialMenu.Template = "var_Item.Caption(2) = `slider`"

		var_Item.BrowseType = 2
		var_Item.BrowseCustomType = 16
	var_Items1 = var_Items.Add("Item").Items
		var_Items1.Add("Child 1")
		var_Items1.Add("Child 2")

68:
Can I display the pointer with a different angle

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.PointerPictureY = "y + (height-pheight)/2- 21*dpi"
oRadialMenu.PointerPictureX = "x + (width-pwidth)/2 + 1 * dpi"
oRadialMenu.AllowHotPointer = .f.
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,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
oRadialMenu.PointerAngle = 12
oRadialMenu.EndUpdate()

67:
How can I use the pointer (select sample)

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

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.Template = "SelBackAlpha(1) = 32" // oRadialMenu.SelBackAlpha(1) = 32
oRadialMenu.Template = "SelBackAlpha(2) = 128" // oRadialMenu.SelBackAlpha(2) = 128
oRadialMenu.PointerPictureY = "y + (height-pheight)/2- 21*dpi"
oRadialMenu.PointerPictureX = "x + (width-pwidth)/2 + 1 * dpi"
oRadialMenu.AllowHotPointer = .f.
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,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
oRadialMenu.PointerIndex = 0
oRadialMenu.Template = "SelectedIndex(3) = PointerIndex" // oRadialMenu.SelectedIndex(3) = oRadialMenu.PointerIndex
oRadialMenu.EndUpdate()

66:
How can I use the pointer (hot sample)

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()

65:
Is it possible to apply the control's background picture on the parent zone too

Dim oRadialMenu as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.BeginUpdate()
oRadialMenu.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oRadialMenu.BackgroundPicture = "Background\fronte.png"
oRadialMenu.ForeColor = 16777215
oRadialMenu.Expanded = .t.
oRadialMenu.ParentSize = "48 * dpi"
oRadialMenu.Template = "DisplayRadial(1) = 1" // oRadialMenu.DisplayRadial(1) = 1
oRadialMenu.Template = "DisplayCenter(1) = 0.23" // oRadialMenu.DisplayCenter(1) = 0.23
oRadialMenu.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
oRadialMenu.ParentBackColor = -1
oRadialMenu.ExcludeParentFromItems = .t.
oRadialMenu.Template = "RadialLineColor(6) = 0" // oRadialMenu.RadialLineColor(6) = 0
oRadialMenu.Template = "RadialLineAlpha(6) = 128" // oRadialMenu.RadialLineAlpha(6) = 128
oRadialMenu.Template = "RadialLineStyle(5) = 2" // oRadialMenu.RadialLineStyle(5) = 2
oRadialMenu.Template = "RadialLineAlpha(5) = 128" // oRadialMenu.RadialLineAlpha(5) = 128
oRadialMenu.EndUpdate()

64:
Can I display the picture on the parent zone, a bit larger

Dim oRadialMenu as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.BeginUpdate()
oRadialMenu.Expanded = .t.
oRadialMenu.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oRadialMenu.ParentSize = "48 * dpi"
oRadialMenu.ParentPicture = "Background\frontb.png"
oRadialMenu.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
oRadialMenu.InflateParentPicture = "64 * dpi"
oRadialMenu.EndUpdate()

63:
Is it possible to assign a different background picture when displaying a slider/custom data

Dim oRadialMenu as P
Dim var_Item as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.Expanded = .t.
oRadialMenu.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oRadialMenu.DisplayArrow = 1
oRadialMenu.Items.ToString = "[scap=Item 1],[scap=Item 2],[scap=Item 3],[scap=Item 4]"
oRadialMenu.InflateRadialMenu = "-4*dpi"
oRadialMenu.InflateCustom = "-4*dpi"
oRadialMenu.CustomPicture = "Background\frontb.png"
oRadialMenu.Items.ToString = "Item 1(Sub Child 1,Sub Child 2),Item 2[scap=slider],Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
var_Item = oRadialMenu.Items.Item("Item 2")
	var_Item.BrowseType = 2
	var_Item.BrowseCustomType = 16
oRadialMenu.BrowseItem = oRadialMenu.Items.Item("Item 2")

62:
How can I customize the custom part of the control, the inside ring/circle

Dim oRadialMenu as P
Dim var_Item as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.Expanded = .t.
oRadialMenu.DisplayArrow = 1
oRadialMenu.Items.ToString = "[scap=Item 1],[scap=Item 2],[scap=Item 3],[scap=Item 4]"
oRadialMenu.InflateRadialMenu = "-4*dpi"
oRadialMenu.InflateCustom = "-4*dpi"
oRadialMenu.CustomBackColor = 8421504
oRadialMenu.CustomBackAlpha = 128
oRadialMenu.Items.ToString = "Item 1(Sub Child 1,Sub Child 2),Item 2[scap=slider],Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
var_Item = oRadialMenu.Items.Item("Item 2")
	var_Item.BrowseType = 2
	var_Item.BrowseCustomType = 16
oRadialMenu.BrowseItem = oRadialMenu.Items.Item("Item 2")

61:
How do I prevent expanding / collapsing the radial menu
Dim oRadialMenu as P
Dim var_Item as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.AllowToggleExpand = .f.
oRadialMenu.Items.ToString = "Item 1(Sub Child 1,Sub Child 2),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
var_Item = oRadialMenu.Items.Item("Item 2")
	var_Item.BrowseType = 2
	var_Item.BrowseCustomType = 16

60:
Is it possible to change the parent's picture/image when expanding collapsing the radial menu

' Notifies once the user browses for a new item.
function BrowseItem as v (Item  as  OLE::Exontrol.RadialMenu.1::IItem)
	oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
	? "Current State: " 
	? oRadialMenu.State 
end function

' Occurs once the user clicks the parent of the item.
function SelectParent as v ()
	oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
	? "Current State: " 
	? oRadialMenu.State 
end function

Dim oRadialMenu as P
Dim var_Item as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oRadialMenu.Items.ToString = "Item 1(Sub Child 1,Sub Child 2),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
var_Item = oRadialMenu.Items.Item("Item 2")
	var_Item.BrowseType = 2
	var_Item.BrowseCustomType = 16
oRadialMenu.Template = "ParentImage(0) = `format_font_size_less.png`" // oRadialMenu.ParentImage(0) = "format_font_size_less.png"
oRadialMenu.Template = "ParentImage(1) = `fileview_text.png`" // oRadialMenu.ParentImage(1) = "fileview_text.png"
oRadialMenu.Template = "ParentImage(2) = `edit_undo.png`" // oRadialMenu.ParentImage(2) = "edit_undo.png"

59:
Is it possible to assign a different picture on the parent zone (center ring)

Dim oRadialMenu as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.Expanded = .t.
oRadialMenu.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oRadialMenu.ParentSize = "48 * dpi"
oRadialMenu.ParentPicture = "Background\frontb.png"
oRadialMenu.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"

58:
Is it possible to assign a different picture on the items zone (inner ring)

Dim oRadialMenu as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.Expanded = .t.
oRadialMenu.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oRadialMenu.ItemsPicture = "Background\frontc.png"
oRadialMenu.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"

57:
How can I change the control's background picture

Dim oRadialMenu as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.Expanded = .t.
oRadialMenu.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oRadialMenu.BackgroundPicture = "Background\fronta.png"
oRadialMenu.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"

56:
How can I hide the line being shown around the item form the cursor

Dim oRadialMenu as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.Expanded = .t.
oRadialMenu.ShadowColor = -1
oRadialMenu.InflateItems = "-8*dpi"
oRadialMenu.ItemsBackColor = 15790320
oRadialMenu.Template = "RadialLineSize(11) = 0" // oRadialMenu.RadialLineSize(11) = 0
oRadialMenu.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"

55:
Is it possible to highlight items with children, with a different background color, for those arrow picture is shown (items, inner ring)

Dim oRadialMenu as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.Expanded = .t.
oRadialMenu.ShadowColor = -1
oRadialMenu.InflateItems = "-8*dpi"
oRadialMenu.ItemsBackColor = 15790320
oRadialMenu.Template = "RadialLineColor(13) = 0" // oRadialMenu.RadialLineColor(13) = 0
oRadialMenu.Template = "RadialLineAlpha(13) = 64" // oRadialMenu.RadialLineAlpha(13) = 64
oRadialMenu.Template = "RadialLineSize(13) = -1" // oRadialMenu.RadialLineSize(13) = -1
oRadialMenu.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"

54:
Is it possible to highlight items with children, with a different background color, for those arrow picture is shown (subitems, outer ring)

Dim oRadialMenu as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.Expanded = .t.
oRadialMenu.ShadowColor = -1
oRadialMenu.InflateItems = "-8*dpi"
oRadialMenu.ItemsBackColor = 15790320
oRadialMenu.Template = "RadialLineColor(12) = 0" // oRadialMenu.RadialLineColor(12) = 0
oRadialMenu.Template = "RadialLineAlpha(12) = 64" // oRadialMenu.RadialLineAlpha(12) = 64
oRadialMenu.Template = "RadialLineSize(12) = -1" // oRadialMenu.RadialLineSize(12) = -1
oRadialMenu.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"

53:
Is it possible to highlight the entire item, when cursor hovers it

Dim oRadialMenu as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.Expanded = .t.
oRadialMenu.ShadowColor = -1
oRadialMenu.InflateItems = "-8*dpi"
oRadialMenu.ItemsBackColor = 15790320
oRadialMenu.Template = "RadialLineColor(11) = 0" // oRadialMenu.RadialLineColor(11) = 0
oRadialMenu.Template = "RadialLineAlpha(11) = 64" // oRadialMenu.RadialLineAlpha(11) = 64
oRadialMenu.Template = "RadialLineSize(11) = -1" // oRadialMenu.RadialLineSize(11) = -1
oRadialMenu.Items.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"

52:
How can I change the border around the subitems zone, when cursor hovers it ( outer ring )

Dim oRadialMenu as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.Expanded = .t.
oRadialMenu.ShadowColor = -1
oRadialMenu.InflateItems = "-8*dpi"
oRadialMenu.ItemsBackColor = 15790320
oRadialMenu.Template = "RadialLineColor(11) = 0" // oRadialMenu.RadialLineColor(11) = 0
oRadialMenu.Template = "RadialLineStyle(11) = 2" // oRadialMenu.RadialLineStyle(11) = 2
oRadialMenu.Template = "RadialLineSize(11) = 3" // oRadialMenu.RadialLineSize(11) = 3
oRadialMenu.Items.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"

51:
How can I change the border around the subitems zone, when cursor hovers it ( outer ring )

Dim oRadialMenu as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.Expanded = .t.
oRadialMenu.ShadowColor = -1
oRadialMenu.InflateItems = "-8*dpi"
oRadialMenu.ItemsBackColor = 15790320
oRadialMenu.Template = "RadialLineColor(10) = 0" // oRadialMenu.RadialLineColor(10) = 0
oRadialMenu.Template = "RadialLineStyle(10) = 2" // oRadialMenu.RadialLineStyle(10) = 2
oRadialMenu.Template = "RadialLineSize(10) = 3" // oRadialMenu.RadialLineSize(10) = 3
oRadialMenu.Items.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"

50:
How can I change the border around the items zone, when cursor hovers it ( inner ring )

Dim oRadialMenu as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.Expanded = .t.
oRadialMenu.ShadowColor = -1
oRadialMenu.InflateItems = "-8*dpi"
oRadialMenu.ItemsBackColor = 15790320
oRadialMenu.Template = "RadialLineColor(9) = 0" // oRadialMenu.RadialLineColor(9) = 0
oRadialMenu.Template = "RadialLineStyle(9) = 2" // oRadialMenu.RadialLineStyle(9) = 2
oRadialMenu.Template = "RadialLineSize(9) = 3" // oRadialMenu.RadialLineSize(9) = 3
oRadialMenu.Items.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"

49:
How can I change the border around the parent zone, when cursor hovers it ( center ring )

Dim oRadialMenu as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.Expanded = .t.
oRadialMenu.ShadowColor = -1
oRadialMenu.InflateItems = "-8*dpi"
oRadialMenu.ItemsBackColor = 15790320
oRadialMenu.Template = "RadialLineColor(8) = 0" // oRadialMenu.RadialLineColor(8) = 0
oRadialMenu.Template = "RadialLineStyle(8) = 2" // oRadialMenu.RadialLineStyle(8) = 2
oRadialMenu.Template = "RadialLineSize(8) = 3" // oRadialMenu.RadialLineSize(8) = 3

48:
How can I change the border around the items zone ( inner ring )

Dim oRadialMenu as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.Expanded = .t.
oRadialMenu.ShadowColor = -1
oRadialMenu.InflateItems = "-8*dpi"
oRadialMenu.ItemsBackColor = 15790320
oRadialMenu.Template = "RadialLineColor(7) = 0" // oRadialMenu.RadialLineColor(7) = 0
oRadialMenu.Template = "RadialLineStyle(7) = 2" // oRadialMenu.RadialLineStyle(7) = 2
oRadialMenu.Template = "RadialLineSize(7) = 3" // oRadialMenu.RadialLineSize(7) = 3

47:
How can I change the border around the parent zone ( center ring )

Dim oRadialMenu as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.Expanded = .t.
oRadialMenu.ShadowColor = -1
oRadialMenu.InflateItems = "-8*dpi"
oRadialMenu.ItemsBackColor = 15790320
oRadialMenu.Template = "RadialLineColor(6) = 0" // oRadialMenu.RadialLineColor(6) = 0
oRadialMenu.Template = "RadialLineStyle(6) = 2" // oRadialMenu.RadialLineStyle(6) = 2
oRadialMenu.Template = "RadialLineSize(6) = 3" // oRadialMenu.RadialLineSize(6) = 3

46:
How can I change the grid lines in the items zone ( inner ring )

Dim oRadialMenu as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.Expanded = .t.
oRadialMenu.ShadowColor = -1
oRadialMenu.InflateItems = "-8*dpi"
oRadialMenu.ItemsBackColor = 15790320
oRadialMenu.Template = "RadialLineColor(5) = 0" // oRadialMenu.RadialLineColor(5) = 0
oRadialMenu.Template = "RadialLineStyle(5) = 2" // oRadialMenu.RadialLineStyle(5) = 2
oRadialMenu.Template = "RadialLineSize(5) = 3" // oRadialMenu.RadialLineSize(5) = 3

45:
How can I change the border around the slider / custom part of the control

Dim oRadialMenu as P
Dim var_Item as P
Dim var_Items as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.Expanded = .t.
oRadialMenu.ShadowColor = -1
oRadialMenu.InflateItems = "-8*dpi"
oRadialMenu.InflateCustom = oRadialMenu.InflateItems
oRadialMenu.ItemsBackColor = 15790320
oRadialMenu.Template = "RadialLineColor(4) = 0" // oRadialMenu.RadialLineColor(4) = 0
oRadialMenu.Template = "RadialLineStyle(4) = 2" // oRadialMenu.RadialLineStyle(4) = 2
oRadialMenu.Template = "RadialLineSize(4) = 3" // oRadialMenu.RadialLineSize(4) = 3
var_Items = oRadialMenu.Items
	var_Item = var_Items.Add("Slider")
		var_Item.BrowseType = 2
		var_Item.BrowseCustomType = 16
oRadialMenu.BrowseItem = oRadialMenu.Items.Item("Slider")

44:
How can I change the grid lines in the subitems zone ( outer ring )

Dim oRadialMenu as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.Expanded = .t.
oRadialMenu.ShadowColor = -1
oRadialMenu.InflateItems = "-8*dpi"
oRadialMenu.ItemsBackColor = 15790320
oRadialMenu.Template = "RadialLineColor(3) = 0" // oRadialMenu.RadialLineColor(3) = 0
oRadialMenu.Template = "RadialLineStyle(3) = 2" // oRadialMenu.RadialLineStyle(3) = 2
oRadialMenu.Template = "RadialLineSize(3) = 3" // oRadialMenu.RadialLineSize(3) = 3

43:
How can I change the border around the subitems (exRadialSubItemsBorder)

Dim oRadialMenu as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.Expanded = .t.
oRadialMenu.ShadowColor = -1
oRadialMenu.InflateItems = "-8*dpi"
oRadialMenu.ItemsBackColor = 15790320
oRadialMenu.Template = "RadialLineColor(2) = 0" // oRadialMenu.RadialLineColor(2) = 0
oRadialMenu.Template = "RadialLineStyle(2) = 2" // oRadialMenu.RadialLineStyle(2) = 2
oRadialMenu.Template = "RadialLineSize(2) = 3" // oRadialMenu.RadialLineSize(2) = 3

42:
How can I change the border around the radial menu (exRadialBorder)

Dim oRadialMenu as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.Expanded = .t.
oRadialMenu.ShadowColor = -1
oRadialMenu.InflateItems = "-8*dpi"
oRadialMenu.ItemsBackColor = 15790320
oRadialMenu.Template = "RadialLineColor(1) = 0" // oRadialMenu.RadialLineColor(1) = 0
oRadialMenu.Template = "RadialLineStyle(1) = 2" // oRadialMenu.RadialLineStyle(1) = 2
oRadialMenu.Template = "RadialLineSize(1) = 3" // oRadialMenu.RadialLineSize(1) = 3

41:
How can I customize the parent part of the control, the center ring/circle

Dim oRadialMenu as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.Expanded = .t.
oRadialMenu.Items.ToString = "Item 1[scap=Item 1],Item 2[scap=Item 2],Item 3[scap=Item 3],Item 4[scap=Item 4]"
oRadialMenu.ParentSize = "48 * dpi"
oRadialMenu.Template = "ParentImageHeight(-1) = `78 * dpi`" // oRadialMenu.ParentImageHeight(-1) = "78 * dpi"
oRadialMenu.Template = "ParentImageWidth(-1) = `78 * dpi`" // oRadialMenu.ParentImageWidth(-1) = "78 * dpi"
oRadialMenu.ParentBackColor = 65280
oRadialMenu.ParentBackAlpha = 128
oRadialMenu.ExcludeParentFromItems = .t.

40:
How can I prevent showing the arrow in the outer ring

Dim oRadialMenu as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.Expanded = .t.
oRadialMenu.ArrowImage = ""
oRadialMenu.Items.ToString = "Child(SubChild)"

39:
Is it possible to change the default arrow, that items with children display (method 2)

Dim oRadialMenu as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.Expanded = .t.
oRadialMenu.Template = "HTMLPicture(`pic1`) = `gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0iIEOZCJJUBEjBB8BBkRERAJzKRHIQAVzODjpjpnIJNIMKWKPBb8MIFiIJOBILJzhQLCdHCYBACaTgYiKHJJEIJULBHMYYAqjMAURiCKJAAogA6lA4EGgAeJnEC2ALzdAMICWf6HMS6HYCbJyvF6eSfIC8CqJJ5zI6gLbuA7ERhAHgNFRGKZHMCzDgGNDukqWYYAZocSIIYiEFiHAJsRygXCccABcTDIBMZByDBAOwEFDkVACICOOCAGCJAQgI54IaYrlesAwBQGGpgMEKcpDGoqB6RSpriIAJJFJxEVxCMCCgI`" // oRadialMenu.HTMLPicture("pic1") = "gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0iIEOZCJJUBEjBB8BBkRERAJzKRHIQAVzODjpjpnIJNIMKWKPBb8MIFiIJOBILJzhQLCdHCYBACaTgYiKHJJEIJULBHMYYAqjMAURiCKJAAogA6lA4EGgAeJnEC2ALzdAMICWf6HMS6HYCbJyvF6eSfIC8CqJJ5zI6gLbuA7ERhAHgNFRGKZHMCzDgGNDukqWYYAZocSIIYiEFiHAJsRygXCccABcTDIBMZByDBAOwEFDkVACICOOCAGCJAQgI54IaYrlesAwBQGGpgMEKcpDGoqB6RSpriIAJJFJxEVxCMCCgI"
oRadialMenu.ArrowImage = "pic1"
oRadialMenu.Items.ToString = "Child(SubChild)"

38:
Is it possible to change the default arrow, that items with children display (method 1)

Dim oRadialMenu as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.Template = "HTMLPicture(`arrow`) = `gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0iIEOZCJJUBEjBB8BBkRERAJzKRHIQAVzODjpjpnIJNIMKWKPBb8MIFiIJOBILJzhQLCdHCYBACaTgYiJfJJEIJULBHdrOYIJQAwCBEaK1FQbeaoYwGVjLWR0EgJRAEBpICwPf7BY4cQgdAYAcCjUCWfD0G6rHrlHziPTcPrEUjuY5zZpHHgdZ41DYxVTSYJSaojXT0PrTVZBar+P5aaoWT8KfiWbIBZQ1ErVPbDPyYiIAJJFJxEVxCMCCgIA==`" // oRadialMenu.HTMLPicture("arrow") = "gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0iIEOZCJJUBEjBB8BBkRERAJzKRHIQAVzODjpjpnIJNIMKWKPBb8MIFiIJOBILJzhQLCdHCYBACaTgYiJfJJEIJULBHdrOYIJQAwCBEaK1FQbeaoYwGVjLWR0EgJRAEBpICwPf7BY4cQgdAYAcCjUCWfD0G6rHrlHziPTcPrEUjuY5zZpHHgdZ41DYxVTSYJSaojXT0PrTVZBar+P5aaoWT8KfiWbIBZQ1ErVPbDPyYiIAJJFJxEVxCMCCgIA=="
oRadialMenu.Expanded = .t.
oRadialMenu.Items.ToString = "Child(SubChild)"

37:
How can I change the logo image

Dim oRadialMenu as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.Template = "HTMLPicture(`logo`) = `C:\Program Files\Exontrol\ExRadialMenu\Sample\Images\favorites.png`" // oRadialMenu.HTMLPicture("logo") = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images\favorites.png"

36:
How can I customize the items part of the control, the inside ring/circle

Dim oRadialMenu as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.Template = "DisplayRadial(3) = 1" // oRadialMenu.DisplayRadial(3) = 1
oRadialMenu.Expanded = .t.
oRadialMenu.Items.ToString = "Item 1[scap=Item 1],Item 2[scap=Item 2],Item 3[scap=Item 3],Item 4[scap=Item 4]"
oRadialMenu.InflateRadialMenu = "-4*dpi"
oRadialMenu.InflateItems = "-4*dpi"
oRadialMenu.ItemsBackColor = 65280
oRadialMenu.ItemsBackAlpha = 128

35:
How can I customize the subitems part of the control, the outside ring/circle

Dim oRadialMenu as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.Expanded = .t.
oRadialMenu.Items.ToString = "[scap=Item 1],[scap=Item 2],[scap=Item 3],[scap=Item 4]"
oRadialMenu.InflateRadialMenu = "-4*dpi"
oRadialMenu.SubItemsSize = "48 * dpi"
oRadialMenu.SubItemsBackColor = 65280
oRadialMenu.SubItemsBackAlpha = 128

34:
Can I expand/shrink the radial menu relative to its border/shadow

Dim oRadialMenu as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.Expanded = .t.
oRadialMenu.Items.ToString = "Item 1,Item 2,Item 3,Item 4"
oRadialMenu.InflateRadialMenu = "-6*dpi"

33:
Is it possible to remove/hive the control's shadow

Dim oRadialMenu as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.Expanded = .t.
oRadialMenu.ShadowColor = -1
oRadialMenu.Items.ToString = "Item 1,Item 2,Item 3,Item 4"

32:
How do I change the color of the control's shadow

Dim oRadialMenu as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.Expanded = .t.
oRadialMenu.ShadowColor = 255
oRadialMenu.Items.ToString = "Item 1,Item 2,Item 3,Item 4"

31:
How can I evaluate/format an expression using the control

Dim oRadialMenu as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.AllowToggleExpand = .f.
oRadialMenu.DisplayAngle = -66
oRadialMenu.Items.ToString = "Item 1,Item 2,Item 3,Item 4"
oRadialMenu.Template = "Caption(0) = FormatABC(```The number of items is: <b>`` + value`,Items.Count)" // oRadialMenu.Caption(0) = oRadialMenu.FormatABC("`The number of items is: <b>` + value",oRadialMenu.Items.Count)

30:
Is it possible to display some extra captions on the control's background

Dim oRadialMenu as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.BeginUpdate()
oRadialMenu.Expanded = .t.
oRadialMenu.MinVisibleCount = 6
oRadialMenu.Items.ToString = "Item 1,Item 2,Item 3,Item 4"
oRadialMenu.Template = "Caption(0) = `This is a caption to be displayed on the control's background.`" // oRadialMenu.Caption(0) = "This is a caption to be displayed on the control's background."
oRadialMenu.Template = "ExtraCaption(`extra`,0) = `This is an extra caption to be displayed on the control's background.`" // oRadialMenu.ExtraCaption("extra",0) = "This is an extra caption to be displayed on the control's background."
oRadialMenu.Template = "ExtraCaption(`extra`,3) = 2" // oRadialMenu.ExtraCaption("extra",3) = 2
oRadialMenu.Template = "ExtraCaption(`extra`,8) = True" // oRadialMenu.ExtraCaption("extra",8) = .t.
oRadialMenu.Template = "ExtraCaption(`extralogo`,0) = `<img>logo:64</img>`" // oRadialMenu.ExtraCaption("extralogo",0) = "<img>logo:64</img>"
oRadialMenu.Template = "ExtraCaption(`extralogo`,3) = 4" // oRadialMenu.ExtraCaption("extralogo",3) = 4
oRadialMenu.Template = "ExtraCaption(`extralogo`,4) = `width-twidth`" // oRadialMenu.ExtraCaption("extralogo",4) = "width-twidth"
oRadialMenu.EndUpdate()

29:
What events the control supports
' Notifies the application once the control fires an event.
function Event as v (EventID  as  N)
	oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
	? oRadialMenu.EventParam(-2) 
end function

Dim oRadialMenu as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.BeginUpdate()
oRadialMenu.Expanded = .t.
oRadialMenu.Items.ToString = "Item 1,Item 2,Item 3,Item 4"
oRadialMenu.EndUpdate()

28:
How can I use/load images/pictures

Dim oRadialMenu as P
Dim var_Item as local
Dim var_Item1 as local
Dim var_Items as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.BeginUpdate()
oRadialMenu.Expanded = .t.
oRadialMenu.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oRadialMenu.Template = "HTMLPicture(`relative`) = `settings.png`" // oRadialMenu.HTMLPicture("relative") = "settings.png"
oRadialMenu.Template = "HTMLPicture(`absolute`) = `C:\Program Files\Exontrol\ExRadialMenu\Sample\Images\favorites.png`" // oRadialMenu.HTMLPicture("absolute") = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images\favorites.png"
oRadialMenu.Template = "HTMLPicture(`encoded`) = `gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0iIEOZCJJUBEjBB8BBkRERBJwJBZOcKAZ2mB2AJ9aqCZkRDJ0IpYOhTN5mOh3MJyMoAO9JFxpNxrOZjMJwMouN5yM6bdw8DUKAjoJJEIJULCFYqXLpsChVCjHf4zTo7XZjXazUJQUgCWoNCqWYp+ZS2vDyEqSGz6UjUA4tRIkAysGyRC6fPogEyaCCjYI3Dw0YyETDiQbRA5TSJ+aQWUKLcAubrdNTaOi7XBYbRlO67brOXpzPrATrdOpmRZGFInHLJfo4GbnG7ncbeRjAHLHYYUeKhPQHEBlAynJ6fbRcXyxeQLTZsNZJEwTETnAAhEirGQBSIyOYZQhISAkARRChQnWHQUGqUA0goTRbAYJpplAKIGm0WQ7DeVg0jARggksBJRkYBx/AiTp2nYdw/DuHQHjANpsjGT53jabprl0MwmhSAggjwEAvlWdY9Cieg7HobJYmWUYvgENBkgGcAdE8FIXBcYJ5SiAY4k8SJpBqUoQEkeg6DMNwACIUZfguVojCCORnBiCcmPmFhSimLBWkcRBjnGYxsAAMBKFaDRAGcTACgALYMnAMQ/h+bwdnqHwAHAUYHh+IAujaRpSm6dJHh+zJvj8M4tD+UJegaE5dm+Gw+DKYgcAOFBpmCHIXlQH5+DwCInGqAJijcI53kKBYCnaRwOnaYh9FkOooA6EpDFcF4tkOMYjh2BoNmMOgZkAVwzlSfwXFiLAGB+b5cECQZ9nucZgF8XoMAyXZGDoHQ2jSVZVBUXRdicYB0joDBtOAARVFUDQbCYW5ECAUzGjoMA0AQUQUFAUJfAcHZPjUAhSg0IwjGOBRtBuPZNFgYZykEKY6jAQ5lkKMwnimbwfFGKwAFYGBgGgUoljwIgoigK4pkGXRNA0ZAZGCYB4CgII9iCCB4GUSIHBwKoKg6I4dIqIQfEAKoFDQAJADgHBGEyOAMD2LYtjCW5tiiKQpEEHpdjsEIIAYMR3GcTpBAgCu/nQPh6hqHgvCiMJtH2K4U3aDYBhCCR1DUNZGlqQx9D0JApAjjgjgWAQoCUKJe40SgpWwOoFGYQxdFccZlHwKpsDaGxcFsNoamsboXAuMghDgfJlCeFY7EcSp5j2FJQZocwbQUQxICYExYjOa43GwMhNlid2xmgbBoEAfJ8h2TBNE0WQ6DkOpuEWC4vj0DIbhOARzAeWZVACVYRA4e49BCBMAQtw9i7BSDIHY3A3AQd+NUHYbhug5GGEMdA7g9ATH6IMQY5hkAUB0AkOYRRpg0CYAQE4QAyAJB7CkdAgQsgIBCPAfI/Q0BvDWIMKgZBeAKX4BoSIWxbjwGsPEcY+BfC3Au6ZzQdhPj9EmKMfAZhwAmBwOcVAqhWDEFsK0bYABFhTG0Oce4IQ5ArEEEAEAgB2iuHaMYfQ+AagvDsDcG4AQACaB6B4Lguw/AdEaPUeoOQADZAoOQLoRhdCeG6PAfY/RIAJGCKEQYhxYB5GmcId4BxlDLGWHEdwqw5wwD6PcEAMwABeBeJ4P47gIB0C6McSYbgbguHsPdiYthrDYF+O8MolAuBMDEDYCQxhtC1FKNgeA6BDCCGOO4UwjRNigXsGYYQMwsBcC4IRiCdBxiIG8I4UQbxQAPAEAQOAcBmBGDMJEJAJAoTWDYPg+Y5ALDGDICgAgSRJDgDSPQcgRRihKE0HcGwYw8BkAQMEKAABag1DrKANAOw+AYBaLsLYDBNj+GCAEfg4paBpFOMccgKw9gZHKHQYI5A3iTkaEEMoVRqiKD6M4HIRwqtVAQJEGA+Q1gIE4HMAgQywhvFSEYEVOB6CJBaNUBEJA5C6BQAsEAZBhDeqoMYZ4nB8gUUavEEICABDuG8L0PY3wECIFEAimqrwjgsAsIMaY6QiA8A8M8PYTgKBFBwBwBwxAxAxAAMAZIkx3jgH4PkV4hR+AUH4HUNQARgDCsgIoJwcxCgxEM+IPIYw3D1BYGMFgbwegXBcK8AwchtjwCCEoVwFwBhABMDIconAlgWHsP8XYKA7DFFwAwOQfxmh6FPcEd4Ww6D/CqCMSICAMBjD6KYBAzBmjNF6HEew7BsjPCoFUNoTQTCTCKAAUAKAFDsDsDuu4sQODbDYDYJAkgCBKBSNIdINBLX1EgEoUt9xShMDHfAMgWQzCpCoGoMAYQwjhHqIwL4YRajyC8EgDw+hvjxE+BUNgPAgjmBkBsfpEQABJCKE4IgrghBgEEQEA=`" // oRadialMenu.HTMLPicture("encoded") = "gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0iIEOZCJJUBEjBB8BBkRERBJwJBZOcKAZ2mB2AJ9aqCZkRDJ0IpYOhTN5mOh3MJyMoAO9JFxpNxrOZjMJwMouN5yM6bdw8DUKAjoJJEIJULCFYqXLpsChVCjHf4zTo7XZjXazUJQUgCWoNCqWYp+ZS2vDyEqSGz6UjUA4tRIkAysGyRC6fPogEyaCCjYI3Dw0YyETDiQbRA5TSJ+aQWUKLcAubrdNTaOi7XBYbRlO67brOXpzPrATrdOpmRZGFInHLJfo4GbnG7ncbeRjAHLHYYUeKhPQHEBlAynJ6fbRcXyxeQLTZsNZJEwTETnAAhEirGQBSIyOYZQhISAkARRChQnWHQUGqUA0goTRbAYJpplAKIGm0WQ7DeVg0jARggksBJRkYBx/AiTp2nYdw/DuHQHjANpsjGT53jabprl0MwmhSAggjwEAvlWdY9Cieg7HobJYmWUYvgENBkgGcAdE8FIXBcYJ5SiAY4k8SJpBqUoQEkeg6DMNwACIUZfguVojCCORnBiCcmPmFhSimLBWkcRBjnGYxsAAMBKFaDRAGcTACgALYMnAMQ/h+bwdnqHwAHAUYHh+IAujaRpSm6dJHh+zJvj8M4tD+UJegaE5dm+Gw+DKYgcAOFBpmCHIXlQH5+DwCInGqAJijcI53kKBYCnaRwOnaYh9FkOooA6EpDFcF4tkOMYjh2BoNmMOgZkAVwzlSfwXFiLAGB+b5cECQZ9nucZgF8XoMAyXZGDoHQ2jSVZVBUXRdicYB0joDBtOAARVFUDQbCYW5ECAUzGjoMA0AQUQUFAUJfAcHZPjUAhSg0IwjGOBRtBuPZNFgYZykEKY6jAQ5lkKMwnimbwfFGKwAFYGBgGgUoljwIgoigK4pkGXRNA0ZAZGCYB4CgII9iCCB4GUSIHBwKoKg6I4dIqIQfEAKoFDQAJADgHBGEyOAMD2LYtjCW5tiiKQpEEHpdjsEIIAYMR3GcTpBAgCu/nQPh6hqHgvCiMJtH2K4U3aDYBhCCR1DUNZGlqQx9D0JApAjjgjgWAQoCUKJe40SgpWwOoFGYQxdFccZlHwKpsDaGxcFsNoamsboXAuMghDgfJlCeFY7EcSp5j2FJQZocwbQUQxICYExYjOa43GwMhNlid2xmgbBoEAfJ8h2TBNE0WQ6DkOpuEWC4vj0DIbhOARzAeWZVACVYRA4e49BCBMAQtw9i7BSDIHY3A3AQd+NUHYbhug5GGEMdA7g9ATH6IMQY5hkAUB0AkOYRRpg0CYAQE4QAyAJB7CkdAgQsgIBCPAfI/Q0BvDWIMKgZBeAKX4BoSIWxbjwGsPEcY+BfC3Au6ZzQdhPj9EmKMfAZhwAmBwOcVAqhWDEFsK0bYABFhTG0Oce4IQ5ArEEEAEAgB2iuHaMYfQ+AagvDsDcG4AQACaB6B4Lguw/AdEaPUeoOQADZAoOQLoRhdCeG6PAfY/RIAJGCKEQYhxYB5GmcId4BxlDLGWHEdwqw5wwD6PcEAMwABeBeJ4P47gIB0C6McSYbgbguHsPdiYthrDYF+O8MolAuBMDEDYCQxhtC1FKNgeA6BDCCGOO4UwjRNigXsGYYQMwsBcC4IRiCdBxiIG8I4UQbxQAPAEAQOAcBmBGDMJEJAJAoTWDYPg+Y5ALDGDICgAgSRJDgDSPQcgRRihKE0HcGwYw8BkAQMEKAABag1DrKANAOw+AYBaLsLYDBNj+GCAEfg4paBpFOMccgKw9gZHKHQYI5A3iTkaEEMoVRqiKD6M4HIRwqtVAQJEGA+Q1gIE4HMAgQywhvFSEYEVOB6CJBaNUBEJA5C6BQAsEAZBhDeqoMYZ4nB8gUUavEEICABDuG8L0PY3wECIFEAimqrwjgsAsIMaY6QiA8A8M8PYTgKBFBwBwBwxAxAxAAMAZIkx3jgH4PkV4hR+AUH4HUNQARgDCsgIoJwcxCgxEM+IPIYw3D1BYGMFgbwegXBcK8AwchtjwCCEoVwFwBhABMDIconAlgWHsP8XYKA7DFFwAwOQfxmh6FPcEd4Ww6D/CqCMSICAMBjD6KYBAzBmjNF6HEew7BsjPCoFUNoTQTCTCKAAUAKAFDsDsDuu4sQODbDYDYJAkgCBKBSNIdINBLX1EgEoUt9xShMDHfAMgWQzCpCoGoMAYQwjhHqIwL4YRajyC8EgDw+hvjxE+BUNgPAgjmBkBsfpEQABJCKE4IgrghBgEEQEA="
oRadialMenu.BackgroundPicture = "Background\frame.png"
var_Items = oRadialMenu.Items
	var_Items.Add("Relative 1","relative")
	' var_Items.Add("Relative 1").Image(1) = "settings.png"
	var_Item = var_Items.Add("Relative 1")
	oRadialMenu.TemplateDef = "dim var_Item"
	oRadialMenu.TemplateDef = var_Item
	oRadialMenu.Template = "var_Item.Image(1) = `settings.png`"

	var_Items.Add("Aboslute 1","absolute")
	var_Items.Add("Aboslute 2","favorites.png")
	var_Items.Add("Encoded 1","encoded")
	' var_Items.Add("Encoded 2").Image(1) = "gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0iIEOZCJJUBEjBB8BBkRERBJwJBZOcKAZ2mB2AJ9aqCZkRDJ0IpYOhTN5mOh3MJyMoAO9JFxpNxrOZjMJwMouN5yM6bdw8DUKAjoJJEIJULCFYqXLpsChVCjHf4zTo7XZjXazUJQUgCWoNCqWYp+ZS2vDyEqSGz6UjUA4tRIkAysGyRC6fPogEyaCCjYI3Dw0YyETDiQbRA5TSJ+aQWUKLcAubrdNTaOi7XBYbRlO67brOXpzPrATrdOpmRZGFInHLJfo4GbnG7ncbeRjAHLHYYUeKhPQHEBlAynJ6fbRcXyxeQLTZsNZJEwTETnAAhEirGQBSIyOYZQhISAkARRChQnWHQUGqUA0goTRbAYJpplAKIGm0WQ7DeVg0jARggksBJRkYBx/AiTp2nYdw/DuHQHjANpsjGT53jabprl0MwmhSAggjwEAvlWdY9Cieg7HobJYmWUYvgENBkgGcAdE8FIXBcYJ5SiAY4k8SJpBqUoQEkeg6DMNwACIUZfguVojCCORnBiCcmPmFhSimLBWkcRBjnGYxsAAMBKFaDRAGcTACgALYMnAMQ/h+bwdnqHwAHAUYHh+IAujaRpSm6dJHh+zJvj8M4tD+UJegaE5dm+Gw+DKYgcAOFBpmCHIXlQH5+DwCInGqAJijcI53kKBYCnaRwOnaYh9FkOooA6EpDFcF4tkOMYjh2BoNmMOgZkAVwzlSfwXFiLAGB+b5cECQZ9nucZgF8XoMAyXZGDoHQ2jSVZVBUXRdicYB0joDBtOAARVFUDQbCYW5ECAUzGjoMA0AQUQUFAUJfAcHZPjUAhSg0IwjGOBRtBuPZNFgYZykEKY6jAQ5lkKMwnimbwfFGKwAFYGBgGgUoljwIgoigK4pkGXRNA0ZAZGCYB4CgII9iCCB4GUSIHBwKoKg6I4dIqIQfEAKoFDQAJADgHBGEyOAMD2LYtjCW5tiiKQpEEHpdjsEIIAYMR3GcTpBAgCu/nQPh6hqHgvCiMJtH2K4U3aDYBhCCR1DUNZGlqQx9D0JApAjjgjgWAQoCUKJe40SgpWwOoFGYQxdFccZlHwKpsDaGxcFsNoamsboXAuMghDgfJlCeFY7EcSp5j2FJQZocwbQUQxICYExYjOa43GwMhNlid2xmgbBoEAfJ8h2TBNE0WQ6DkOpuEWC4vj0DIbhOARzAeWZVACVYRA4e49BCBMAQtw9i7BSDIHY3A3AQd+NUHYbhug5GGEMdA7g9ATH6IMQY5hkAUB0AkOYRRpg0CYAQE4QAyAJB7CkdAgQsgIBCPAfI/Q0BvDWIMKgZBeAKX4BoSIWxbjwGsPEcY+BfC3Au6ZzQdhPj9EmKMfAZhwAmBwOcVAqhWDEFsK0bYABFhTG0Oce4IQ5ArEEEAEAgB2iuHaMYfQ+AagvDsDcG4AQACaB6B4Lguw/AdEaPUeoOQADZAoOQLoRhdCeG6PAfY/RIAJGCKEQYhxYB5GmcId4BxlDLGWHEdwqw5wwD6PcEAMwABeBeJ4P47gIB0C6McSYbgbguHsPdiYthrDYF+O8MolAuBMDEDYCQxhtC1FKNgeA6BDCCGOO4UwjRNigXsGYYQMwsBcC4IRiCdBxiIG8I4UQbxQAPAEAQOAcBmBGDMJEJAJAoTWDYPg+Y5ALDGDICgAgSRJDgDSPQcgRRihKE0HcGwYw8BkAQMEKAABag1DrKANAOw+AYBaLsLYDBNj+GCAEfg4paBpFOMccgKw9gZHKHQYI5A3iTkaEEMoVRqiKD6M4HIRwqtVAQJEGA+Q1gIE4HMAgQywhvFSEYEVOB6CJBaNUBEJA5C6BQAsEAZBhDeqoMYZ4nB8gUUavEEICABDuG8L0PY3wECIFEAimqrwjgsAsIMaY6QiA8A8M8PYTgKBFBwBwBwxAxAxAAMAZIkx3jgH4PkV4hR+AUH4HUNQARgDCsgIoJwcxCgxEM+IPIYw3D1BYGMFgbwegXBcK8AwchtjwCCEoVwFwBhABMDIconAlgWHsP8XYKA7DFFwAwOQfxmh6FPcEd4Ww6D/CqCMSICAMBjD6KYBAzBmjNF6HEew7BsjPCoFUNoTQTCTCKAAUAKAFDsDsDuu4sQODbDYDYJAkgCBKBSNIdINBLX1EgEoUt9xShMDHfAMgWQzCpCoGoMAYQwjhHqIwL4YRajyC8EgDw+hvjxE+BUNgPAgjmBkBsfpEQABJCKE4IgrghBgEEQEA="
	var_Item1 = var_Items.Add("Encoded 2")
	oRadialMenu.TemplateDef = "dim var_Item1"
	oRadialMenu.TemplateDef = var_Item1
	oRadialMenu.Template = "var_Item1.Image(1) = `gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0iIEOZCJJUBEjBB8BBkRERBJwJBZOcKAZ2mB2AJ9aqCZkRDJ0IpYOhTN5mOh3MJyMoAO9JFxpNxrOZjMJwMouN5yM6bdw8DUKAjoJJEIJULCFYqXLpsChVCjHf4zTo7XZjXazUJQUgCWoNCqWYp+ZS2vDyEqSGz6UjUA4tRIkAysGyRC6fPogEyaCCjYI3Dw0YyETDiQbRA5TSJ+aQWUKLcAubrdNTaOi7XBYbRlO67brOXpzPrATrdOpmRZGFInHLJfo4GbnG7ncbeRjAHLHYYUeKhPQHEBlAynJ6fbRcXyxeQLTZsNZJEwTETnAAhEirGQBSIyOYZQhISAkARRChQnWHQUGqUA0goTRbAYJpplAKIGm0WQ7DeVg0jARggksBJRkYBx/AiTp2nYdw/DuHQHjANpsjGT53jabprl0MwmhSAggjwEAvlWdY9Cieg7HobJYmWUYvgENBkgGcAdE8FIXBcYJ5SiAY4k8SJpBqUoQEkeg6DMNwACIUZfguVojCCORnBiCcmPmFhSimLBWkcRBjnGYxsAAMBKFaDRAGcTACgALYMnAMQ/h+bwdnqHwAHAUYHh+IAujaRpSm6dJHh+zJvj8M4tD+UJegaE5dm+Gw+DKYgcAOFBpmCHIXlQH5+DwCInGqAJijcI53kKBYCnaRwOnaYh9FkOooA6EpDFcF4tkOMYjh2BoNmMOgZkAVwzlSfwXFiLAGB+b5cECQZ9nucZgF8XoMAyXZGDoHQ2jSVZVBUXRdicYB0joDBtOAARVFUDQbCYW5ECAUzGjoMA0AQUQUFAUJfAcHZPjUAhSg0IwjGOBRtBuPZNFgYZykEKY6jAQ5lkKMwnimbwfFGKwAFYGBgGgUoljwIgoigK4pkGXRNA0ZAZGCYB4CgII9iCCB4GUSIHBwKoKg6I4dIqIQfEAKoFDQAJADgHBGEyOAMD2LYtjCW5tiiKQpEEHpdjsEIIAYMR3GcTpBAgCu/nQPh6hqHgvCiMJtH2K4U3aDYBhCCR1DUNZGlqQx9D0JApAjjgjgWAQoCUKJe40SgpWwOoFGYQxdFccZlHwKpsDaGxcFsNoamsboXAuMghDgfJlCeFY7EcSp5j2FJQZocwbQUQxICYExYjOa43GwMhNlid2xmgbBoEAfJ8h2TBNE0WQ6DkOpuEWC4vj0DIbhOARzAeWZVACVYRA4e49BCBMAQtw9i7BSDIHY3A3AQd+NUHYbhug5GGEMdA7g9ATH6IMQY5hkAUB0AkOYRRpg0CYAQE4QAyAJB7CkdAgQsgIBCPAfI/Q0BvDWIMKgZBeAKX4BoSIWxbjwGsPEcY+BfC3Au6ZzQdhPj9EmKMfAZhwAmBwOcVAqhWDEFsK0bYABFhTG0Oce4IQ5ArEEEAEAgB2iuHaMYfQ+AagvDsDcG4AQACaB6B4Lguw/AdEaPUeoOQADZAoOQLoRhdCeG6PAfY/RIAJGCKEQYhxYB5GmcId4BxlDLGWHEdwqw5wwD6PcEAMwABeBeJ4P47gIB0C6McSYbgbguHsPdiYthrDYF+O8MolAuBMDEDYCQxhtC1FKNgeA6BDCCGOO4UwjRNigXsGYYQMwsBcC4IRiCdBxiIG8I4UQbxQAPAEAQOAcBmBGDMJEJAJAoTWDYPg+Y5ALDGDICgAgSRJDgDSPQcgRRihKE0HcGwYw8BkAQMEKAABag1DrKANAOw+AYBaLsLYDBNj+GCAEfg4paBpFOMccgKw9gZHKHQYI5A3iTkaEEMoVRqiKD6M4HIRwqtVAQJEGA+Q1gIE4HMAgQywhvFSEYEVOB6CJBaNUBEJA5C6BQAsEAZBhDeqoMYZ4nB8gUUavEEICABDuG8L0PY3wECIFEAimqrwjgsAsIMaY6QiA8A8M8PYTgKBFBwBwBwxAxAxAAMAZIkx3jgH4PkV4hR+AUH4HUNQARgDCsgIoJwcxCgxEM+IPIYw3D1BYGMFgbwegXBcK8AwchtjwCCEoVwFwBhABMDIconAlgWHsP8XYKA7DFFwAwOQfxmh6FPcEd4Ww6D/CqCMSICAMBjD6KYBAzBmjNF6HEew7BsjPCoFUNoTQTCTCKAAUAKAFDsDsDuu4sQODbDYDYJAkgCBKBSNIdINBLX1EgEoUt9xShMDHfAMgWQzCpCoGoMAYQwjhHqIwL4YRajyC8EgDw+hvjxE+BUNgPAgjmBkBsfpEQABJCKE4IgrghBgEEQEA=`"

	var_Items.Add("<c><img>relative</img><br><c>Relative 3")
	var_Items.Add("<c>Relative 4<br><c><img>relative</img>","relative")
oRadialMenu.EndUpdate()

27:
Does your control supports tooltips (method 2)

' Occurs when the user moves the mouse.
function MouseMove as v (Button  as  N,Shift  as  N,X  as  OLE::Exontrol.RadialMenu.1::OLE_XPOS_PIXELS,Y  as  OLE::Exontrol.RadialMenu.1::OLE_YPOS_PIXELS)
	oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
	oRadialMenu.ShowToolTip(oRadialMenu.FormatABC("`Index of the pie from the cursor: ` + (value >= 0 ? value : `<fgcolor=808080>none` )",oRadialMenu.IndexFromPoint(3,-1,-1)),"Info",0,"8","8")
end function

Dim oRadialMenu as P
Dim var_Items as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.BeginUpdate()
oRadialMenu.DisplayAngle = -45
oRadialMenu.Expanded = .t.
var_Items = oRadialMenu.Items
	var_Items.ToString = "Item 0"
	var_Items.Add("Item 1")
	var_Items.Add("Item 2")
oRadialMenu.EndUpdate()

26:
Can I change the visual appearance of the control's tooltip

Dim oRadialMenu as P
Dim var_Item as local
Dim var_Item1 as P
Dim var_Items as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.BeginUpdate()
oRadialMenu.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oRadialMenu.Template = "Background(64) = 16777216" // oRadialMenu.Background(64) = 16777216
oRadialMenu.DisplayAngle = -45
oRadialMenu.Expanded = .t.
var_Items = oRadialMenu.Items
	var_Items.ToString = "Item 0[ttp=tooltip's item][sttp=tooltip's subitem]"
	' var_Items.Add("Item 1").Tooltip(1) = "This is a bit of text that shown when user <b>hovers</b> the item"
	var_Item = var_Items.Add("Item 1")
	oRadialMenu.TemplateDef = "dim var_Item"
	oRadialMenu.TemplateDef = var_Item
	oRadialMenu.Template = "var_Item.Tooltip(1) = `This is a bit of text that shown when user <b>hovers</b> the item`"

	var_Item1 = var_Items.Add("Item 2")
		' var_Item1.Tooltip(1) = "This is a bit of text that shown when user hovers the item"
		oRadialMenu.TemplateDef = "dim var_Item1"
		oRadialMenu.TemplateDef = var_Item1
		oRadialMenu.Template = "var_Item1.Tooltip(1) = `This is a bit of text that shown when user hovers the item`"

		' var_Item1.Tooltip(2) = "This is a bit of text that shown when user hovers the sub-item"
		oRadialMenu.TemplateDef = "dim var_Item1"
		oRadialMenu.TemplateDef = var_Item1
		oRadialMenu.Template = "var_Item1.Tooltip(2) = `This is a bit of text that shown when user hovers the sub-item`"

oRadialMenu.EndUpdate()

25:
Does your control supports tooltips (method 1)

Dim oRadialMenu as P
Dim var_Item as local
Dim var_Item1 as P
Dim var_Items as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.DisplayAngle = -45
oRadialMenu.Expanded = .t.
var_Items = oRadialMenu.Items
	var_Items.ToString = "Item 0[ttp=tooltip's item][sttp=tooltip's subitem]"
	' var_Items.Add("Item 1").Tooltip(1) = "This is a bit of text that shown when user <b>hovers</b> the item"
	var_Item = var_Items.Add("Item 1")
	oRadialMenu.TemplateDef = "dim var_Item"
	oRadialMenu.TemplateDef = var_Item
	oRadialMenu.Template = "var_Item.Tooltip(1) = `This is a bit of text that shown when user <b>hovers</b> the item`"

	var_Item1 = var_Items.Add("Item 2")
		' var_Item1.Tooltip(1) = "This is a bit of text that shown when user hovers the item"
		oRadialMenu.TemplateDef = "dim var_Item1"
		oRadialMenu.TemplateDef = var_Item1
		oRadialMenu.Template = "var_Item1.Tooltip(1) = `This is a bit of text that shown when user hovers the item`"

		' var_Item1.Tooltip(2) = "This is a bit of text that shown when user hovers the sub-item"
		oRadialMenu.TemplateDef = "dim var_Item1"
		oRadialMenu.TemplateDef = var_Item1
		oRadialMenu.Template = "var_Item1.Tooltip(2) = `This is a bit of text that shown when user hovers the sub-item`"


24:
How can I use/load icons

Dim oRadialMenu as P
Dim var_Item as local
Dim var_Items as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.BeginUpdate()
oRadialMenu.Expanded = .t.
oRadialMenu.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images\Icons"
oRadialMenu.Images("copy.ico")
oRadialMenu.Images("C:\Program Files\Exontrol\ExRadialMenu\Sample\Images\Icons\dvd.ico")
oRadialMenu.Images("gBJJgBggAAQAAgACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUnOktd54mD/lp0f5wmz/Ns5f5qnj/NE/f5noT/M1FolGopmo9KpNLpxfqDvldTqlVq1XrFZrVbrldr1fjKPsT/ftlf72er0s71er/e72e1ut9ye90uz3vF3vN4ut8u1NsGBwWDwmFw2DUWJf9peb/UyXSj/Yq+Xj/Y7BX7/ZLDYL/ZTFYeeYrEf7LY2kZbHYul1T/arTaT/Kq4Kb/G7IGz/cD5cD/Ne/f+H4XD4nF41UWvJxb0xq4Viqf66V6sf68WKvf69WSw7KzWL/Xy0WXg8T/X/l8/jbzcbb/MDAL/uanxcb7cb/Pv54PH/n9/z/qsY8BOWxq0LUtC2reuK8QWvcHL7B67HAeTem2er2n0fx9H+SEOv3AEQRDETDl/Ep3mWZJkH+ZhlGUf5mmWZcXmZGUaRkZRkmSf5kQG0bSGEYTOmBErsl4ypdFyXJ/luW5bH+WkoH+TEpqlEcrSvLCsKEM5Am6bT2n4eq6zDMcxH/MkzzMfZ6LifR5rafB4wKd54H+eR1HWf52nIcp/nKbhun+SpJEkf4aUOQMs0VRdFAbRwImfSJ/nyeS1TQclAH+fR7Lqc52PuGBVBgf4klaIx/mMYRbs8XEnGZIc9T4f5vmua5/j3XB/gPXYI0ZX1fwAgiCD/YhPnIcJxTSup+nyfZ/nceh2n+HRYh4f4HFCCNr2zaZYh2f51ngdB/nwea1T3PpbFk8Yn3aT9hJJYF5Xm4V4A1e4Q0iZ9J0rZ54HSf4glqIh/gwU4OH+FxahxhOF4Lg5/iAWYhH+chzG8f5znAcJ/ksSpKn+CORBDeF6ZNk6wXheA5ZYR5gmUYWIlkIp/g+VgTH+Gxc4oJRiiyf4jmGKuc53mubn+HBVB8f5MlETR/itqJH5VYWUatq6r6pqgQkeE5nhSWIYn/sGxbIf4wmmOp/imZQybHsO37LuGua9rWVaxvG8ozu2+a0GZbh6f48nCSKgmsPh/7/wO+8Zqu9cfq3G8aFBaYYL5tEIf4omgOJ/8phnJcZyHR5N0O+gqVgUn+Fhgisf4TF4JZ/9R1XTb50ncWB227AiUgQ5D33gd/3vf93rXc+RRaKh8lfmI6j6Q72AF4oyQDBIf5N6IC")
oRadialMenu.Template = "HTMLPicture(`icon`) = `download.ico`" // oRadialMenu.HTMLPicture("icon") = "download.ico"
var_Items = oRadialMenu.Items
	var_Items.ToString = "Icon 0[img=0]"
	var_Items.Add("Icon 1",1)
	var_Items.Add("Icon 2","print.ico")
	' var_Items.Add("Icon 3").Image(2) = "icon"
	var_Item = var_Items.Add("Icon 3")
	oRadialMenu.TemplateDef = "dim var_Item"
	oRadialMenu.TemplateDef = var_Item
	oRadialMenu.Template = "var_Item.Image(2) = `icon`"

oRadialMenu.EndUpdate()

23:
How can I load items /images to the control, in sub-items zone

Dim oRadialMenu as P
Dim var_Items as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.BeginUpdate()
oRadialMenu.AllowToggleExpand = .f.
oRadialMenu.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oRadialMenu.Template = "HTMLPicture(`logo`) = `settings.png`" // oRadialMenu.HTMLPicture("logo") = "settings.png"
oRadialMenu.Template = "RadialLineColor(6) = SubItemsBackColor" // oRadialMenu.RadialLineColor(6) = oRadialMenu.SubItemsBackColor
oRadialMenu.Template = "RadialLineColor(5) = -1" // oRadialMenu.RadialLineColor(5) = -1
oRadialMenu.SubItemsSize = "64 * dpi"
oRadialMenu.ParentSize = "value - 66 * dpi"
oRadialMenu.Template = "ParentImageWidth(-1) = `64*dpi`" // oRadialMenu.ParentImageWidth(-1) = "64*dpi"
oRadialMenu.Template = "ParentImageHeight(-1) = `64*dpi`" // oRadialMenu.ParentImageHeight(-1) = "64*dpi"
oRadialMenu.Template = "ParentCaption(-1) = `<font ;14><c>System Settings</font><br><c>Surround`" // oRadialMenu.ParentCaption(-1) = "<font ;14><c>System Settings</font><br><c>Surround"
oRadialMenu.Template = "RadialLineSize(11) = 0" // oRadialMenu.RadialLineSize(11) = 0
oRadialMenu.Template = "RadialLineSize(10) = -1" // oRadialMenu.RadialLineSize(10) = -1
oRadialMenu.Template = "RadialLineColor(10) = -2147483635" // oRadialMenu.RadialLineColor(10) = -2147483635
oRadialMenu.Template = "RadialLineAlpha(10) = 128" // oRadialMenu.RadialLineAlpha(10) = 128
oRadialMenu.ItemsBackColor = oRadialMenu.SubItemsBackColor
var_Items = oRadialMenu.Items
	var_Items.Add("","color_line.png",2)
	var_Items.Add("","color_fill.png",2)
	var_Items.Add("","format_font_size_less.png",2)
	var_Items.Add("","edit_undo.png",2)
	var_Items.Add("","edit_redo.png",2)
	var_Items.Add("","edit_copy.png",2)
	var_Items.Add("","fileview_text.png",2)
	var_Items.Add("","checkmark_korganizer.png",2)
oRadialMenu.EndUpdate()

22:
How can I load items /images to the control

Dim oRadialMenu as P
Dim var_Items as P
Dim var_Items1 as local
Dim var_Items2 as local
Dim var_Items3 as local
Dim var_Items4 as local
Dim var_Items5 as local
Dim var_Items6 as local
Dim var_Items7 as local
Dim var_Items8 as local

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.BeginUpdate()
oRadialMenu.Expanded = .t.
oRadialMenu.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oRadialMenu.Template = "HTMLPicture(`arrow`) = `arrow.png`" // oRadialMenu.HTMLPicture("arrow") = "arrow.png"
oRadialMenu.SubItemsBackColor = 12500670
oRadialMenu.ShadowColor = oRadialMenu.SubItemsBackColor
oRadialMenu.Template = "RadialLineColor(6) = SubItemsBackColor" // oRadialMenu.RadialLineColor(6) = oRadialMenu.SubItemsBackColor
oRadialMenu.Template = "RadialLineColor(5) = -1" // oRadialMenu.RadialLineColor(5) = -1
var_Items = oRadialMenu.Items
	' var_Items.Add("Foreground-Color","color_line.png").Items.ToString = "Foreground"
	var_Items1 = var_Items.Add("Foreground-Color","color_line.png").Items
	oRadialMenu.TemplateDef = "dim var_Items1"
	oRadialMenu.TemplateDef = var_Items1
	oRadialMenu.Template = "var_Items1.ToString = `Foreground`"

	' var_Items.Add("Background-Color","color_fill.png").Items.ToString = "Background"
	var_Items2 = var_Items.Add("Background-Color","color_fill.png").Items
	oRadialMenu.TemplateDef = "dim var_Items2"
	oRadialMenu.TemplateDef = var_Items2
	oRadialMenu.Template = "var_Items2.ToString = `Background`"

	' var_Items.Add("Font","format_font_size_less.png").Items.ToString = "Font"
	var_Items3 = var_Items.Add("Font","format_font_size_less.png").Items
	oRadialMenu.TemplateDef = "dim var_Items3"
	oRadialMenu.TemplateDef = var_Items3
	oRadialMenu.Template = "var_Items3.ToString = `Font`"

	' var_Items.Add("Undo","edit_undo.png").Items.ToString = "Undo"
	var_Items4 = var_Items.Add("Undo","edit_undo.png").Items
	oRadialMenu.TemplateDef = "dim var_Items4"
	oRadialMenu.TemplateDef = var_Items4
	oRadialMenu.Template = "var_Items4.ToString = `Undo`"

	' var_Items.Add("Redo","edit_redo.png").Items.ToString = "Redo"
	var_Items5 = var_Items.Add("Redo","edit_redo.png").Items
	oRadialMenu.TemplateDef = "dim var_Items5"
	oRadialMenu.TemplateDef = var_Items5
	oRadialMenu.Template = "var_Items5.ToString = `Redo`"

	' var_Items.Add("Copy","edit_copy.png").Items.ToString = "Copy"
	var_Items6 = var_Items.Add("Copy","edit_copy.png").Items
	oRadialMenu.TemplateDef = "dim var_Items6"
	oRadialMenu.TemplateDef = var_Items6
	oRadialMenu.Template = "var_Items6.ToString = `Copy`"

	' var_Items.Add("List","fileview_text.png").Items.ToString = "List"
	var_Items7 = var_Items.Add("List","fileview_text.png").Items
	oRadialMenu.TemplateDef = "dim var_Items7"
	oRadialMenu.TemplateDef = var_Items7
	oRadialMenu.Template = "var_Items7.ToString = `List`"

	' var_Items.Add("Tag","checkmark_korganizer.png").Items.ToString = "Tag"
	var_Items8 = var_Items.Add("Tag","checkmark_korganizer.png").Items
	oRadialMenu.TemplateDef = "dim var_Items8"
	oRadialMenu.TemplateDef = var_Items8
	oRadialMenu.Template = "var_Items8.ToString = `Tag`"

oRadialMenu.EndUpdate()

21:
How can I load items to the control

Dim oRadialMenu as P
Dim var_Items as P
Dim var_Items1 as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.BeginUpdate()
oRadialMenu.MinVisibleCount = 3
oRadialMenu.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oRadialMenu.Template = "HTMLPicture(`remove`) = `remove.png`" // oRadialMenu.HTMLPicture("remove") = "remove.png"
oRadialMenu.Template = "HTMLPicture(`refresh`) = `refresh.png`" // oRadialMenu.HTMLPicture("refresh") = "refresh.png"
oRadialMenu.Template = "HTMLPicture(`preview`) = `preview.png`" // oRadialMenu.HTMLPicture("preview") = "preview.png"
oRadialMenu.Template = "HTMLPicture(`search`) = `search.png`" // oRadialMenu.HTMLPicture("search") = "search.png"
var_Items = oRadialMenu.Items
	var_Items1 = var_Items.Add("Search","search").Items
		var_Items1.ToString = "Search A,Search B,Search C"
	var_Items.Add("Refresh","refresh")
	var_Items.Add("Preview","preview")
	var_Items.Add("Remove","remove")
oRadialMenu.Expanded = .t.
oRadialMenu.EndUpdate()

20:
How do I get the version of the control I am running

Dim oRadialMenu as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
? "Version:" 
? oRadialMenu.Version 

19:
How do I select an item

' 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
	? "selection changed" 
end function

Dim oRadialMenu as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.AllowToggleExpand = .f.
oRadialMenu.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

18:
How can I change the item's foreground color (sample 3)

Dim oRadialMenu as P
Dim var_Item as P
Dim var_Items as P
Dim var_Items1 as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.BeginUpdate()
oRadialMenu.Expanded = .t.
oRadialMenu.MinVisibleCount = 6
oRadialMenu.Font.Size = "14.25"
var_Items = oRadialMenu.Items
	var_Item = var_Items.Add("Item 1")
		var_Item.Name = "<fgcolor FF0000>Item</fgcolor> 1"
		var_Items1 = var_Item.Items
			var_Items1.Add("SubItem 1")
			var_Items1.Add("SubItem 2")
	var_Items.Add("Item 2")
	var_Items.Add("Item 3")
	var_Items.Add("Item 4")
	var_Items.Add("Item 5")
	var_Items.Add("Item 6")
oRadialMenu.EndUpdate()

17:
How can I change the item's foreground color (sample 2)

Dim oRadialMenu as P
Dim var_Item as P
Dim var_Items as P
Dim var_Items1 as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.BeginUpdate()
oRadialMenu.Expanded = .t.
oRadialMenu.MinVisibleCount = 6
oRadialMenu.Font.Size = "14.25"
var_Items = oRadialMenu.Items
	var_Item = var_Items.Add("Item 1")
		' var_Item.ForeColor(1) = 255
		oRadialMenu.TemplateDef = "dim var_Item"
		oRadialMenu.TemplateDef = var_Item
		oRadialMenu.Template = "var_Item.ForeColor(1) = 255"

		var_Items1 = var_Item.Items
			var_Items1.Add("SubItem 1")
			var_Items1.Add("SubItem 2")
	var_Items.Add("Item 2")
	var_Items.Add("Item 3")
	var_Items.Add("Item 4")
	var_Items.Add("Item 5")
	var_Items.Add("Item 6")
oRadialMenu.EndUpdate()

16:
How can I change the item's foreground color (sample 1)

Dim oRadialMenu as P
Dim var_Items as P
Dim var_Items1 as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.BeginUpdate()
oRadialMenu.Expanded = .t.
oRadialMenu.MinVisibleCount = 6
oRadialMenu.Font.Size = "14.25"
oRadialMenu.ForeColor = 255
var_Items = oRadialMenu.Items
	var_Items1 = var_Items.Add("Item 1").Items
		var_Items1.Add("SubItem 1")
		var_Items1.Add("SubItem 2")
	var_Items.Add("Item 2")
	var_Items.Add("Item 3")
	var_Items.Add("Item 4")
	var_Items.Add("Item 5")
	var_Items.Add("Item 6")
oRadialMenu.EndUpdate()

15:
How can I add new items / childrend to the control (method 2)

Dim oRadialMenu as P
Dim var_Items as P
Dim var_Items1 as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.BeginUpdate()
oRadialMenu.Expanded = .t.
var_Items = oRadialMenu.Items
	var_Items1 = var_Items.Add("Item 1").Items
		var_Items1.Add("SubItem 1")
		var_Items1.Add("SubItem 2")
	var_Items.Add("Item 2")
	var_Items.Add("Item 3")
	var_Items.Add("Item 4")
	var_Items.Add("Item 5")
	var_Items.Add("Item 6")
	var_Items.Add("Item 7")
	var_Items.Add("Item 8")
oRadialMenu.EndUpdate()

14:
How can I add new items / childrend to the control (method 1)

Dim oRadialMenu as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.BeginUpdate()
oRadialMenu.Expanded = .t.
oRadialMenu.ToString = "Item 1(SubItem 1,SubItem 2),Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
oRadialMenu.EndUpdate()

13:
How do I enlarge the font (method 2)

Dim oRadialMenu as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.BeginUpdate()
oRadialMenu.AllowToggleExpand = .f.
oRadialMenu.MinVisibleCount = 4
oRadialMenu.ToString = "Item 1,Item 2,Item 3,Item 4"
oRadialMenu.Items.Item(0).Name = "<font ;14>Item 1"
oRadialMenu.EndUpdate()

12:
How do I enlarge the font (method 1)

Dim oRadialMenu as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.BeginUpdate()
oRadialMenu.AllowToggleExpand = .f.
oRadialMenu.MinVisibleCount = 4
oRadialMenu.ToString = "Item 1,Item 2,Item 3,Item 4"
oRadialMenu.Font.Size = "14.25"
oRadialMenu.EndUpdate()

11:
How can I expand the control (method 2)
Dim oRadialMenu as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.AllowToggleExpand = .f.

10:
How can I expand the control (method 1)
Dim oRadialMenu as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.Expanded = .t.

9:
By default, the control displays 8-pies. How can I change that

Dim oRadialMenu as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.Expanded = .t.
oRadialMenu.MinVisibleCount = 3

8:
How can I prevents expanding / collapsing the radial menu
Dim oRadialMenu as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.BeginUpdate()
oRadialMenu.AllowToggleExpand = .f.
oRadialMenu.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
oRadialMenu.Template = "Caption(0) = `Cant expand/collapse the radial menu`" // oRadialMenu.Caption(0) = "Cant expand/collapse the radial menu"
oRadialMenu.Template = "Caption(3) = 0" // oRadialMenu.Caption(3) = 0
oRadialMenu.Template = "Caption(4) = `width-twidth`" // oRadialMenu.Caption(4) = "width-twidth"
oRadialMenu.Template = "Caption(5) = `height-theight`" // oRadialMenu.Caption(5) = "height-theight"
oRadialMenu.EndUpdate()

7:
How can I prevent flickering the item, when user selects it
Dim oRadialMenu as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.AllowToggleExpand = .f.
oRadialMenu.ToString = "<c><b>Item 1<b><br><c>no flick<br>,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
oRadialMenu.Items.Item(0).BrowseType = -1 'fffffffc + exBrowseItemCustom + exBrowseItemChild

6:
How do I highlight the sub-item zone when cursor hovers it (method 2)

Dim oRadialMenu as P
Dim var_Items as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.Expanded = .t.
oRadialMenu.Template = "RadialLineSize(11) = FormatABC(SubItemsSize)" // oRadialMenu.RadialLineSize(11) = oRadialMenu.FormatABC(oRadialMenu.SubItemsSize)
oRadialMenu.Template = "RadialLineColor(11) = -2147483635" // oRadialMenu.RadialLineColor(11) = -2147483635
oRadialMenu.Template = "RadialLineAlpha(11) = 64" // oRadialMenu.RadialLineAlpha(11) = 64
var_Items = oRadialMenu.Items
	var_Items.Add("Item A")
	var_Items.Add("Item B")
	var_Items.Add("Item C")

5:
How do I highlight the sub-item zone when cursor hovers it (method 1)

Dim oRadialMenu as P
Dim var_Items as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.Expanded = .t.
oRadialMenu.Template = "RadialLineSize(11) = 0" // oRadialMenu.RadialLineSize(11) = 0
oRadialMenu.Template = "RadialLineSize(10) = -1" // oRadialMenu.RadialLineSize(10) = -1
oRadialMenu.Template = "RadialLineColor(10) = -2147483635" // oRadialMenu.RadialLineColor(10) = -2147483635
oRadialMenu.Template = "RadialLineAlpha(10) = 64" // oRadialMenu.RadialLineAlpha(10) = 64
var_Items = oRadialMenu.Items
	var_Items.Add("Item A")
	var_Items.Add("Item B")
	var_Items.Add("Item C")

4:
Is it possible to highlight the entire item when cursor hovers the item

Dim oRadialMenu as P
Dim var_Items as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.Expanded = .t.
oRadialMenu.Template = "RadialLineSize(11) = -1" // oRadialMenu.RadialLineSize(11) = -1
oRadialMenu.Template = "RadialLineColor(11) = -2147483635" // oRadialMenu.RadialLineColor(11) = -2147483635
oRadialMenu.Template = "RadialLineAlpha(11) = 64" // oRadialMenu.RadialLineAlpha(11) = 64
var_Items = oRadialMenu.Items
	var_Items.Add("Item A")
	var_Items.Add("Item B")
	var_Items.Add("Item C")

3:
How can I hide the hot line when hovering the cursor
Dim oRadialMenu as P
Dim var_Items as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.AllowToggleExpand = .f.
oRadialMenu.Template = "RadialLineSize(11) = 0" // oRadialMenu.RadialLineSize(11) = 0
var_Items = oRadialMenu.Items
	var_Items.Add("Item A")
	var_Items.Add("Item B")
	var_Items.Add("Item C")

2:
How can I hide the control's shadow

Dim oRadialMenu as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.Expanded = .t.
oRadialMenu.ShadowColor = -1

1:
How do I change the control's background color
Dim oRadialMenu as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.BackColor = 16380144