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

with thisform.RadialMenu1
	.BeginUpdate
	.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	.Object.HTMLPicture("arrow") = "stock_mail_filters_apply.png"
	.Object.HTMLPicture("settings") = "settings.png"
	.Object.HTMLPicture("hard") = "download.png"
	.Object.HTMLPicture("favorites") = "favorites.png"
	.Object.HTMLPicture("remove") = "remove.png"
	.Object.HTMLPicture("refresh") = "refresh.png"
	.Object.HTMLPicture("synchronize") = "synchronize.png"
	.Object.HTMLPicture("preview") = "preview.png"
	.Object.HTMLPicture("search") = "search.png"
	var_s = "Save[img=hard],Settings[img=settings][browse=2][custom=16],Favorites[img=favorites](1,2),Refresh[img=refresh],<c>Quit<br><c>Appl"
	var_s = var_s + "ication[img=remove],Synchronize[img=synchronize],Search[img=search](1,2),Preview[img=preview](1,2)"
	.ToString = var_s
	.Expanded = .T.
	.Object.DisplayRadial(1) = 3
	.BackgroundPicture = "Background\frontc.png"
	.SubItemsBackColor = -1
	.SubItemsSize = "18 * dpi"
	.EndUpdate
	.Float = .T. && .T.
endwith
86:
How do I add a radial-slider control

with thisform.RadialMenu1
	.Expanded = .T.
	.ShadowColor = -1
	.InflateItems = "-8*dpi"
	.InflateCustom = .InflateItems
	.ItemsBackColor = RGB(240,240,240)
	.Object.RadialLineColor(4) = RGB(0,0,0)
	.Object.RadialLineStyle(4) = 2
	.Object.RadialLineSize(4) = 3
	with .Items
		with .Add("Slider")
			.BrowseType = 2
			.BrowseCustomType = 16
			.BrowseCustom(9) = 35
		endwith
	endwith
	.BrowseItem = .Items.Item("Slider")
endwith
85:
How can I display a slider directly on the radial menu, with no items...

with thisform.RadialMenu1
	.BeginUpdate
	.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	.Expanded = .T.
	.InflateCustom = "-4 * dpi"
	.Object.RadialLineColor(4) = RGB(0,0,0)
	.Object.RadialLineSize(4) = 3
	.Object.RadialLineAlpha(4) = 128
	.CustomPicture = "Background\frame.png"
	with .Root
		.BrowseType = 2
		.BrowseCustomType = 16
		.BrowseCustom(9) = 25
	endwith
	.Refresh
	.EndUpdate
endwith
84:
How can I programatically browses for a new item

with thisform.RadialMenu1
	.Expanded = .T.
	.ShadowColor = -1
	.InflateItems = "-8*dpi"
	.InflateCustom = .InflateItems
	.ItemsBackColor = RGB(240,240,240)
	.Object.RadialLineColor(4) = RGB(0,0,0)
	.Object.RadialLineStyle(4) = 2
	.Object.RadialLineSize(4) = 3
	with .Items
		with .Add("Slider")
			.BrowseType = 2
			.BrowseCustomType = 16
		endwith
	endwith
	.BrowseItem = .Items.Item("Slider")
endwith
83:
How can I display the items rotated

with thisform.RadialMenu1
	.BeginUpdate
	.Expanded = .T.
	.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	.Object.HTMLPicture("arrow") = "arrow.png"
	.Expanded = .T.
	.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)"
	.Object.DisplayRadial(1) = 1
	.Object.DisplayCenter(1) = 0.05
	.EndUpdate
endwith
82:
Is it possible to display the arrow into the items section, and how I can change the default position

with thisform.RadialMenu1
	.BeginUpdate
	.Expanded = .T.
	.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	.Object.HTMLPicture("arrow") = "arrowu.png"
	.DisplayArrow = 1
	.Object.DisplayCenterArrow(1) = 0
	.Expanded = .T.
	.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)"
	.EndUpdate
endwith
81:
Can I display the arrow into the items section

with thisform.RadialMenu1
	.BeginUpdate
	.Expanded = .T.
	.DisplayArrow = 1
	.Expanded = .T.
	.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)"
	.EndUpdate
endwith
80:
How can I know if the cursor is hovering the center ring ( parent zone )
*** MouseMove event - Occurs when the user moves the mouse. ***
LPARAMETERS Button,Shift,X,Y
	with thisform.RadialMenu1
		DEBUGOUT( "ParentOnPoint " )
		DEBUGOUT( .ParentOnPoint(-1,-1) )
	endwith

with thisform.RadialMenu1
	.Expanded = .T.
endwith
79:
How can I specify the size to display the images/pictures into the items

with thisform.RadialMenu1
	.BeginUpdate
	.AllowToggleExpand = .F.
	.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	.Object.ItemsImageHeight(1) = "64*dpi"
	.Object.ItemsImageWidth(1) = "64*dpi"
	with .Items
		.Add("","color_line.png")
		.Add("","color_fill.png")
		.Add("","format_font_size_less.png")
		.Add("","edit_undo.png")
		.Add("","edit_redo.png")
		.Add("","edit_copy.png")
		.Add("","fileview_text.png")
		.Add("","checkmark_korganizer.png")
	endwith
	.EndUpdate
endwith
78:
By default, the parent image is 32-pixels wide. Can I display it larger

with thisform.RadialMenu1
	.BeginUpdate
	.AllowToggleExpand = .F.
	.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	.Object.HTMLPicture("logo") = "settings.png"
	.ParentSize = "96 * dpi"
	.Object.ParentImageWidth(-1) = "64*dpi"
	.Object.ParentImageHeight(-1) = "64*dpi"
	.Object.ParentCaption(-1) = "<font ;14><c>System Settings</font><br><c>Surround"
	.EndUpdate
endwith
77:
Is it possible to specify where to display the item's caption

with thisform.RadialMenu1
	.BeginUpdate
	.Expanded = .T.
	.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)"
	.Items.Item(0).BackColor(3) = RGB(240,240,240)
	.Object.DisplayCenter(1) = 0.85
	.EndUpdate
endwith
76:
How can I disable browsing the items, or prevent displaying its children
with thisform.RadialMenu1
	.BeginUpdate
	.Expanded = .T.
	.AllowBrowseItem = .F.
	.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)"
	.EndUpdate
endwith
75:
How do I get the item from the point
*** MouseMove event - Occurs when the user moves the mouse. ***
LPARAMETERS Button,Shift,X,Y
	with thisform.RadialMenu1
		DEBUGOUT( "Full-Item: " )
		DEBUGOUT( .ItemFromPoint(3,-1,-1).Caption(1) )
		DEBUGOUT( "Item: " )
		DEBUGOUT( .ItemFromPoint(1,-1,-1).Caption(1) )
		DEBUGOUT( "SubItem: " )
		DEBUGOUT( .ItemFromPoint(2,-1,-1).Caption(2) )
	endwith

with thisform.RadialMenu1
	.Expanded = .T.
	var_s = "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[s"
	var_s = var_s + "cap=sub item 6],Item 7[scap=sub item 7],Item 8[scap=sub item 8]"
	.Items.ToString = var_s
endwith
74:
How do I get the index of the pie from the point
*** MouseMove event - Occurs when the user moves the mouse. ***
LPARAMETERS Button,Shift,X,Y
	with thisform.RadialMenu1
		DEBUGOUT( "Full-Index: " )
		DEBUGOUT( .IndexFromPoint(3,-1,-1) )
		DEBUGOUT( "Index: " )
		DEBUGOUT( .IndexFromPoint(1,-1,-1) )
		DEBUGOUT( "Sub-Index: " )
		DEBUGOUT( .IndexFromPoint(2,-1,-1) )
	endwith

with thisform.RadialMenu1
	.Expanded = .T.
endwith
73:
How can I select an item

*** 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
72:
How can I use the sub-items zone only

with thisform.RadialMenu1
	.BeginUpdate
	.AllowToggleExpand = .F.
	.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	.Object.HTMLPicture("logo") = "settings.png"
	.Object.RadialLineColor(6) = .SubItemsBackColor
	.Object.RadialLineColor(5) = -1
	.SubItemsSize = "64 * dpi"
	.ParentSize = "value - 66 * dpi"
	.Object.ParentImageWidth(-1) = "64*dpi"
	.Object.ParentImageHeight(-1) = "64*dpi"
	.Object.ParentCaption(-1) = "<font ;14><c>System Settings</font><br><c>Surround"
	.Object.RadialLineSize(11) = 0
	.Object.RadialLineSize(10) = -1
	.Object.RadialLineColor(10) = 0x8000000d
	.Object.RadialLineAlpha(10) = 128
	.ItemsBackColor = .SubItemsBackColor
	with .Items
		.Add("","color_line.png",2)
		.Add("","color_fill.png",2)
		.Add("","format_font_size_less.png",2)
		.Add("","edit_undo.png",2)
		.Add("","edit_redo.png",2)
		.Add("","edit_copy.png",2)
		.Add("","fileview_text.png",2)
		.Add("","checkmark_korganizer.png",2)
	endwith
	.EndUpdate
endwith
71:
Is it possible to display all items with a different rotation angle

with thisform.RadialMenu1
	.BeginUpdate
	.Expanded = .T.
	.DisplayAngle = -7.5
	.DisplayArrow = 1
	.Object.DisplayRadial(1) = 1
	.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	.ParentSize = "48 * dpi"
	.ParentPicture = "Background\frontb.png"
	.ArrowImage = "arrow.png"
	.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
	.InflateParentPicture = "72 * dpi"
	.EndUpdate
endwith
70:
How can I programatically advance / browse for the parent item (method 2)
*** RClick event - Occurs once the user right clicks the control. ***
LPARAMETERS nop
	with thisform.RadialMenu1
		.BrowseItem = .BrowseItem.Parent
	endwith

with thisform.RadialMenu1
	.Expanded = .T.
	.DisplayArrow = 1
	with .Items
		with .Add("Volume")
			.Caption(2) = "slider"
			.BrowseType = 2
			.BrowseCustomType = 16
		endwith
		with .Add("Item").Items
			.Add("Child 1")
			.Add("Child 2")
		endwith
	endwith
endwith
69:
How can I programatically advance / browse for the parent item (method 1)
*** RClick event - Occurs once the user right clicks the control. ***
LPARAMETERS nop
	with thisform.RadialMenu1
		.GoBack
	endwith

with thisform.RadialMenu1
	.Expanded = .T.
	.DisplayArrow = 1
	with .Items
		with .Add("Volume")
			.Caption(2) = "slider"
			.BrowseType = 2
			.BrowseCustomType = 16
		endwith
		with .Add("Item").Items
			.Add("Child 1")
			.Add("Child 2")
		endwith
	endwith
endwith
68:
Can I display the pointer with a different angle

with thisform.RadialMenu1
	.BeginUpdate
	.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	.PointerPicture = "pointer.png"
	.PointerPictureY = "y + (height-pheight)/2- 21*dpi"
	.PointerPictureX = "x + (width-pwidth)/2 + 1 * dpi"
	.AllowHotPointer = .F.
	.ParentSize = "36*dpi"
	.Object.ParentImageHeight(-1) = "48*dpi"
	.Object.ParentImageWidth(-1) = "48*dpi"
	.Object.RadialLineSize(8) = -1
	.Object.RadialLineAlpha(8) = 32
	.Object.RadialLineColor(11) = -1
	.Expanded = .T.
	.Items.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
	.PointerAngle = 12
	.EndUpdate
endwith
67:
How can I use the pointer (select sample)

*** SelectItem event - Notifies once the user selects an item. ***
LPARAMETERS Item
	*** PointerIndex = Item.Index
	with thisform.RadialMenu1
		.Object.SelectedIndex(3) = .PointerIndex
	endwith

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

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

with thisform.RadialMenu1
	.BeginUpdate
	.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	.BackgroundPicture = "Background\fronte.png"
	.ForeColor = RGB(255,255,255)
	.Expanded = .T.
	.ParentSize = "48 * dpi"
	.Object.DisplayRadial(1) = 1
	.Object.DisplayCenter(1) = 0.23
	.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
	.ParentBackColor = -1
	.ExcludeParentFromItems = .T.
	.Object.RadialLineColor(6) = RGB(0,0,0)
	.Object.RadialLineAlpha(6) = 128
	.Object.RadialLineStyle(5) = 2
	.Object.RadialLineAlpha(5) = 128
	.EndUpdate
endwith
64:
Can I display the picture on the parent zone, a bit larger

with thisform.RadialMenu1
	.BeginUpdate
	.Expanded = .T.
	.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	.ParentSize = "48 * dpi"
	.ParentPicture = "Background\frontb.png"
	.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
	.InflateParentPicture = "64 * dpi"
	.EndUpdate
endwith
63:
Is it possible to assign a different background picture when displaying a slider/custom data

with thisform.RadialMenu1
	.Expanded = .T.
	.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	.DisplayArrow = 1
	.Items.ToString = "[scap=Item 1],[scap=Item 2],[scap=Item 3],[scap=Item 4]"
	.InflateRadialMenu = "-4*dpi"
	.InflateCustom = "-4*dpi"
	.CustomPicture = "Background\frontb.png"
	.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"
	with .Items.Item("Item 2")
		.BrowseType = 2
		.BrowseCustomType = 16
	endwith
	.BrowseItem = .Items.Item("Item 2")
endwith
62:
How can I customize the custom part of the control, the inside ring/circle

with thisform.RadialMenu1
	.Expanded = .T.
	.DisplayArrow = 1
	.Items.ToString = "[scap=Item 1],[scap=Item 2],[scap=Item 3],[scap=Item 4]"
	.InflateRadialMenu = "-4*dpi"
	.InflateCustom = "-4*dpi"
	.CustomBackColor = RGB(128,128,128)
	.CustomBackAlpha = 128
	.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"
	with .Items.Item("Item 2")
		.BrowseType = 2
		.BrowseCustomType = 16
	endwith
	.BrowseItem = .Items.Item("Item 2")
endwith
61:
How do I prevent expanding / collapsing the radial menu
with thisform.RadialMenu1
	.AllowToggleExpand = .F.
	.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"
	with .Items.Item("Item 2")
		.BrowseType = 2
		.BrowseCustomType = 16
	endwith
endwith
60:
Is it possible to change the parent's picture/image when expanding collapsing the radial menu

*** BrowseItem event - Notifies once the user browses for a new item. ***
LPARAMETERS Item
	with thisform.RadialMenu1
		DEBUGOUT( "Current State: " )
		DEBUGOUT( .State )
	endwith

*** SelectParent event - Occurs once the user clicks the parent of the item. ***
LPARAMETERS nop
	with thisform.RadialMenu1
		DEBUGOUT( "Current State: " )
		DEBUGOUT( .State )
	endwith

with thisform.RadialMenu1
	.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	.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"
	with .Items.Item("Item 2")
		.BrowseType = 2
		.BrowseCustomType = 16
	endwith
	.Object.ParentImage(0) = "format_font_size_less.png"
	.Object.ParentImage(1) = "fileview_text.png"
	.Object.ParentImage(2) = "edit_undo.png"
endwith
59:
Is it possible to assign a different picture on the parent zone (center ring)

with thisform.RadialMenu1
	.Expanded = .T.
	.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	.ParentSize = "48 * dpi"
	.ParentPicture = "Background\frontb.png"
	.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
endwith
58:
Is it possible to assign a different picture on the items zone (inner ring)

with thisform.RadialMenu1
	.Expanded = .T.
	.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	.ItemsPicture = "Background\frontc.png"
	.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
endwith
57:
How can I change the control's background picture

with thisform.RadialMenu1
	.Expanded = .T.
	.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	.BackgroundPicture = "Background\fronta.png"
	.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
endwith
56:
How can I hide the line being shown around the item form the cursor

with thisform.RadialMenu1
	.Expanded = .T.
	.ShadowColor = -1
	.InflateItems = "-8*dpi"
	.ItemsBackColor = RGB(240,240,240)
	.Object.RadialLineSize(11) = 0
	.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
endwith
55:
Is it possible to highlight items with children, with a different background color, for those arrow picture is shown (items, inner ring)

with thisform.RadialMenu1
	.Expanded = .T.
	.ShadowColor = -1
	.InflateItems = "-8*dpi"
	.ItemsBackColor = RGB(240,240,240)
	.Object.RadialLineColor(13) = RGB(0,0,0)
	.Object.RadialLineAlpha(13) = 64
	.Object.RadialLineSize(13) = -1
	.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
endwith
54:
Is it possible to highlight items with children, with a different background color, for those arrow picture is shown (subitems, outer ring)

with thisform.RadialMenu1
	.Expanded = .T.
	.ShadowColor = -1
	.InflateItems = "-8*dpi"
	.ItemsBackColor = RGB(240,240,240)
	.Object.RadialLineColor(12) = RGB(0,0,0)
	.Object.RadialLineAlpha(12) = 64
	.Object.RadialLineSize(12) = -1
	.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
endwith
53:
Is it possible to highlight the entire item, when cursor hovers it

with thisform.RadialMenu1
	.Expanded = .T.
	.ShadowColor = -1
	.InflateItems = "-8*dpi"
	.ItemsBackColor = RGB(240,240,240)
	.Object.RadialLineColor(11) = RGB(0,0,0)
	.Object.RadialLineAlpha(11) = 64
	.Object.RadialLineSize(11) = -1
	.Items.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
endwith
52:
How can I change the border around the subitems zone, when cursor hovers it ( outer ring )

with thisform.RadialMenu1
	.Expanded = .T.
	.ShadowColor = -1
	.InflateItems = "-8*dpi"
	.ItemsBackColor = RGB(240,240,240)
	.Object.RadialLineColor(11) = RGB(0,0,0)
	.Object.RadialLineStyle(11) = 2
	.Object.RadialLineSize(11) = 3
	.Items.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
endwith
51:
How can I change the border around the subitems zone, when cursor hovers it ( outer ring )

with thisform.RadialMenu1
	.Expanded = .T.
	.ShadowColor = -1
	.InflateItems = "-8*dpi"
	.ItemsBackColor = RGB(240,240,240)
	.Object.RadialLineColor(10) = RGB(0,0,0)
	.Object.RadialLineStyle(10) = 2
	.Object.RadialLineSize(10) = 3
	.Items.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
endwith
50:
How can I change the border around the items zone, when cursor hovers it ( inner ring )

with thisform.RadialMenu1
	.Expanded = .T.
	.ShadowColor = -1
	.InflateItems = "-8*dpi"
	.ItemsBackColor = RGB(240,240,240)
	.Object.RadialLineColor(9) = RGB(0,0,0)
	.Object.RadialLineStyle(9) = 2
	.Object.RadialLineSize(9) = 3
	.Items.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
endwith
49:
How can I change the border around the parent zone, when cursor hovers it ( center ring )

with thisform.RadialMenu1
	.Expanded = .T.
	.ShadowColor = -1
	.InflateItems = "-8*dpi"
	.ItemsBackColor = RGB(240,240,240)
	.Object.RadialLineColor(8) = RGB(0,0,0)
	.Object.RadialLineStyle(8) = 2
	.Object.RadialLineSize(8) = 3
endwith
48:
How can I change the border around the items zone ( inner ring )

with thisform.RadialMenu1
	.Expanded = .T.
	.ShadowColor = -1
	.InflateItems = "-8*dpi"
	.ItemsBackColor = RGB(240,240,240)
	.Object.RadialLineColor(7) = RGB(0,0,0)
	.Object.RadialLineStyle(7) = 2
	.Object.RadialLineSize(7) = 3
endwith
47:
How can I change the border around the parent zone ( center ring )

with thisform.RadialMenu1
	.Expanded = .T.
	.ShadowColor = -1
	.InflateItems = "-8*dpi"
	.ItemsBackColor = RGB(240,240,240)
	.Object.RadialLineColor(6) = RGB(0,0,0)
	.Object.RadialLineStyle(6) = 2
	.Object.RadialLineSize(6) = 3
endwith
46:
How can I change the grid lines in the items zone ( inner ring )

with thisform.RadialMenu1
	.Expanded = .T.
	.ShadowColor = -1
	.InflateItems = "-8*dpi"
	.ItemsBackColor = RGB(240,240,240)
	.Object.RadialLineColor(5) = RGB(0,0,0)
	.Object.RadialLineStyle(5) = 2
	.Object.RadialLineSize(5) = 3
endwith
45:
How can I change the border around the slider / custom part of the control

with thisform.RadialMenu1
	.Expanded = .T.
	.ShadowColor = -1
	.InflateItems = "-8*dpi"
	.InflateCustom = .InflateItems
	.ItemsBackColor = RGB(240,240,240)
	.Object.RadialLineColor(4) = RGB(0,0,0)
	.Object.RadialLineStyle(4) = 2
	.Object.RadialLineSize(4) = 3
	with .Items
		with .Add("Slider")
			.BrowseType = 2
			.BrowseCustomType = 16
		endwith
	endwith
	.BrowseItem = .Items.Item("Slider")
endwith
44:
How can I change the grid lines in the subitems zone ( outer ring )

with thisform.RadialMenu1
	.Expanded = .T.
	.ShadowColor = -1
	.InflateItems = "-8*dpi"
	.ItemsBackColor = RGB(240,240,240)
	.Object.RadialLineColor(3) = RGB(0,0,0)
	.Object.RadialLineStyle(3) = 2
	.Object.RadialLineSize(3) = 3
endwith
43:
How can I change the border around the subitems (exRadialSubItemsBorder)

with thisform.RadialMenu1
	.Expanded = .T.
	.ShadowColor = -1
	.InflateItems = "-8*dpi"
	.ItemsBackColor = RGB(240,240,240)
	.Object.RadialLineColor(2) = RGB(0,0,0)
	.Object.RadialLineStyle(2) = 2
	.Object.RadialLineSize(2) = 3
endwith
42:
How can I change the border around the radial menu (exRadialBorder)

with thisform.RadialMenu1
	.Expanded = .T.
	.ShadowColor = -1
	.InflateItems = "-8*dpi"
	.ItemsBackColor = RGB(240,240,240)
	.Object.RadialLineColor(1) = RGB(0,0,0)
	.Object.RadialLineStyle(1) = 2
	.Object.RadialLineSize(1) = 3
endwith
41:
How can I customize the parent part of the control, the center ring/circle

with thisform.RadialMenu1
	.Expanded = .T.
	.Items.ToString = "Item 1[scap=Item 1],Item 2[scap=Item 2],Item 3[scap=Item 3],Item 4[scap=Item 4]"
	.ParentSize = "48 * dpi"
	.Object.ParentImageHeight(-1) = "78 * dpi"
	.Object.ParentImageWidth(-1) = "78 * dpi"
	.ParentBackColor = RGB(0,255,0)
	.ParentBackAlpha = 128
	.ExcludeParentFromItems = .T.
endwith
40:
How can I prevent showing the arrow in the outer ring

with thisform.RadialMenu1
	.Expanded = .T.
	.ArrowImage = ""
	.Items.ToString = "Child(SubChild)"
endwith
39:
Is it possible to change the default arrow, that items with children display (method 2)

with thisform.RadialMenu1
	.Expanded = .T.
	var_s = "gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0iIEOZCJJUBEjBB8BBkRERAJzKRHIQAVzODjpjpnIJNIMKWKPBb8MIFiIJOBILJzhQLCdHCYBACaTgYiKHJJEIJ"
	var_s = var_s + "ULBHMYYAqjMAURiCKJAAogA6lA4EGgAeJnEC2ALzdAMICWf6HMS6HYCbJyvF6eSfIC8CqJJ5zI6gLbuA7ERhAHgNFRGKZHMCzDgGNDukqWYYAZocSIIYiEFiHAJsRygX"
	var_s = var_s + "CccABcTDIBMZByDBAOwEFDkVACICOOCAGCJAQgI54IaYrlesAwBQGGpgMEKcpDGoqB6RSpriIAJJFJxEVxCMCCgI"
	.Object.HTMLPicture("pic1") = var_s
	.ArrowImage = "pic1"
	.Items.ToString = "Child(SubChild)"
endwith
38:
Is it possible to change the default arrow, that items with children display (method 1)

with thisform.RadialMenu1
	var_s = "gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0iIEOZCJJUBEjBB8BBkRERAJzKRHIQAVzODjpjpnIJNIMKWKPBb8MIFiIJOBILJzhQLCdHCYBACaTgYiJfJJEIJ"
	var_s = var_s + "ULBHdrOYIJQAwCBEaK1FQbeaoYwGVjLWR0EgJRAEBpICwPf7BY4cQgdAYAcCjUCWfD0G6rHrlHziPTcPrEUjuY5zZpHHgdZ41DYxVTSYJSaojXT0PrTVZBar+P5aaoWT"
	var_s = var_s + "8KfiWbIBZQ1ErVPbDPyYiIAJJFJxEVxCMCCgIA=="
	.Object.HTMLPicture("arrow") = var_s
	.Expanded = .T.
	.Items.ToString = "Child(SubChild)"
endwith
37:
How can I change the logo image

with thisform.RadialMenu1
	.Object.HTMLPicture("logo") = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images\favorites.png"
endwith
36:
How can I customize the items part of the control, the inside ring/circle

with thisform.RadialMenu1
	.Object.DisplayRadial(3) = 1
	.Expanded = .T.
	.Items.ToString = "Item 1[scap=Item 1],Item 2[scap=Item 2],Item 3[scap=Item 3],Item 4[scap=Item 4]"
	.InflateRadialMenu = "-4*dpi"
	.InflateItems = "-4*dpi"
	.ItemsBackColor = RGB(0,255,0)
	.ItemsBackAlpha = 128
endwith
35:
How can I customize the subitems part of the control, the outside ring/circle

with thisform.RadialMenu1
	.Expanded = .T.
	.Items.ToString = "[scap=Item 1],[scap=Item 2],[scap=Item 3],[scap=Item 4]"
	.InflateRadialMenu = "-4*dpi"
	.SubItemsSize = "48 * dpi"
	.SubItemsBackColor = RGB(0,255,0)
	.SubItemsBackAlpha = 128
endwith
34:
Can I expand/shrink the radial menu relative to its border/shadow

with thisform.RadialMenu1
	.Expanded = .T.
	.Items.ToString = "Item 1,Item 2,Item 3,Item 4"
	.InflateRadialMenu = "-6*dpi"
endwith
33:
Is it possible to remove/hive the control's shadow

with thisform.RadialMenu1
	.Expanded = .T.
	.ShadowColor = -1
	.Items.ToString = "Item 1,Item 2,Item 3,Item 4"
endwith
32:
How do I change the color of the control's shadow

with thisform.RadialMenu1
	.Expanded = .T.
	.ShadowColor = RGB(255,0,0)
	.Items.ToString = "Item 1,Item 2,Item 3,Item 4"
endwith
31:
How can I evaluate/format an expression using the control

with thisform.RadialMenu1
	.AllowToggleExpand = .F.
	.DisplayAngle = -66
	.Items.ToString = "Item 1,Item 2,Item 3,Item 4"
	.Object.Caption(0) = .FormatABC("`The number of items is: <b>` + value",.Items.Count)
endwith
30:
Is it possible to display some extra captions on the control's background

with thisform.RadialMenu1
	.BeginUpdate
	.Expanded = .T.
	.MinVisibleCount = 6
	.Items.ToString = "Item 1,Item 2,Item 3,Item 4"
	.Object.Caption(0) = "This is a caption to be displayed on the control's background."
	.Object.ExtraCaption("extra",0) = "This is an extra caption to be displayed on the control's background."
	.Object.ExtraCaption("extra",3) = 2
	.Object.ExtraCaption("extra",8) = .T.
	.Object.ExtraCaption("extralogo",0) = "<img>logo:64</img>"
	.Object.ExtraCaption("extralogo",3) = 4
	.Object.ExtraCaption("extralogo",4) = "width-twidth"
	.EndUpdate
endwith
29:
What events the control supports
*** Event event - Notifies the application once the control fires an event. ***
LPARAMETERS EventID
	with thisform.RadialMenu1
		DEBUGOUT( .EventParam(-2) )
	endwith

with thisform.RadialMenu1
	.BeginUpdate
	.Expanded = .T.
	.Items.ToString = "Item 1,Item 2,Item 3,Item 4"
	.EndUpdate
endwith
28:
How can I use/load images/pictures

with thisform.RadialMenu1
	.BeginUpdate
	.Expanded = .T.
	.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	.Object.HTMLPicture("relative") = "settings.png"
	.Object.HTMLPicture("absolute") = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images\favorites.png"
	var_s = "gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0iIEOZCJJUBEjBB8BBkRERBJwJBZOcKAZ2mB2AJ9aqCZkRDJ0IpYOhTN5mOh3MJyMoAO9JFxpNxrOZjMJwMouN5"
	var_s = var_s + "yM6bdw8DUKAjoJJEIJULCFYqXLpsChVCjHf4zTo7XZjXazUJQUgCWoNCqWYp+ZS2vDyEqSGz6UjUA4tRIkAysGyRC6fPogEyaCCjYI3Dw0YyETDiQbRA5TSJ+aQWUKLc"
	var_s = var_s + "AubrdNTaOi7XBYbRlO67brOXpzPrATrdOpmRZGFInHLJfo4GbnG7ncbeRjAHLHYYUeKhPQHEBlAynJ6fbRcXyxeQLTZsNZJEwTETnAAhEirGQBSIyOYZQhISAkARRChQ"
	var_s = var_s + "nWHQUGqUA0goTRbAYJpplAKIGm0WQ7DeVg0jARggksBJRkYBx/AiTp2nYdw/DuHQHjANpsjGT53jabprl0MwmhSAggjwEAvlWdY9Cieg7HobJYmWUYvgENBkgGcAdE8F"
	var_s = var_s + "IXBcYJ5SiAY4k8SJpBqUoQEkeg6DMNwACIUZfguVojCCORnBiCcmPmFhSimLBWkcRBjnGYxsAAMBKFaDRAGcTACgALYMnAMQ/h+bwdnqHwAHAUYHh+IAujaRpSm6dJHh"
	var_s = var_s + "+zJvj8M4tD+UJegaE5dm+Gw+DKYgcAOFBpmCHIXlQH5+DwCInGqAJijcI53kKBYCnaRwOnaYh9FkOooA6EpDFcF4tkOMYjh2BoNmMOgZkAVwzlSfwXFiLAGB+b5cECQZ"
	var_s = var_s + "9nucZgF8XoMAyXZGDoHQ2jSVZVBUXRdicYB0joDBtOAARVFUDQbCYW5ECAUzGjoMA0AQUQUFAUJfAcHZPjUAhSg0IwjGOBRtBuPZNFgYZykEKY6jAQ5lkKMwnimbwfFG"
	var_s = var_s + "KwAFYGBgGgUoljwIgoigK4pkGXRNA0ZAZGCYB4CgII9iCCB4GUSIHBwKoKg6I4dIqIQfEAKoFDQAJADgHBGEyOAMD2LYtjCW5tiiKQpEEHpdjsEIIAYMR3GcTpBAgCu/"
	var_s = var_s + "nQPh6hqHgvCiMJtH2K4U3aDYBhCCR1DUNZGlqQx9D0JApAjjgjgWAQoCUKJe40SgpWwOoFGYQxdFccZlHwKpsDaGxcFsNoamsboXAuMghDgfJlCeFY7EcSp5j2FJQZoc"
	var_s = var_s + "wbQUQxICYExYjOa43GwMhNlid2xmgbBoEAfJ8h2TBNE0WQ6DkOpuEWC4vj0DIbhOARzAeWZVACVYRA4e49BCBMAQtw9i7BSDIHY3A3AQd+NUHYbhug5GGEMdA7g9ATH6"
	var_s = var_s + "IMQY5hkAUB0AkOYRRpg0CYAQE4QAyAJB7CkdAgQsgIBCPAfI/Q0BvDWIMKgZBeAKX4BoSIWxbjwGsPEcY+BfC3Au6ZzQdhPj9EmKMfAZhwAmBwOcVAqhWDEFsK0bYABF"
	var_s = var_s + "hTG0Oce4IQ5ArEEEAEAgB2iuHaMYfQ+AagvDsDcG4AQACaB6B4Lguw/AdEaPUeoOQADZAoOQLoRhdCeG6PAfY/RIAJGCKEQYhxYB5GmcId4BxlDLGWHEdwqw5wwD6PcE"
	var_s = var_s + "AMwABeBeJ4P47gIB0C6McSYbgbguHsPdiYthrDYF+O8MolAuBMDEDYCQxhtC1FKNgeA6BDCCGOO4UwjRNigXsGYYQMwsBcC4IRiCdBxiIG8I4UQbxQAPAEAQOAcBmBGD"
	var_s = var_s + "MJEJAJAoTWDYPg+Y5ALDGDICgAgSRJDgDSPQcgRRihKE0HcGwYw8BkAQMEKAABag1DrKANAOw+AYBaLsLYDBNj+GCAEfg4paBpFOMccgKw9gZHKHQYI5A3iTkaEEMoVR"
	var_s = var_s + "qiKD6M4HIRwqtVAQJEGA+Q1gIE4HMAgQywhvFSEYEVOB6CJBaNUBEJA5C6BQAsEAZBhDeqoMYZ4nB8gUUavEEICABDuG8L0PY3wECIFEAimqrwjgsAsIMaY6QiA8A8M8"
	var_s = var_s + "PYTgKBFBwBwBwxAxAxAAMAZIkx3jgH4PkV4hR+AUH4HUNQARgDCsgIoJwcxCgxEM+IPIYw3D1BYGMFgbwegXBcK8AwchtjwCCEoVwFwBhABMDIconAlgWHsP8XYKA7DF"
	var_s = var_s + "FwAwOQfxmh6FPcEd4Ww6D/CqCMSICAMBjD6KYBAzBmjNF6HEew7BsjPCoFUNoTQTCTCKAAUAKAFDsDsDuu4sQODbDYDYJAkgCBKBSNIdINBLX1EgEoUt9xShMDHfAMgW"
	var_s = var_s + "QzCpCoGoMAYQwjhHqIwL4YRajyC8EgDw+hvjxE+BUNgPAgjmBkBsfpEQABJCKE4IgrghBgEEQEA="
	.Object.HTMLPicture("encoded") = var_s
	.BackgroundPicture = "Background\frame.png"
	with .Items
		.Add("Relative 1","relative")
		.Add("Relative 1").Image(1) = "settings.png"
		.Add("Aboslute 1","absolute")
		.Add("Aboslute 2","favorites.png")
		.Add("Encoded 1","encoded")
		var_s1 = "gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0iIEOZCJJUBEjBB8BBkRERBJwJBZOcKAZ2mB2AJ9aqCZkRDJ0IpYOhTN5mOh3MJyMoAO9JFxpNxrOZjMJwMouN5"
		var_s1 = var_s1 + "yM6bdw8DUKAjoJJEIJULCFYqXLpsChVCjHf4zTo7XZjXazUJQUgCWoNCqWYp+ZS2vDyEqSGz6UjUA4tRIkAysGyRC6fPogEyaCCjYI3Dw0YyETDiQbRA5TSJ+aQWUKLc"
		var_s1 = var_s1 + "AubrdNTaOi7XBYbRlO67brOXpzPrATrdOpmRZGFInHLJfo4GbnG7ncbeRjAHLHYYUeKhPQHEBlAynJ6fbRcXyxeQLTZsNZJEwTETnAAhEirGQBSIyOYZQhISAkARRChQ"
		var_s1 = var_s1 + "nWHQUGqUA0goTRbAYJpplAKIGm0WQ7DeVg0jARggksBJRkYBx/AiTp2nYdw/DuHQHjANpsjGT53jabprl0MwmhSAggjwEAvlWdY9Cieg7HobJYmWUYvgENBkgGcAdE8F"
		var_s1 = var_s1 + "IXBcYJ5SiAY4k8SJpBqUoQEkeg6DMNwACIUZfguVojCCORnBiCcmPmFhSimLBWkcRBjnGYxsAAMBKFaDRAGcTACgALYMnAMQ/h+bwdnqHwAHAUYHh+IAujaRpSm6dJHh"
		var_s1 = var_s1 + "+zJvj8M4tD+UJegaE5dm+Gw+DKYgcAOFBpmCHIXlQH5+DwCInGqAJijcI53kKBYCnaRwOnaYh9FkOooA6EpDFcF4tkOMYjh2BoNmMOgZkAVwzlSfwXFiLAGB+b5cECQZ"
		var_s1 = var_s1 + "9nucZgF8XoMAyXZGDoHQ2jSVZVBUXRdicYB0joDBtOAARVFUDQbCYW5ECAUzGjoMA0AQUQUFAUJfAcHZPjUAhSg0IwjGOBRtBuPZNFgYZykEKY6jAQ5lkKMwnimbwfFG"
		var_s1 = var_s1 + "KwAFYGBgGgUoljwIgoigK4pkGXRNA0ZAZGCYB4CgII9iCCB4GUSIHBwKoKg6I4dIqIQfEAKoFDQAJADgHBGEyOAMD2LYtjCW5tiiKQpEEHpdjsEIIAYMR3GcTpBAgCu/"
		var_s1 = var_s1 + "nQPh6hqHgvCiMJtH2K4U3aDYBhCCR1DUNZGlqQx9D0JApAjjgjgWAQoCUKJe40SgpWwOoFGYQxdFccZlHwKpsDaGxcFsNoamsboXAuMghDgfJlCeFY7EcSp5j2FJQZoc"
		var_s1 = var_s1 + "wbQUQxICYExYjOa43GwMhNlid2xmgbBoEAfJ8h2TBNE0WQ6DkOpuEWC4vj0DIbhOARzAeWZVACVYRA4e49BCBMAQtw9i7BSDIHY3A3AQd+NUHYbhug5GGEMdA7g9ATH6"
		var_s1 = var_s1 + "IMQY5hkAUB0AkOYRRpg0CYAQE4QAyAJB7CkdAgQsgIBCPAfI/Q0BvDWIMKgZBeAKX4BoSIWxbjwGsPEcY+BfC3Au6ZzQdhPj9EmKMfAZhwAmBwOcVAqhWDEFsK0bYABF"
		var_s1 = var_s1 + "hTG0Oce4IQ5ArEEEAEAgB2iuHaMYfQ+AagvDsDcG4AQACaB6B4Lguw/AdEaPUeoOQADZAoOQLoRhdCeG6PAfY/RIAJGCKEQYhxYB5GmcId4BxlDLGWHEdwqw5wwD6PcE"
		var_s1 = var_s1 + "AMwABeBeJ4P47gIB0C6McSYbgbguHsPdiYthrDYF+O8MolAuBMDEDYCQxhtC1FKNgeA6BDCCGOO4UwjRNigXsGYYQMwsBcC4IRiCdBxiIG8I4UQbxQAPAEAQOAcBmBGD"
		var_s1 = var_s1 + "MJEJAJAoTWDYPg+Y5ALDGDICgAgSRJDgDSPQcgRRihKE0HcGwYw8BkAQMEKAABag1DrKANAOw+AYBaLsLYDBNj+GCAEfg4paBpFOMccgKw9gZHKHQYI5A3iTkaEEMoVR"
		var_s1 = var_s1 + "qiKD6M4HIRwqtVAQJEGA+Q1gIE4HMAgQywhvFSEYEVOB6CJBaNUBEJA5C6BQAsEAZBhDeqoMYZ4nB8gUUavEEICABDuG8L0PY3wECIFEAimqrwjgsAsIMaY6QiA8A8M8"
		var_s1 = var_s1 + "PYTgKBFBwBwBwxAxAxAAMAZIkx3jgH4PkV4hR+AUH4HUNQARgDCsgIoJwcxCgxEM+IPIYw3D1BYGMFgbwegXBcK8AwchtjwCCEoVwFwBhABMDIconAlgWHsP8XYKA7DF"
		var_s1 = var_s1 + "FwAwOQfxmh6FPcEd4Ww6D/CqCMSICAMBjD6KYBAzBmjNF6HEew7BsjPCoFUNoTQTCTCKAAUAKAFDsDsDuu4sQODbDYDYJAkgCBKBSNIdINBLX1EgEoUt9xShMDHfAMgW"
		var_s1 = var_s1 + "QzCpCoGoMAYQwjhHqIwL4YRajyC8EgDw+hvjxE+BUNgPAgjmBkBsfpEQABJCKE4IgrghBgEEQEA="
		.Add("Encoded 2").Image(1) = var_s1
		.Add("<c><img>relative</img><br><c>Relative 3")
		.Add("<c>Relative 4<br><c><img>relative</img>","relative")
	endwith
	.EndUpdate
endwith
27:
Does your control supports tooltips (method 2)

*** MouseMove event - Occurs when the user moves the mouse. ***
LPARAMETERS Button,Shift,X,Y
	with thisform.RadialMenu1
		.ShowToolTip(.FormatABC("`Index of the pie from the cursor: ` + (value >= 0 ? value : `<fgcolor=808080>none` )",.IndexFromPoint(3,-1,-1)),"Info",0,"8","8")
	endwith

with thisform.RadialMenu1
	.BeginUpdate
	.DisplayAngle = -45
	.Expanded = .T.
	with .Items
		.ToString = "Item 0"
		.Add("Item 1")
		.Add("Item 2")
	endwith
	.EndUpdate
endwith
26:
Can I change the visual appearance of the control's tooltip

with thisform.RadialMenu1
	.BeginUpdate
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Object.Background(64) = 0x1000000
	.DisplayAngle = -45
	.Expanded = .T.
	with .Items
		.ToString = "Item 0[ttp=tooltip's item][sttp=tooltip's subitem]"
		.Add("Item 1").Tooltip(1) = "This is a bit of text that shown when user <b>hovers</b> the item"
		with .Add("Item 2")
			.Tooltip(1) = "This is a bit of text that shown when user hovers the item"
			.Tooltip(2) = "This is a bit of text that shown when user hovers the sub-item"
		endwith
	endwith
	.EndUpdate
endwith
25:
Does your control supports tooltips (method 1)

with thisform.RadialMenu1
	.DisplayAngle = -45
	.Expanded = .T.
	with .Items
		.ToString = "Item 0[ttp=tooltip's item][sttp=tooltip's subitem]"
		.Add("Item 1").Tooltip(1) = "This is a bit of text that shown when user <b>hovers</b> the item"
		with .Add("Item 2")
			.Tooltip(1) = "This is a bit of text that shown when user hovers the item"
			.Tooltip(2) = "This is a bit of text that shown when user hovers the sub-item"
		endwith
	endwith
endwith
24:
How can I use/load icons

with thisform.RadialMenu1
	.BeginUpdate
	.Expanded = .T.
	.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images\Icons"
	.Images("copy.ico")
	.Images("C:\Program Files\Exontrol\ExRadialMenu\Sample\Images\Icons\dvd.ico")
	var_s = "gBJJgBggAAQAAgACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUnOktd54mD/lp0f5wmz/Ns5f5qnj/NE/f5noT/M1FolGopmo9KpNLpxfqDvldTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fjKPsT/ftlf72er0s71er/e72e1ut9ye90uz3vF3vN4ut8u1NsGBwWDwmFw2DUWJf9peb/UyXSj/Yq+Xj/Y7BX7/ZLDYL/ZTFYeeYrEf7LY2kZbHY"
	var_s = var_s + "ul1T/arTaT/Kq4Kb/G7IGz/cD5cD/Ne/f+H4XD4nF41UWvJxb0xq4Viqf66V6sf68WKvf69WSw7KzWL/Xy0WXg8T/X/l8/jbzcbb/MDAL/uanxcb7cb/Pv54PH/n9/z/"
	var_s = var_s + "qsY8BOWxq0LUtC2reuK8QWvcHL7B67HAeTem2er2n0fx9H+SEOv3AEQRDETDl/Ep3mWZJkH+ZhlGUf5mmWZcXmZGUaRkZRkmSf5kQG0bSGEYTOmBErsl4ypdFyXJ/luW"
	var_s = var_s + "5bH+WkoH+TEpqlEcrSvLCsKEM5Am6bT2n4eq6zDMcxH/MkzzMfZ6LifR5rafB4wKd54H+eR1HWf52nIcp/nKbhun+SpJEkf4aUOQMs0VRdFAbRwImfSJ/nyeS1TQclAH"
	var_s = var_s + "+fR7Lqc52PuGBVBgf4klaIx/mMYRbs8XEnGZIc9T4f5vmua5/j3XB/gPXYI0ZX1fwAgiCD/YhPnIcJxTSup+nyfZ/nceh2n+HRYh4f4HFCCNr2zaZYh2f51ngdB/nwea"
	var_s = var_s + "1T3PpbFk8Yn3aT9hJJYF5Xm4V4A1e4Q0iZ9J0rZ54HSf4glqIh/gwU4OH+FxahxhOF4Lg5/iAWYhH+chzG8f5znAcJ/ksSpKn+CORBDeF6ZNk6wXheA5ZYR5gmUYWIlk"
	var_s = var_s + "Ip/g+VgTH+Gxc4oJRiiyf4jmGKuc53mubn+HBVB8f5MlETR/itqJH5VYWUatq6r6pqgQkeE5nhSWIYn/sGxbIf4wmmOp/imZQybHsO37LuGua9rWVaxvG8ozu2+a0GZb"
	var_s = var_s + "h6f48nCSKgmsPh/7/wO+8Zqu9cfq3G8aFBaYYL5tEIf4omgOJ/8phnJcZyHR5N0O+gqVgUn+Fhgisf4TF4JZ/9R1XTb50ncWB227AiUgQ5D33gd/3vf93rXc+RRaKh8l"
	var_s = var_s + "fmI6j6Q72AF4oyQDBIf5N6IC"
	.Images(var_s)
	.Object.HTMLPicture("icon") = "download.ico"
	with .Items
		.ToString = "Icon 0[img=0]"
		.Add("Icon 1",1)
		.Add("Icon 2","print.ico")
		.Add("Icon 3").Image(2) = "icon"
	endwith
	.EndUpdate
endwith
23:
How can I load items /images to the control, in sub-items zone

with thisform.RadialMenu1
	.BeginUpdate
	.AllowToggleExpand = .F.
	.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	.Object.HTMLPicture("logo") = "settings.png"
	.Object.RadialLineColor(6) = .SubItemsBackColor
	.Object.RadialLineColor(5) = -1
	.SubItemsSize = "64 * dpi"
	.ParentSize = "value - 66 * dpi"
	.Object.ParentImageWidth(-1) = "64*dpi"
	.Object.ParentImageHeight(-1) = "64*dpi"
	.Object.ParentCaption(-1) = "<font ;14><c>System Settings</font><br><c>Surround"
	.Object.RadialLineSize(11) = 0
	.Object.RadialLineSize(10) = -1
	.Object.RadialLineColor(10) = 0x8000000d
	.Object.RadialLineAlpha(10) = 128
	.ItemsBackColor = .SubItemsBackColor
	with .Items
		.Add("","color_line.png",2)
		.Add("","color_fill.png",2)
		.Add("","format_font_size_less.png",2)
		.Add("","edit_undo.png",2)
		.Add("","edit_redo.png",2)
		.Add("","edit_copy.png",2)
		.Add("","fileview_text.png",2)
		.Add("","checkmark_korganizer.png",2)
	endwith
	.EndUpdate
endwith
22:
How can I load items /images to the control

with thisform.RadialMenu1
	.BeginUpdate
	.Expanded = .T.
	.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	.Object.HTMLPicture("arrow") = "arrow.png"
	.SubItemsBackColor = RGB(190,190,190)
	.ShadowColor = .SubItemsBackColor
	.Object.RadialLineColor(6) = .SubItemsBackColor
	.Object.RadialLineColor(5) = -1
	with .Items
		.Add("Foreground-Color","color_line.png").Items.ToString = "Foreground"
		.Add("Background-Color","color_fill.png").Items.ToString = "Background"
		.Add("Font","format_font_size_less.png").Items.ToString = "Font"
		.Add("Undo","edit_undo.png").Items.ToString = "Undo"
		.Add("Redo","edit_redo.png").Items.ToString = "Redo"
		.Add("Copy","edit_copy.png").Items.ToString = "Copy"
		.Add("List","fileview_text.png").Items.ToString = "List"
		.Add("Tag","checkmark_korganizer.png").Items.ToString = "Tag"
	endwith
	.EndUpdate
endwith
21:
How can I load items to the control

with thisform.RadialMenu1
	.BeginUpdate
	.MinVisibleCount = 3
	.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	.Object.HTMLPicture("remove") = "remove.png"
	.Object.HTMLPicture("refresh") = "refresh.png"
	.Object.HTMLPicture("preview") = "preview.png"
	.Object.HTMLPicture("search") = "search.png"
	with .Items
		with .Add("Search","search").Items
			.ToString = "Search A,Search B,Search C"
		endwith
		.Add("Refresh","refresh")
		.Add("Preview","preview")
		.Add("Remove","remove")
	endwith
	.Expanded = .T.
	.EndUpdate
endwith
20:
How do I get the version of the control I am running

with thisform.RadialMenu1
	DEBUGOUT( "Version:" )
	DEBUGOUT( .Version )
endwith
19:
How do I select an item

*** SelectItem event - Notifies once the user selects an item. ***
LPARAMETERS Item
	*** SelectedIndex(3) =  Item.Index
	with thisform.RadialMenu1
		DEBUGOUT( "selection changed" )
	endwith

with thisform.RadialMenu1
	.AllowToggleExpand = .F.
	.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
	.Object.SelectedIndex(3) = 0
endwith
18:
How can I change the item's foreground color (sample 3)

with thisform.RadialMenu1
	.BeginUpdate
	.Expanded = .T.
	.MinVisibleCount = 6
	.Font.Size = "14.25"
	with .Items
		with .Add("Item 1")
			.Name = "<fgcolor FF0000>Item</fgcolor> 1"
			with .Items
				.Add("SubItem 1")
				.Add("SubItem 2")
			endwith
		endwith
		.Add("Item 2")
		.Add("Item 3")
		.Add("Item 4")
		.Add("Item 5")
		.Add("Item 6")
	endwith
	.EndUpdate
endwith
17:
How can I change the item's foreground color (sample 2)

with thisform.RadialMenu1
	.BeginUpdate
	.Expanded = .T.
	.MinVisibleCount = 6
	.Font.Size = "14.25"
	with .Items
		with .Add("Item 1")
			.ForeColor(1) = RGB(255,0,0)
			with .Items
				.Add("SubItem 1")
				.Add("SubItem 2")
			endwith
		endwith
		.Add("Item 2")
		.Add("Item 3")
		.Add("Item 4")
		.Add("Item 5")
		.Add("Item 6")
	endwith
	.EndUpdate
endwith
16:
How can I change the item's foreground color (sample 1)

with thisform.RadialMenu1
	.BeginUpdate
	.Expanded = .T.
	.MinVisibleCount = 6
	.Font.Size = "14.25"
	.ForeColor = RGB(255,0,0)
	with .Items
		with .Add("Item 1").Items
			.Add("SubItem 1")
			.Add("SubItem 2")
		endwith
		.Add("Item 2")
		.Add("Item 3")
		.Add("Item 4")
		.Add("Item 5")
		.Add("Item 6")
	endwith
	.EndUpdate
endwith
15:
How can I add new items / childrend to the control (method 2)

with thisform.RadialMenu1
	.BeginUpdate
	.Expanded = .T.
	with .Items
		with .Add("Item 1").Items
			.Add("SubItem 1")
			.Add("SubItem 2")
		endwith
		.Add("Item 2")
		.Add("Item 3")
		.Add("Item 4")
		.Add("Item 5")
		.Add("Item 6")
		.Add("Item 7")
		.Add("Item 8")
	endwith
	.EndUpdate
endwith
14:
How can I add new items / childrend to the control (method 1)

with thisform.RadialMenu1
	.BeginUpdate
	.Expanded = .T.
	.ToString = "Item 1(SubItem 1,SubItem 2),Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
	.EndUpdate
endwith
13:
How do I enlarge the font (method 2)

with thisform.RadialMenu1
	.BeginUpdate
	.AllowToggleExpand = .F.
	.MinVisibleCount = 4
	.ToString = "Item 1,Item 2,Item 3,Item 4"
	.Items.Item(0).Name = "<font ;14>Item 1"
	.EndUpdate
endwith
12:
How do I enlarge the font (method 1)

with thisform.RadialMenu1
	.BeginUpdate
	.AllowToggleExpand = .F.
	.MinVisibleCount = 4
	.ToString = "Item 1,Item 2,Item 3,Item 4"
	.Font.Size = "14.25"
	.EndUpdate
endwith
11:
How can I expand the control (method 2)
with thisform.RadialMenu1
	.AllowToggleExpand = .F.
endwith
10:
How can I expand the control (method 1)
with thisform.RadialMenu1
	.Expanded = .T.
endwith
9:
By default, the control displays 8-pies. How can I change that

with thisform.RadialMenu1
	.Expanded = .T.
	.MinVisibleCount = 3
endwith
8:
How can I prevents expanding / collapsing the radial menu
with thisform.RadialMenu1
	.BeginUpdate
	.AllowToggleExpand = .F.
	.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
	.Object.Caption(0) = "Cant expand/collapse the radial menu"
	.Object.Caption(3) = 0
	.Object.Caption(4) = "width-twidth"
	.Object.Caption(5) = "height-theight"
	.EndUpdate
endwith
7:
How can I prevent flickering the item, when user selects it
with thisform.RadialMenu1
	.AllowToggleExpand = .F.
	.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"
	.Items.Item(0).BrowseType = -1 && 0xfffffffc Or BrowseItemEnum.exBrowseItemCustom Or BrowseItemEnum.exBrowseItemChild
endwith
6:
How do I highlight the sub-item zone when cursor hovers it (method 2)

with thisform.RadialMenu1
	.Expanded = .T.
	.Object.RadialLineSize(11) = .FormatABC(.SubItemsSize)
	.Object.RadialLineColor(11) = 0x8000000d
	.Object.RadialLineAlpha(11) = 64
	with .Items
		.Add("Item A")
		.Add("Item B")
		.Add("Item C")
	endwith
endwith
5:
How do I highlight the sub-item zone when cursor hovers it (method 1)

with thisform.RadialMenu1
	.Expanded = .T.
	.Object.RadialLineSize(11) = 0
	.Object.RadialLineSize(10) = -1
	.Object.RadialLineColor(10) = 0x8000000d
	.Object.RadialLineAlpha(10) = 64
	with .Items
		.Add("Item A")
		.Add("Item B")
		.Add("Item C")
	endwith
endwith
4:
Is it possible to highlight the entire item when cursor hovers the item

with thisform.RadialMenu1
	.Expanded = .T.
	.Object.RadialLineSize(11) = -1
	.Object.RadialLineColor(11) = 0x8000000d
	.Object.RadialLineAlpha(11) = 64
	with .Items
		.Add("Item A")
		.Add("Item B")
		.Add("Item C")
	endwith
endwith
3:
How can I hide the hot line when hovering the cursor
with thisform.RadialMenu1
	.AllowToggleExpand = .F.
	.Object.RadialLineSize(11) = 0
	with .Items
		.Add("Item A")
		.Add("Item B")
		.Add("Item C")
	endwith
endwith
2:
How can I hide the control's shadow

with thisform.RadialMenu1
	.Expanded = .T.
	.ShadowColor = -1
endwith
1:
How do I change the control's background color
with thisform.RadialMenu1
	.BackColor = RGB(240,240,249)
endwith