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

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComPicturesPath to "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	Set ComHTMLPicture "arrow" to "stock_mail_filters_apply.png"
	Set ComHTMLPicture "settings" to "settings.png"
	Set ComHTMLPicture "hard" to "download.png"
	Set ComHTMLPicture "favorites" to "favorites.png"
	Set ComHTMLPicture "remove" to "remove.png"
	Set ComHTMLPicture "refresh" to "refresh.png"
	Set ComHTMLPicture "synchronize" to "synchronize.png"
	Set ComHTMLPicture "preview" to "preview.png"
	Set ComHTMLPicture "search" to "search.png"
	Set ComToString to "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)"
	Set ComExpanded to True
	Set ComDisplayRadial OLEexRadialItems to OLEexDisplayRadialRotated270
	Set ComBackgroundPicture to "Background\frontc.png"
	Set ComSubItemsBackColor to -1
	Set ComSubItemsSize to "18 * dpi"
	Send ComEndUpdate
	Set ComFloat to True
End_Procedure
86:
How do I add a radial-slider control

Procedure OnCreate
	Forward Send OnCreate
	Set ComExpanded to True
	Set ComShadowColor to -1
	Set ComInflateItems to "-8*dpi"
	Set ComInflateCustom to (ComInflateItems(Self))
	Set ComItemsBackColor to (RGB(240,240,240))
	Set ComRadialLineColor OLEexRadialCustomBorder to (RGB(0,0,0))
	Set ComRadialLineStyle OLEexRadialCustomBorder to OLEexRadialLineDot
	Set ComRadialLineSize OLEexRadialCustomBorder to 3
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Slider" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComBrowseType of hoItem to OLEexBrowseItemCustom
			Set ComBrowseCustomType of hoItem to OLEexRadialCustomSlider
			Set ComBrowseCustom of hoItem OLEexRadialCustomSliderValue to 35
		Send Destroy to hoItem
	Send Destroy to hoItems
	Variant v
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Get ComItem of hoItems1 "Slider" to v
	Send Destroy to hoItems1
	Set ComBrowseItem to v
End_Procedure
85:
How can I display a slider directly on the radial menu, with no items...

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComPicturesPath to "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	Set ComExpanded to True
	Set ComInflateCustom to "-4 * dpi"
	Set ComRadialLineColor OLEexRadialCustomBorder to (RGB(0,0,0))
	Set ComRadialLineSize OLEexRadialCustomBorder to 3
	Set ComRadialLineAlpha OLEexRadialCustomBorder to 128
	Set ComCustomPicture to "Background\frame.png"
	Variant voItem
	Get ComRoot to voItem
	Handle hoItem
	Get Create (RefClass(cComItem)) to hoItem
	Set pvComObject of hoItem to voItem
		Set ComBrowseType of hoItem to OLEexBrowseItemCustom
		Set ComBrowseCustomType of hoItem to OLEexRadialCustomSlider
		Set ComBrowseCustom of hoItem OLEexRadialCustomSliderValue to 25
	Send Destroy to hoItem
	Send ComRefresh
	Send ComEndUpdate
End_Procedure
84:
How can I programatically browses for a new item

Procedure OnCreate
	Forward Send OnCreate
	Set ComExpanded to True
	Set ComShadowColor to -1
	Set ComInflateItems to "-8*dpi"
	Set ComInflateCustom to (ComInflateItems(Self))
	Set ComItemsBackColor to (RGB(240,240,240))
	Set ComRadialLineColor OLEexRadialCustomBorder to (RGB(0,0,0))
	Set ComRadialLineStyle OLEexRadialCustomBorder to OLEexRadialLineDot
	Set ComRadialLineSize OLEexRadialCustomBorder to 3
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Slider" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComBrowseType of hoItem to OLEexBrowseItemCustom
			Set ComBrowseCustomType of hoItem to OLEexRadialCustomSlider
		Send Destroy to hoItem
	Send Destroy to hoItems
	Variant v
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Get ComItem of hoItems1 "Slider" to v
	Send Destroy to hoItems1
	Set ComBrowseItem to v
End_Procedure
83:
How can I display the items rotated

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExpanded to True
	Set ComPicturesPath to "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	Set ComHTMLPicture "arrow" to "arrow.png"
	Set ComExpanded to True
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "Item 1(1,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)"
	Send Destroy to hoItems
	Set ComDisplayRadial OLEexRadialItems to OLEexDisplayRadialRotated
	Set ComDisplayCenter OLEexRadialItems to 0.05
	Send ComEndUpdate
End_Procedure
82:
Is it possible to display the arrow into the items section, and how I can change the default position

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExpanded to True
	Set ComPicturesPath to "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	Set ComHTMLPicture "arrow" to "arrowu.png"
	Set ComDisplayArrow to OLEexRadialItems
	Set ComDisplayCenterArrow OLEexRadialItems to 0
	Set ComExpanded to True
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "Item 1(1,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)"
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
81:
Can I display the arrow into the items section

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExpanded to True
	Set ComDisplayArrow to OLEexRadialItems
	Set ComExpanded to True
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "Item 1(1,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)"
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
80:
How can I know if the cursor is hovering the center ring ( parent zone )
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short   llButton Short   llShift OLE_XPOS_PIXELS   llX OLE_YPOS_PIXELS   llY
	Forward Send OnComMouseMove llButton llShift llX llY
	Showln "ParentOnPoint " (ComParentOnPoint(Self,-1,-1))
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComExpanded to True
End_Procedure
79:
How can I specify the size to display the images/pictures into the items

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComAllowToggleExpand to False
	Set ComPicturesPath to "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	Set ComItemsImageHeight OLEexRadialItems to "64*dpi"
	Set ComItemsImageWidth OLEexRadialItems to "64*dpi"
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAdd of hoItems "" "color_line.png" Nothing to Nothing
		Get ComAdd of hoItems "" "color_fill.png" Nothing to Nothing
		Get ComAdd of hoItems "" "format_font_size_less.png" Nothing to Nothing
		Get ComAdd of hoItems "" "edit_undo.png" Nothing to Nothing
		Get ComAdd of hoItems "" "edit_redo.png" Nothing to Nothing
		Get ComAdd of hoItems "" "edit_copy.png" Nothing to Nothing
		Get ComAdd of hoItems "" "fileview_text.png" Nothing to Nothing
		Get ComAdd of hoItems "" "checkmark_korganizer.png" Nothing to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
78:
By default, the parent image is 32-pixels wide. Can I display it larger

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComAllowToggleExpand to False
	Set ComPicturesPath to "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	Set ComHTMLPicture "logo" to "settings.png"
	Set ComParentSize to "96 * dpi"
	Set ComParentImageWidth OLEexRadialMenuStateAll to "64*dpi"
	Set ComParentImageHeight OLEexRadialMenuStateAll to "64*dpi"
	Set ComParentCaption OLEexRadialMenuStateAll to "<font ;14><c>System Settings</font><br><c>Surround"
	Send ComEndUpdate
End_Procedure
77:
Is it possible to specify where to display the item's caption

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExpanded to True
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "Item 1(1,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)"
	Send Destroy to hoItems
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Variant voItem
		Get ComItem of hoItems1 0 to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComBackColor of hoItem OLEexRadialFullItems to (RGB(240,240,240))
		Send Destroy to hoItem
	Send Destroy to hoItems1
	Set ComDisplayCenter OLEexRadialItems to 0.85
	Send ComEndUpdate
End_Procedure
76:
How can I disable browsing the items, or prevent displaying its children
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExpanded to True
	Set ComAllowBrowseItem to False
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "Item 1(1,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)"
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
75:
How do I get the item from the point
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short   llButton Short   llShift OLE_XPOS_PIXELS   llX OLE_YPOS_PIXELS   llY
	Forward Send OnComMouseMove llButton llShift llX llY
	Variant v
	Variant voItem
	Get ComItemFromPoint OLEexRadialFullItems -1 -1 to voItem
	Handle hoItem
	Get Create (RefClass(cComItem)) to hoItem
	Set pvComObject of hoItem to voItem
		Get ComCaption of hoItem OLEexLayerCaptionBackColor to v
	Send Destroy to hoItem
	Showln "Full-Item: " v
	Variant v1
	Variant voItem1
	Get ComItemFromPoint OLEexRadialItems -1 -1 to voItem1
	Handle hoItem1
	Get Create (RefClass(cComItem)) to hoItem1
	Set pvComObject of hoItem1 to voItem1
		Get ComCaption of hoItem1 OLEexLayerCaptionBackColor to v1
	Send Destroy to hoItem1
	Showln "Item: " v1
	Variant v2
	Variant voItem2
	Get ComItemFromPoint OLEexRadialSubItems -1 -1 to voItem2
	Handle hoItem2
	Get Create (RefClass(cComItem)) to hoItem2
	Set pvComObject of hoItem2 to voItem2
		Get ComCaption of hoItem2 OLEexLayerCaptionForeColor to v2
	Send Destroy to hoItem2
	Showln "SubItem: " v2
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComExpanded to True
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "Item 1[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]"
	Send Destroy to hoItems
End_Procedure
74:
How do I get the index of the pie from the point
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short   llButton Short   llShift OLE_XPOS_PIXELS   llX OLE_YPOS_PIXELS   llY
	Forward Send OnComMouseMove llButton llShift llX llY
	Showln "Full-Index: " (ComIndexFromPoint(Self,OLEexRadialFullItems,-1,-1))
	Showln "Index: " (ComIndexFromPoint(Self,OLEexRadialItems,-1,-1))
	Showln "Sub-Index: " (ComIndexFromPoint(Self,OLEexRadialSubItems,-1,-1))
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComExpanded to True
End_Procedure
73:
How can I select an item

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

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComSelBackAlpha OLEexRadialItems to 32
	Set ComSelBackAlpha OLEexRadialSubItems to 128
	Set ComSelForeColor OLEexRadialFullItems to (RGB(0,0,0))
	Set ComRadialLineSize OLEexRadialHotParent to -1
	Set ComRadialLineAlpha OLEexRadialHotParent to 32
	Set ComRadialLineColor OLEexRadialHotFullItem to -1
	Set ComExpanded to True
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
	Send Destroy to hoItems
	Set ComSelectedIndex OLEexRadialFullItems to 0
	Send ComEndUpdate
End_Procedure
72:
How can I use the sub-items zone only

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComAllowToggleExpand to False
	Set ComPicturesPath to "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	Set ComHTMLPicture "logo" to "settings.png"
	Set ComRadialLineColor OLEexRadialParentBorder to (ComSubItemsBackColor(Self))
	Set ComRadialLineColor OLEexRadialItemsGridLines to -1
	Set ComSubItemsSize to "64 * dpi"
	Set ComParentSize to "value - 66 * dpi"
	Set ComParentImageWidth OLEexRadialMenuStateAll to "64*dpi"
	Set ComParentImageHeight OLEexRadialMenuStateAll to "64*dpi"
	Set ComParentCaption OLEexRadialMenuStateAll to "<font ;14><c>System Settings</font><br><c>Surround"
	Set ComRadialLineSize OLEexRadialHotFullItem to 0
	Set ComRadialLineSize OLEexRadialHotSubItem to -1
	Set ComRadialLineColor OLEexRadialHotSubItem to |CI$8000000d
	Set ComRadialLineAlpha OLEexRadialHotSubItem to 128
	Set ComItemsBackColor to (ComSubItemsBackColor(Self))
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAdd of hoItems "" "color_line.png" 2 to Nothing
		Get ComAdd of hoItems "" "color_fill.png" 2 to Nothing
		Get ComAdd of hoItems "" "format_font_size_less.png" 2 to Nothing
		Get ComAdd of hoItems "" "edit_undo.png" 2 to Nothing
		Get ComAdd of hoItems "" "edit_redo.png" 2 to Nothing
		Get ComAdd of hoItems "" "edit_copy.png" 2 to Nothing
		Get ComAdd of hoItems "" "fileview_text.png" 2 to Nothing
		Get ComAdd of hoItems "" "checkmark_korganizer.png" 2 to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
71:
Is it possible to display all items with a different rotation angle

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExpanded to True
	Set ComDisplayAngle to -7.5
	Set ComDisplayArrow to OLEexRadialItems
	Set ComDisplayRadial OLEexRadialItems to OLEexDisplayRadialRotated
	Set ComPicturesPath to "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	Set ComParentSize to "48 * dpi"
	Set ComParentPicture to "Background\frontb.png"
	Set ComArrowImage to "arrow.png"
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
	Send Destroy to hoItems
	Set ComInflateParentPicture to "72 * dpi"
	Send ComEndUpdate
End_Procedure
70:
How can I programatically advance / browse for the parent item (method 2)
// Occurs once the user right clicks the control.
Procedure OnComRClick 
	Forward Send OnComRClick 
	Variant v
	Variant voItem
	Get ComBrowseItem to voItem
	Handle hoItem
	Get Create (RefClass(cComItem)) to hoItem
	Set pvComObject of hoItem to voItem
		Get ComParent of hoItem to v
	Send Destroy to hoItem
	Set ComBrowseItem to v
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComExpanded to True
	Set ComDisplayArrow to OLEexRadialItems
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem1
		Get ComAdd of hoItems "Volume" Nothing Nothing to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComCaption of hoItem1 OLEexRadialSubItems to "slider"
			Set ComBrowseType of hoItem1 to OLEexBrowseItemCustom
			Set ComBrowseCustomType of hoItem1 to OLEexRadialCustomSlider
		Send Destroy to hoItem1
		Variant voItem2
		Get ComAdd of hoItems "Item" Nothing Nothing to voItem2
		Handle hoItem2
		Get Create (RefClass(cComItem)) to hoItem2
		Set pvComObject of hoItem2 to voItem2
			Variant voItems1
			Get ComItems of hoItem2 to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Get ComAdd of hoItems1 "Child 1" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Child 2" Nothing Nothing to Nothing
			Send Destroy to hoItems1
		Send Destroy to hoItem2
	Send Destroy to hoItems
End_Procedure
69:
How can I programatically advance / browse for the parent item (method 1)
// Occurs once the user right clicks the control.
Procedure OnComRClick 
	Forward Send OnComRClick 
	Send ComGoBack
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComExpanded to True
	Set ComDisplayArrow to OLEexRadialItems
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Volume" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComCaption of hoItem OLEexRadialSubItems to "slider"
			Set ComBrowseType of hoItem to OLEexBrowseItemCustom
			Set ComBrowseCustomType of hoItem to OLEexRadialCustomSlider
		Send Destroy to hoItem
		Variant voItem1
		Get ComAdd of hoItems "Item" Nothing Nothing to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Variant voItems1
			Get ComItems of hoItem1 to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Get ComAdd of hoItems1 "Child 1" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Child 2" Nothing Nothing to Nothing
			Send Destroy to hoItems1
		Send Destroy to hoItem1
	Send Destroy to hoItems
End_Procedure
68:
Can I display the pointer with a different angle

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComPicturesPath to "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	Set ComPointerPicture to "pointer.png"
	Set ComPointerPictureY to "y + (height-pheight)/2- 21*dpi"
	Set ComPointerPictureX to "x + (width-pwidth)/2 + 1 * dpi"
	Set ComAllowHotPointer to False
	Set ComParentSize to "36*dpi"
	Set ComParentImageHeight OLEexRadialMenuStateAll to "48*dpi"
	Set ComParentImageWidth OLEexRadialMenuStateAll to "48*dpi"
	Set ComRadialLineSize OLEexRadialHotParent to -1
	Set ComRadialLineAlpha OLEexRadialHotParent to 32
	Set ComRadialLineColor OLEexRadialHotFullItem to -1
	Set ComExpanded to True
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
	Send Destroy to hoItems
	Set ComPointerAngle to 12
	Send ComEndUpdate
End_Procedure
67:
How can I use the pointer (select sample)

// Notifies once the user selects an item.
Procedure OnComSelectItem Variant   llItem
	Forward Send OnComSelectItem llItem
	// PointerIndex = Item.Index
	Set ComSelectedIndex OLEexRadialFullItems to (ComPointerIndex(Self))
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComPicturesPath to "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	Set ComPointerPicture to "pointer.png"
	Set ComSelBackAlpha OLEexRadialItems to 32
	Set ComSelBackAlpha OLEexRadialSubItems to 128
	Set ComPointerPictureY to "y + (height-pheight)/2- 21*dpi"
	Set ComPointerPictureX to "x + (width-pwidth)/2 + 1 * dpi"
	Set ComAllowHotPointer to False
	Set ComSelForeColor OLEexRadialFullItems to (RGB(0,0,0))
	Set ComParentSize to "36*dpi"
	Set ComParentImageHeight OLEexRadialMenuStateAll to "48*dpi"
	Set ComParentImageWidth OLEexRadialMenuStateAll to "48*dpi"
	Set ComRadialLineSize OLEexRadialHotParent to -1
	Set ComRadialLineAlpha OLEexRadialHotParent to 32
	Set ComRadialLineColor OLEexRadialHotFullItem to -1
	Set ComExpanded to True
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
	Send Destroy to hoItems
	Set ComPointerIndex to 0
	Set ComSelectedIndex OLEexRadialFullItems to (ComPointerIndex(Self))
	Send ComEndUpdate
End_Procedure
66:
How can I use the pointer (hot sample)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComPicturesPath to "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	Set ComPointerPicture to "pointer.png"
	Set ComPointerIndex to -1
	Set ComPointerPictureY to "y + (height-pheight)/2- 21*dpi"
	Set ComPointerPictureX to "x + (width-pwidth)/2 + 1 * dpi"
	Set ComAllowHotPointer to True
	Set ComSelBackAlpha OLEexRadialFullItems to 128
	Set ComSelForeColor OLEexRadialFullItems to (RGB(0,0,0))
	Set ComParentSize to "36*dpi"
	Set ComParentImageHeight OLEexRadialMenuStateAll to "48*dpi"
	Set ComParentImageWidth OLEexRadialMenuStateAll to "48*dpi"
	Set ComRadialLineSize OLEexRadialHotParent to -1
	Set ComRadialLineAlpha OLEexRadialHotParent to 32
	Set ComRadialLineColor OLEexRadialHotFullItem to -1
	Set ComExpanded to True
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
65:
Is it possible to apply the control's background picture on the parent zone too

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComPicturesPath to "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	Set ComBackgroundPicture to "Background\fronte.png"
	Set ComForeColor to (RGB(255,255,255))
	Set ComExpanded to True
	Set ComParentSize to "48 * dpi"
	Set ComDisplayRadial OLEexRadialItems to OLEexDisplayRadialRotated
	Set ComDisplayCenter OLEexRadialItems to 0.23
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
	Send Destroy to hoItems
	Set ComParentBackColor to -1
	Set ComExcludeParentFromItems to True
	Set ComRadialLineColor OLEexRadialParentBorder to (RGB(0,0,0))
	Set ComRadialLineAlpha OLEexRadialParentBorder to 128
	Set ComRadialLineStyle OLEexRadialItemsGridLines to OLEexRadialLineDot
	Set ComRadialLineAlpha OLEexRadialItemsGridLines to 128
	Send ComEndUpdate
End_Procedure
64:
Can I display the picture on the parent zone, a bit larger

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExpanded to True
	Set ComPicturesPath to "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	Set ComParentSize to "48 * dpi"
	Set ComParentPicture to "Background\frontb.png"
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
	Send Destroy to hoItems
	Set ComInflateParentPicture to "64 * dpi"
	Send ComEndUpdate
End_Procedure
63:
Is it possible to assign a different background picture when displaying a slider/custom data

Procedure OnCreate
	Forward Send OnCreate
	Set ComExpanded to True
	Set ComPicturesPath to "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	Set ComDisplayArrow to OLEexRadialItems
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "[scap=Item 1],[scap=Item 2],[scap=Item 3],[scap=Item 4]"
	Send Destroy to hoItems
	Set ComInflateRadialMenu to "-4*dpi"
	Set ComInflateCustom to "-4*dpi"
	Set ComCustomPicture to "Background\frontb.png"
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Set ComToString of hoItems1 to "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"
	Send Destroy to hoItems1
	Variant voItems2
	Get ComItems to voItems2
	Handle hoItems2
	Get Create (RefClass(cComItems)) to hoItems2
	Set pvComObject of hoItems2 to voItems2
		Variant voItem
		Get ComItem of hoItems2 "Item 2" to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComBrowseType of hoItem to OLEexBrowseItemCustom
			Set ComBrowseCustomType of hoItem to OLEexRadialCustomSlider
		Send Destroy to hoItem
	Send Destroy to hoItems2
	Variant v
	Variant voItems3
	Get ComItems to voItems3
	Handle hoItems3
	Get Create (RefClass(cComItems)) to hoItems3
	Set pvComObject of hoItems3 to voItems3
		Get ComItem of hoItems3 "Item 2" to v
	Send Destroy to hoItems3
	Set ComBrowseItem to v
End_Procedure
62:
How can I customize the custom part of the control, the inside ring/circle

Procedure OnCreate
	Forward Send OnCreate
	Set ComExpanded to True
	Set ComDisplayArrow to OLEexRadialItems
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "[scap=Item 1],[scap=Item 2],[scap=Item 3],[scap=Item 4]"
	Send Destroy to hoItems
	Set ComInflateRadialMenu to "-4*dpi"
	Set ComInflateCustom to "-4*dpi"
	Set ComCustomBackColor to (RGB(128,128,128))
	Set ComCustomBackAlpha to 128
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Set ComToString of hoItems1 to "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"
	Send Destroy to hoItems1
	Variant voItems2
	Get ComItems to voItems2
	Handle hoItems2
	Get Create (RefClass(cComItems)) to hoItems2
	Set pvComObject of hoItems2 to voItems2
		Variant voItem
		Get ComItem of hoItems2 "Item 2" to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComBrowseType of hoItem to OLEexBrowseItemCustom
			Set ComBrowseCustomType of hoItem to OLEexRadialCustomSlider
		Send Destroy to hoItem
	Send Destroy to hoItems2
	Variant v
	Variant voItems3
	Get ComItems to voItems3
	Handle hoItems3
	Get Create (RefClass(cComItems)) to hoItems3
	Set pvComObject of hoItems3 to voItems3
		Get ComItem of hoItems3 "Item 2" to v
	Send Destroy to hoItems3
	Set ComBrowseItem to v
End_Procedure
61:
How do I prevent expanding / collapsing the radial menu
Procedure OnCreate
	Forward Send OnCreate
	Set ComAllowToggleExpand to False
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "Item 1(Sub Child 1,Sub Child 2),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
	Send Destroy to hoItems
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Variant voItem
		Get ComItem of hoItems1 "Item 2" to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComBrowseType of hoItem to OLEexBrowseItemCustom
			Set ComBrowseCustomType of hoItem to OLEexRadialCustomSlider
		Send Destroy to hoItem
	Send Destroy to hoItems1
End_Procedure
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.
Procedure OnComBrowseItem Variant   llItem
	Forward Send OnComBrowseItem llItem
	Showln "Current State: " (ComState(Self))
End_Procedure

// Occurs once the user clicks the parent of the item.
Procedure OnComSelectParent 
	Forward Send OnComSelectParent 
	Showln "Current State: " (ComState(Self))
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComPicturesPath to "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "Item 1(Sub Child 1,Sub Child 2),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
	Send Destroy to hoItems
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Variant voItem
		Get ComItem of hoItems1 "Item 2" to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComBrowseType of hoItem to OLEexBrowseItemCustom
			Set ComBrowseCustomType of hoItem to OLEexRadialCustomSlider
		Send Destroy to hoItem
	Send Destroy to hoItems1
	Set ComParentImage OLEexRadialMenuCollapsed to "format_font_size_less.png"
	Set ComParentImage OLEexRadialMenuExpandedNoItems to "fileview_text.png"
	Set ComParentImage OLEexRadialMenuExpandedRootItem to "edit_undo.png"
End_Procedure
59:
Is it possible to assign a different picture on the parent zone (center ring)

Procedure OnCreate
	Forward Send OnCreate
	Set ComExpanded to True
	Set ComPicturesPath to "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	Set ComParentSize to "48 * dpi"
	Set ComParentPicture to "Background\frontb.png"
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
	Send Destroy to hoItems
End_Procedure
58:
Is it possible to assign a different picture on the items zone (inner ring)

Procedure OnCreate
	Forward Send OnCreate
	Set ComExpanded to True
	Set ComPicturesPath to "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	Set ComItemsPicture to "Background\frontc.png"
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
	Send Destroy to hoItems
End_Procedure
57:
How can I change the control's background picture

Procedure OnCreate
	Forward Send OnCreate
	Set ComExpanded to True
	Set ComPicturesPath to "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	Set ComBackgroundPicture to "Background\fronta.png"
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
	Send Destroy to hoItems
End_Procedure
56:
How can I hide the line being shown around the item form the cursor

Procedure OnCreate
	Forward Send OnCreate
	Set ComExpanded to True
	Set ComShadowColor to -1
	Set ComInflateItems to "-8*dpi"
	Set ComItemsBackColor to (RGB(240,240,240))
	Set ComRadialLineSize OLEexRadialHotFullItem to 0
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
	Send Destroy to hoItems
End_Procedure
55:
Is it possible to highlight items with children, with a different background color, for those arrow picture is shown (items, inner ring)

Procedure OnCreate
	Forward Send OnCreate
	Set ComExpanded to True
	Set ComShadowColor to -1
	Set ComInflateItems to "-8*dpi"
	Set ComItemsBackColor to (RGB(240,240,240))
	Set ComRadialLineColor OLEexRadialItemsChildren to (RGB(0,0,0))
	Set ComRadialLineAlpha OLEexRadialItemsChildren to 64
	Set ComRadialLineSize OLEexRadialItemsChildren to -1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
	Send Destroy to hoItems
End_Procedure
54:
Is it possible to highlight items with children, with a different background color, for those arrow picture is shown (subitems, outer ring)

Procedure OnCreate
	Forward Send OnCreate
	Set ComExpanded to True
	Set ComShadowColor to -1
	Set ComInflateItems to "-8*dpi"
	Set ComItemsBackColor to (RGB(240,240,240))
	Set ComRadialLineColor OLEexRadialSubItemsChildren to (RGB(0,0,0))
	Set ComRadialLineAlpha OLEexRadialSubItemsChildren to 64
	Set ComRadialLineSize OLEexRadialSubItemsChildren to -1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
	Send Destroy to hoItems
End_Procedure
53:
Is it possible to highlight the entire item, when cursor hovers it

Procedure OnCreate
	Forward Send OnCreate
	Set ComExpanded to True
	Set ComShadowColor to -1
	Set ComInflateItems to "-8*dpi"
	Set ComItemsBackColor to (RGB(240,240,240))
	Set ComRadialLineColor OLEexRadialHotFullItem to (RGB(0,0,0))
	Set ComRadialLineAlpha OLEexRadialHotFullItem to 64
	Set ComRadialLineSize OLEexRadialHotFullItem to -1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
	Send Destroy to hoItems
End_Procedure
52:
How can I change the border around the subitems zone, when cursor hovers it ( outer ring )

Procedure OnCreate
	Forward Send OnCreate
	Set ComExpanded to True
	Set ComShadowColor to -1
	Set ComInflateItems to "-8*dpi"
	Set ComItemsBackColor to (RGB(240,240,240))
	Set ComRadialLineColor OLEexRadialHotFullItem to (RGB(0,0,0))
	Set ComRadialLineStyle OLEexRadialHotFullItem to OLEexRadialLineDot
	Set ComRadialLineSize OLEexRadialHotFullItem to 3
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
	Send Destroy to hoItems
End_Procedure
51:
How can I change the border around the subitems zone, when cursor hovers it ( outer ring )

Procedure OnCreate
	Forward Send OnCreate
	Set ComExpanded to True
	Set ComShadowColor to -1
	Set ComInflateItems to "-8*dpi"
	Set ComItemsBackColor to (RGB(240,240,240))
	Set ComRadialLineColor OLEexRadialHotSubItem to (RGB(0,0,0))
	Set ComRadialLineStyle OLEexRadialHotSubItem to OLEexRadialLineDot
	Set ComRadialLineSize OLEexRadialHotSubItem to 3
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
	Send Destroy to hoItems
End_Procedure
50:
How can I change the border around the items zone, when cursor hovers it ( inner ring )

Procedure OnCreate
	Forward Send OnCreate
	Set ComExpanded to True
	Set ComShadowColor to -1
	Set ComInflateItems to "-8*dpi"
	Set ComItemsBackColor to (RGB(240,240,240))
	Set ComRadialLineColor OLEexRadialHotItem to (RGB(0,0,0))
	Set ComRadialLineStyle OLEexRadialHotItem to OLEexRadialLineDot
	Set ComRadialLineSize OLEexRadialHotItem to 3
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
	Send Destroy to hoItems
End_Procedure
49:
How can I change the border around the parent zone, when cursor hovers it ( center ring )

Procedure OnCreate
	Forward Send OnCreate
	Set ComExpanded to True
	Set ComShadowColor to -1
	Set ComInflateItems to "-8*dpi"
	Set ComItemsBackColor to (RGB(240,240,240))
	Set ComRadialLineColor OLEexRadialHotParent to (RGB(0,0,0))
	Set ComRadialLineStyle OLEexRadialHotParent to OLEexRadialLineDot
	Set ComRadialLineSize OLEexRadialHotParent to 3
End_Procedure
48:
How can I change the border around the items zone ( inner ring )

Procedure OnCreate
	Forward Send OnCreate
	Set ComExpanded to True
	Set ComShadowColor to -1
	Set ComInflateItems to "-8*dpi"
	Set ComItemsBackColor to (RGB(240,240,240))
	Set ComRadialLineColor OLEexRadialItemsBorder to (RGB(0,0,0))
	Set ComRadialLineStyle OLEexRadialItemsBorder to OLEexRadialLineDot
	Set ComRadialLineSize OLEexRadialItemsBorder to 3
End_Procedure
47:
How can I change the border around the parent zone ( center ring )

Procedure OnCreate
	Forward Send OnCreate
	Set ComExpanded to True
	Set ComShadowColor to -1
	Set ComInflateItems to "-8*dpi"
	Set ComItemsBackColor to (RGB(240,240,240))
	Set ComRadialLineColor OLEexRadialParentBorder to (RGB(0,0,0))
	Set ComRadialLineStyle OLEexRadialParentBorder to OLEexRadialLineDot
	Set ComRadialLineSize OLEexRadialParentBorder to 3
End_Procedure
46:
How can I change the grid lines in the items zone ( inner ring )

Procedure OnCreate
	Forward Send OnCreate
	Set ComExpanded to True
	Set ComShadowColor to -1
	Set ComInflateItems to "-8*dpi"
	Set ComItemsBackColor to (RGB(240,240,240))
	Set ComRadialLineColor OLEexRadialItemsGridLines to (RGB(0,0,0))
	Set ComRadialLineStyle OLEexRadialItemsGridLines to OLEexRadialLineDot
	Set ComRadialLineSize OLEexRadialItemsGridLines to 3
End_Procedure
45:
How can I change the border around the slider / custom part of the control

Procedure OnCreate
	Forward Send OnCreate
	Set ComExpanded to True
	Set ComShadowColor to -1
	Set ComInflateItems to "-8*dpi"
	Set ComInflateCustom to (ComInflateItems(Self))
	Set ComItemsBackColor to (RGB(240,240,240))
	Set ComRadialLineColor OLEexRadialCustomBorder to (RGB(0,0,0))
	Set ComRadialLineStyle OLEexRadialCustomBorder to OLEexRadialLineDot
	Set ComRadialLineSize OLEexRadialCustomBorder to 3
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Slider" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComBrowseType of hoItem to OLEexBrowseItemCustom
			Set ComBrowseCustomType of hoItem to OLEexRadialCustomSlider
		Send Destroy to hoItem
	Send Destroy to hoItems
	Variant v
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Get ComItem of hoItems1 "Slider" to v
	Send Destroy to hoItems1
	Set ComBrowseItem to v
End_Procedure
44:
How can I change the grid lines in the subitems zone ( outer ring )

Procedure OnCreate
	Forward Send OnCreate
	Set ComExpanded to True
	Set ComShadowColor to -1
	Set ComInflateItems to "-8*dpi"
	Set ComItemsBackColor to (RGB(240,240,240))
	Set ComRadialLineColor OLEexRadialSubItemsGridLines to (RGB(0,0,0))
	Set ComRadialLineStyle OLEexRadialSubItemsGridLines to OLEexRadialLineDot
	Set ComRadialLineSize OLEexRadialSubItemsGridLines to 3
End_Procedure
43:
How can I change the border around the subitems (exRadialSubItemsBorder)

Procedure OnCreate
	Forward Send OnCreate
	Set ComExpanded to True
	Set ComShadowColor to -1
	Set ComInflateItems to "-8*dpi"
	Set ComItemsBackColor to (RGB(240,240,240))
	Set ComRadialLineColor OLEexRadialSubItemsBorder to (RGB(0,0,0))
	Set ComRadialLineStyle OLEexRadialSubItemsBorder to OLEexRadialLineDot
	Set ComRadialLineSize OLEexRadialSubItemsBorder to 3
End_Procedure
42:
How can I change the border around the radial menu (exRadialBorder)

Procedure OnCreate
	Forward Send OnCreate
	Set ComExpanded to True
	Set ComShadowColor to -1
	Set ComInflateItems to "-8*dpi"
	Set ComItemsBackColor to (RGB(240,240,240))
	Set ComRadialLineColor OLEexRadialBorder to (RGB(0,0,0))
	Set ComRadialLineStyle OLEexRadialBorder to OLEexRadialLineDot
	Set ComRadialLineSize OLEexRadialBorder to 3
End_Procedure
41:
How can I customize the parent part of the control, the center ring/circle

Procedure OnCreate
	Forward Send OnCreate
	Set ComExpanded to True
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "Item 1[scap=Item 1],Item 2[scap=Item 2],Item 3[scap=Item 3],Item 4[scap=Item 4]"
	Send Destroy to hoItems
	Set ComParentSize to "48 * dpi"
	Set ComParentImageHeight OLEexRadialMenuStateAll to "78 * dpi"
	Set ComParentImageWidth OLEexRadialMenuStateAll to "78 * dpi"
	Set ComParentBackColor to (RGB(0,255,0))
	Set ComParentBackAlpha to 128
	Set ComExcludeParentFromItems to True
End_Procedure
40:
How can I prevent showing the arrow in the outer ring

Procedure OnCreate
	Forward Send OnCreate
	Set ComExpanded to True
	Set ComArrowImage to ""
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "Child(SubChild)"
	Send Destroy to hoItems
End_Procedure
39:
Is it possible to change the default arrow, that items with children display (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Set ComExpanded to True
	Set ComHTMLPicture "pic1" to "gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0iIEOZCJJUBEjBB8BBkRERAJzKRHIQAVzODjpjpnIJNIMKWKPBb8MIFiIJOBILJzhQLCdHCYBACaTgYiKHJJEIJULBHMYYAqjMAURiCKJAAogA6lA4EGgAeJnEC2ALzdAMICWf6HMS6HYCbJyvF6eSfIC8CqJJ5zI6gLbuA7ERhAHgNFRGKZHMCzDgGNDukqWYYAZocSIIYiEFiHAJsRygXCccABcTDIBMZByDBAOwEFDkVACICOOCAGCJAQgI54IaYrlesAwBQGGpgMEKcpDGoqB6RSpriIAJJFJxEVxCMCCgI"
	Set ComArrowImage to "pic1"
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "Child(SubChild)"
	Send Destroy to hoItems
End_Procedure
38:
Is it possible to change the default arrow, that items with children display (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Set ComHTMLPicture "arrow" to "gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0iIEOZCJJUBEjBB8BBkRERAJzKRHIQAVzODjpjpnIJNIMKWKPBb8MIFiIJOBILJzhQLCdHCYBACaTgYiJfJJEIJULBHdrOYIJQAwCBEaK1FQbeaoYwGVjLWR0EgJRAEBpICwPf7BY4cQgdAYAcCjUCWfD0G6rHrlHziPTcPrEUjuY5zZpHHgdZ41DYxVTSYJSaojXT0PrTVZBar+P5aaoWT8KfiWbIBZQ1ErVPbDPyYiIAJJFJxEVxCMCCgIA=="
	Set ComExpanded to True
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "Child(SubChild)"
	Send Destroy to hoItems
End_Procedure
37:
How can I change the logo image

Procedure OnCreate
	Forward Send OnCreate
	Set ComHTMLPicture "logo" to "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images\favorites.png"
End_Procedure
36:
How can I customize the items part of the control, the inside ring/circle

Procedure OnCreate
	Forward Send OnCreate
	Set ComDisplayRadial OLEexRadialFullItems to OLEexDisplayRadialRotated
	Set ComExpanded to True
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "Item 1[scap=Item 1],Item 2[scap=Item 2],Item 3[scap=Item 3],Item 4[scap=Item 4]"
	Send Destroy to hoItems
	Set ComInflateRadialMenu to "-4*dpi"
	Set ComInflateItems to "-4*dpi"
	Set ComItemsBackColor to (RGB(0,255,0))
	Set ComItemsBackAlpha to 128
End_Procedure
35:
How can I customize the subitems part of the control, the outside ring/circle

Procedure OnCreate
	Forward Send OnCreate
	Set ComExpanded to True
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "[scap=Item 1],[scap=Item 2],[scap=Item 3],[scap=Item 4]"
	Send Destroy to hoItems
	Set ComInflateRadialMenu to "-4*dpi"
	Set ComSubItemsSize to "48 * dpi"
	Set ComSubItemsBackColor to (RGB(0,255,0))
	Set ComSubItemsBackAlpha to 128
End_Procedure
34:
Can I expand/shrink the radial menu relative to its border/shadow

Procedure OnCreate
	Forward Send OnCreate
	Set ComExpanded to True
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "Item 1,Item 2,Item 3,Item 4"
	Send Destroy to hoItems
	Set ComInflateRadialMenu to "-6*dpi"
End_Procedure
33:
Is it possible to remove/hive the control's shadow

Procedure OnCreate
	Forward Send OnCreate
	Set ComExpanded to True
	Set ComShadowColor to -1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "Item 1,Item 2,Item 3,Item 4"
	Send Destroy to hoItems
End_Procedure
32:
How do I change the color of the control's shadow

Procedure OnCreate
	Forward Send OnCreate
	Set ComExpanded to True
	Set ComShadowColor to (RGB(255,0,0))
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "Item 1,Item 2,Item 3,Item 4"
	Send Destroy to hoItems
End_Procedure
31:
How can I evaluate/format an expression using the control

Procedure OnCreate
	Forward Send OnCreate
	Set ComAllowToggleExpand to False
	Set ComDisplayAngle to -66
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "Item 1,Item 2,Item 3,Item 4"
	Send Destroy to hoItems
	Variant vA
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Get ComCount of hoItems1 to vA
	Send Destroy to hoItems1
	Set ComCaption OLEexLayerCaption to (ComFormatABC(Self,"`The number of items is: <b>` + value",vA,Nothing,Nothing))
End_Procedure
30:
Is it possible to display some extra captions on the control's background

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExpanded to True
	Set ComMinVisibleCount to 6
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "Item 1,Item 2,Item 3,Item 4"
	Send Destroy to hoItems
	Set ComCaption OLEexLayerCaption to "This is a caption to be displayed on the control's background."
	Set ComExtraCaption "extra" OLEexLayerCaption to "This is an extra caption to be displayed on the control's background."
	Set ComExtraCaption "extra" OLEexLayerCaptionAnchor to 2
	Set ComExtraCaption "extra" OLEexLayerCaptionWordWrap to True
	Set ComExtraCaption "extralogo" OLEexLayerCaption to "<img>logo:64</img>"
	Set ComExtraCaption "extralogo" OLEexLayerCaptionAnchor to 4
	Set ComExtraCaption "extralogo" OLEexLayerCaptionLeft to "width-twidth"
	Send ComEndUpdate
End_Procedure
29:
What events the control supports
// Notifies the application once the control fires an event.
Procedure OnComEvent Integer   llEventID
	Forward Send OnComEvent llEventID
	Showln (ComEventParam(Self,-2))
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExpanded to True
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "Item 1,Item 2,Item 3,Item 4"
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
28:
How can I use/load images/pictures

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExpanded to True
	Set ComPicturesPath to "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	Set ComHTMLPicture "relative" to "settings.png"
	Set ComHTMLPicture "absolute" to "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images\favorites.png"
	Set ComHTMLPicture "encoded" to ("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+IPIYw3D1BYGMFgbwegXBcK8AwchtjwCCEoVwFwBhABMDIconAlgWHsP8XYKA7D" + ;
"FFwAwOQfxmh6FPcEd4Ww6D/CqCMSICAMBjD6KYBAzBmjNF6HEew7BsjPCoFUNoTQTCTCKAAUAKAFDsDsDuu4sQODbDYDYJAkgCBKBSNIdINBLX1EgEoUt9xShMDHfAMgWQzCpCoGoMAYQwjhHqIwL4YRajyC8EgDw+hvjxE+BUNgPAgjmBkBsfpEQABJCKE4IgrghBgEEQEA=")
	Set ComBackgroundPicture to "Background\frame.png"
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAdd of hoItems "Relative 1" "relative" Nothing to Nothing
		Variant voItem
		Get ComAdd of hoItems "Relative 1" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComImage of hoItem OLEexRadialItems to "settings.png"
		Send Destroy to hoItem
		Get ComAdd of hoItems "Aboslute 1" "absolute" Nothing to Nothing
		Get ComAdd of hoItems "Aboslute 2" "favorites.png" Nothing to Nothing
		Get ComAdd of hoItems "Encoded 1" "encoded" Nothing to Nothing
		Variant voItem1
		Get ComAdd of hoItems "Encoded 2" Nothing Nothing to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComImage of hoItem1 OLEexRadialItems to ("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+IPIYw3D1BYGMFgbwegXBcK8AwchtjwCCEoVwFwBhABMDIconAlgWHsP8XYKA7D" + ;
"FFwAwOQfxmh6FPcEd4Ww6D/CqCMSICAMBjD6KYBAzBmjNF6HEew7BsjPCoFUNoTQTCTCKAAUAKAFDsDsDuu4sQODbDYDYJAkgCBKBSNIdINBLX1EgEoUt9xShMDHfAMgWQzCpCoGoMAYQwjhHqIwL4YRajyC8EgDw+hvjxE+BUNgPAgjmBkBsfpEQABJCKE4IgrghBgEEQEA=")
		Send Destroy to hoItem1
		Get ComAdd of hoItems "<c><img>relative</img><br><c>Relative 3" Nothing Nothing to Nothing
		Get ComAdd of hoItems "<c>Relative 4<br><c><img>relative</img>" "relative" Nothing to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
27:
Does your control supports tooltips (method 2)

// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short   llButton Short   llShift OLE_XPOS_PIXELS   llX OLE_YPOS_PIXELS   llY
	Forward Send OnComMouseMove llButton llShift llX llY
	Send ComShowToolTip (ComFormatABC(Self,"`Index of the pie from the cursor: ` + (value >= 0 ? value : `<fgcolor=808080>none` )",(ComIndexFromPoint(Self,OLEexRadialFullItems,-1,-1)),Nothing,Nothing)) "Info" 0 "8" "8"
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComDisplayAngle to -45
	Set ComExpanded to True
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "Item 0"
		Get ComAdd of hoItems "Item 1" Nothing Nothing to Nothing
		Get ComAdd of hoItems "Item 2" Nothing Nothing to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
26:
Can I change the visual appearance of the control's tooltip

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexToolTipAppearance to |CI$1000000
	Set ComDisplayAngle to -45
	Set ComExpanded to True
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "Item 0[ttp=tooltip's item][sttp=tooltip's subitem]"
		Variant voItem
		Get ComAdd of hoItems "Item 1" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComTooltip of hoItem OLEexRadialItems to "This is a bit of text that shown when user <b>hovers</b> the item"
		Send Destroy to hoItem
		Variant voItem1
		Get ComAdd of hoItems "Item 2" Nothing Nothing to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComTooltip of hoItem1 OLEexRadialItems to "This is a bit of text that shown when user hovers the item"
			Set ComTooltip of hoItem1 OLEexRadialSubItems to "This is a bit of text that shown when user hovers the sub-item"
		Send Destroy to hoItem1
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
25:
Does your control supports tooltips (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Set ComDisplayAngle to -45
	Set ComExpanded to True
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "Item 0[ttp=tooltip's item][sttp=tooltip's subitem]"
		Variant voItem
		Get ComAdd of hoItems "Item 1" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComTooltip of hoItem OLEexRadialItems to "This is a bit of text that shown when user <b>hovers</b> the item"
		Send Destroy to hoItem
		Variant voItem1
		Get ComAdd of hoItems "Item 2" Nothing Nothing to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComTooltip of hoItem1 OLEexRadialItems to "This is a bit of text that shown when user hovers the item"
			Set ComTooltip of hoItem1 OLEexRadialSubItems to "This is a bit of text that shown when user hovers the sub-item"
		Send Destroy to hoItem1
	Send Destroy to hoItems
End_Procedure
24:
How can I use/load icons

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExpanded to True
	Set ComPicturesPath to "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images\Icons"
	Send ComImages "copy.ico"
	Send ComImages "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images\Icons\dvd.ico"
	Send ComImages "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"
	Set ComHTMLPicture "icon" to "download.ico"
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "Icon 0[img=0]"
		Get ComAdd of hoItems "Icon 1" 1 Nothing to Nothing
		Get ComAdd of hoItems "Icon 2" "print.ico" Nothing to Nothing
		Variant voItem
		Get ComAdd of hoItems "Icon 3" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComImage of hoItem OLEexRadialSubItems to "icon"
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
23:
How can I load items /images to the control, in sub-items zone

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComAllowToggleExpand to False
	Set ComPicturesPath to "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	Set ComHTMLPicture "logo" to "settings.png"
	Set ComRadialLineColor OLEexRadialParentBorder to (ComSubItemsBackColor(Self))
	Set ComRadialLineColor OLEexRadialItemsGridLines to -1
	Set ComSubItemsSize to "64 * dpi"
	Set ComParentSize to "value - 66 * dpi"
	Set ComParentImageWidth OLEexRadialMenuStateAll to "64*dpi"
	Set ComParentImageHeight OLEexRadialMenuStateAll to "64*dpi"
	Set ComParentCaption OLEexRadialMenuStateAll to "<font ;14><c>System Settings</font><br><c>Surround"
	Set ComRadialLineSize OLEexRadialHotFullItem to 0
	Set ComRadialLineSize OLEexRadialHotSubItem to -1
	Set ComRadialLineColor OLEexRadialHotSubItem to |CI$8000000d
	Set ComRadialLineAlpha OLEexRadialHotSubItem to 128
	Set ComItemsBackColor to (ComSubItemsBackColor(Self))
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAdd of hoItems "" "color_line.png" 2 to Nothing
		Get ComAdd of hoItems "" "color_fill.png" 2 to Nothing
		Get ComAdd of hoItems "" "format_font_size_less.png" 2 to Nothing
		Get ComAdd of hoItems "" "edit_undo.png" 2 to Nothing
		Get ComAdd of hoItems "" "edit_redo.png" 2 to Nothing
		Get ComAdd of hoItems "" "edit_copy.png" 2 to Nothing
		Get ComAdd of hoItems "" "fileview_text.png" 2 to Nothing
		Get ComAdd of hoItems "" "checkmark_korganizer.png" 2 to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
22:
How can I load items /images to the control

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExpanded to True
	Set ComPicturesPath to "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	Set ComHTMLPicture "arrow" to "arrow.png"
	Set ComSubItemsBackColor to (RGB(190,190,190))
	Set ComShadowColor to (ComSubItemsBackColor(Self))
	Set ComRadialLineColor OLEexRadialParentBorder to (ComSubItemsBackColor(Self))
	Set ComRadialLineColor OLEexRadialItemsGridLines to -1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Foreground-Color" "color_line.png" Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Set ComToString of hoItems1 to "Foreground"
			Send Destroy to hoItems1
		Send Destroy to hoItem
		Variant voItem1
		Get ComAdd of hoItems "Background-Color" "color_fill.png" Nothing to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Variant voItems2
			Get ComItems of hoItem1 to voItems2
			Handle hoItems2
			Get Create (RefClass(cComItems)) to hoItems2
			Set pvComObject of hoItems2 to voItems2
				Set ComToString of hoItems2 to "Background"
			Send Destroy to hoItems2
		Send Destroy to hoItem1
		Variant voItem2
		Get ComAdd of hoItems "Font" "format_font_size_less.png" Nothing to voItem2
		Handle hoItem2
		Get Create (RefClass(cComItem)) to hoItem2
		Set pvComObject of hoItem2 to voItem2
			Variant voItems3
			Get ComItems of hoItem2 to voItems3
			Handle hoItems3
			Get Create (RefClass(cComItems)) to hoItems3
			Set pvComObject of hoItems3 to voItems3
				Set ComToString of hoItems3 to "Font"
			Send Destroy to hoItems3
		Send Destroy to hoItem2
		Variant voItem3
		Get ComAdd of hoItems "Undo" "edit_undo.png" Nothing to voItem3
		Handle hoItem3
		Get Create (RefClass(cComItem)) to hoItem3
		Set pvComObject of hoItem3 to voItem3
			Variant voItems4
			Get ComItems of hoItem3 to voItems4
			Handle hoItems4
			Get Create (RefClass(cComItems)) to hoItems4
			Set pvComObject of hoItems4 to voItems4
				Set ComToString of hoItems4 to "Undo"
			Send Destroy to hoItems4
		Send Destroy to hoItem3
		Variant voItem4
		Get ComAdd of hoItems "Redo" "edit_redo.png" Nothing to voItem4
		Handle hoItem4
		Get Create (RefClass(cComItem)) to hoItem4
		Set pvComObject of hoItem4 to voItem4
			Variant voItems5
			Get ComItems of hoItem4 to voItems5
			Handle hoItems5
			Get Create (RefClass(cComItems)) to hoItems5
			Set pvComObject of hoItems5 to voItems5
				Set ComToString of hoItems5 to "Redo"
			Send Destroy to hoItems5
		Send Destroy to hoItem4
		Variant voItem5
		Get ComAdd of hoItems "Copy" "edit_copy.png" Nothing to voItem5
		Handle hoItem5
		Get Create (RefClass(cComItem)) to hoItem5
		Set pvComObject of hoItem5 to voItem5
			Variant voItems6
			Get ComItems of hoItem5 to voItems6
			Handle hoItems6
			Get Create (RefClass(cComItems)) to hoItems6
			Set pvComObject of hoItems6 to voItems6
				Set ComToString of hoItems6 to "Copy"
			Send Destroy to hoItems6
		Send Destroy to hoItem5
		Variant voItem6
		Get ComAdd of hoItems "List" "fileview_text.png" Nothing to voItem6
		Handle hoItem6
		Get Create (RefClass(cComItem)) to hoItem6
		Set pvComObject of hoItem6 to voItem6
			Variant voItems7
			Get ComItems of hoItem6 to voItems7
			Handle hoItems7
			Get Create (RefClass(cComItems)) to hoItems7
			Set pvComObject of hoItems7 to voItems7
				Set ComToString of hoItems7 to "List"
			Send Destroy to hoItems7
		Send Destroy to hoItem6
		Variant voItem7
		Get ComAdd of hoItems "Tag" "checkmark_korganizer.png" Nothing to voItem7
		Handle hoItem7
		Get Create (RefClass(cComItem)) to hoItem7
		Set pvComObject of hoItem7 to voItem7
			Variant voItems8
			Get ComItems of hoItem7 to voItems8
			Handle hoItems8
			Get Create (RefClass(cComItems)) to hoItems8
			Set pvComObject of hoItems8 to voItems8
				Set ComToString of hoItems8 to "Tag"
			Send Destroy to hoItems8
		Send Destroy to hoItem7
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
21:
How can I load items to the control

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComMinVisibleCount to 3
	Set ComPicturesPath to "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	Set ComHTMLPicture "remove" to "remove.png"
	Set ComHTMLPicture "refresh" to "refresh.png"
	Set ComHTMLPicture "preview" to "preview.png"
	Set ComHTMLPicture "search" to "search.png"
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Search" "search" Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Set ComToString of hoItems1 to "Search A,Search B,Search C"
			Send Destroy to hoItems1
		Send Destroy to hoItem
		Get ComAdd of hoItems "Refresh" "refresh" Nothing to Nothing
		Get ComAdd of hoItems "Preview" "preview" Nothing to Nothing
		Get ComAdd of hoItems "Remove" "remove" Nothing to Nothing
	Send Destroy to hoItems
	Set ComExpanded to True
	Send ComEndUpdate
End_Procedure
20:
How do I get the version of the control I am running

Procedure OnCreate
	Forward Send OnCreate
	Showln "Version:" (ComVersion(Self))
End_Procedure
19:
How do I select an item

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

Procedure OnCreate
	Forward Send OnCreate
	Set ComAllowToggleExpand to False
	Set ComToString to "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
	Set ComSelectedIndex OLEexRadialFullItems to 0
End_Procedure
18:
How can I change the item's foreground color (sample 3)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExpanded to True
	Set ComMinVisibleCount to 6
	Variant voStdFont
	Get ComFont to voStdFont
	Handle hoStdFont
	Get Create (RefClass(cComStdFont)) to hoStdFont
	Set pvComObject of hoStdFont to voStdFont
		Set ComSize of hoStdFont to "14.25"
	Send Destroy to hoStdFont
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Item 1" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComName of hoItem to "<fgcolor FF0000>Item</fgcolor> 1"
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Get ComAdd of hoItems1 "SubItem 1" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "SubItem 2" Nothing Nothing to Nothing
			Send Destroy to hoItems1
		Send Destroy to hoItem
		Get ComAdd of hoItems "Item 2" Nothing Nothing to Nothing
		Get ComAdd of hoItems "Item 3" Nothing Nothing to Nothing
		Get ComAdd of hoItems "Item 4" Nothing Nothing to Nothing
		Get ComAdd of hoItems "Item 5" Nothing Nothing to Nothing
		Get ComAdd of hoItems "Item 6" Nothing Nothing to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
17:
How can I change the item's foreground color (sample 2)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExpanded to True
	Set ComMinVisibleCount to 6
	Variant voStdFont
	Get ComFont to voStdFont
	Handle hoStdFont
	Get Create (RefClass(cComStdFont)) to hoStdFont
	Set pvComObject of hoStdFont to voStdFont
		Set ComSize of hoStdFont to "14.25"
	Send Destroy to hoStdFont
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Item 1" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComForeColor of hoItem OLEexRadialItems to (RGB(255,0,0))
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Get ComAdd of hoItems1 "SubItem 1" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "SubItem 2" Nothing Nothing to Nothing
			Send Destroy to hoItems1
		Send Destroy to hoItem
		Get ComAdd of hoItems "Item 2" Nothing Nothing to Nothing
		Get ComAdd of hoItems "Item 3" Nothing Nothing to Nothing
		Get ComAdd of hoItems "Item 4" Nothing Nothing to Nothing
		Get ComAdd of hoItems "Item 5" Nothing Nothing to Nothing
		Get ComAdd of hoItems "Item 6" Nothing Nothing to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
16:
How can I change the item's foreground color (sample 1)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExpanded to True
	Set ComMinVisibleCount to 6
	Variant voStdFont
	Get ComFont to voStdFont
	Handle hoStdFont
	Get Create (RefClass(cComStdFont)) to hoStdFont
	Set pvComObject of hoStdFont to voStdFont
		Set ComSize of hoStdFont to "14.25"
	Send Destroy to hoStdFont
	Set ComForeColor to (RGB(255,0,0))
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Item 1" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Get ComAdd of hoItems1 "SubItem 1" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "SubItem 2" Nothing Nothing to Nothing
			Send Destroy to hoItems1
		Send Destroy to hoItem
		Get ComAdd of hoItems "Item 2" Nothing Nothing to Nothing
		Get ComAdd of hoItems "Item 3" Nothing Nothing to Nothing
		Get ComAdd of hoItems "Item 4" Nothing Nothing to Nothing
		Get ComAdd of hoItems "Item 5" Nothing Nothing to Nothing
		Get ComAdd of hoItems "Item 6" Nothing Nothing to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
15:
How can I add new items / childrend to the control (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExpanded to True
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Item 1" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Get ComAdd of hoItems1 "SubItem 1" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "SubItem 2" Nothing Nothing to Nothing
			Send Destroy to hoItems1
		Send Destroy to hoItem
		Get ComAdd of hoItems "Item 2" Nothing Nothing to Nothing
		Get ComAdd of hoItems "Item 3" Nothing Nothing to Nothing
		Get ComAdd of hoItems "Item 4" Nothing Nothing to Nothing
		Get ComAdd of hoItems "Item 5" Nothing Nothing to Nothing
		Get ComAdd of hoItems "Item 6" Nothing Nothing to Nothing
		Get ComAdd of hoItems "Item 7" Nothing Nothing to Nothing
		Get ComAdd of hoItems "Item 8" Nothing Nothing to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
14:
How can I add new items / childrend to the control (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExpanded to True
	Set ComToString to "Item 1(SubItem 1,SubItem 2),Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
	Send ComEndUpdate
End_Procedure
13:
How do I enlarge the font (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComAllowToggleExpand to False
	Set ComMinVisibleCount to 4
	Set ComToString to "Item 1,Item 2,Item 3,Item 4"
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComItem of hoItems 0 to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComName of hoItem to "<font ;14>Item 1"
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
12:
How do I enlarge the font (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComAllowToggleExpand to False
	Set ComMinVisibleCount to 4
	Set ComToString to "Item 1,Item 2,Item 3,Item 4"
	Variant voStdFont
	Get ComFont to voStdFont
	Handle hoStdFont
	Get Create (RefClass(cComStdFont)) to hoStdFont
	Set pvComObject of hoStdFont to voStdFont
		Set ComSize of hoStdFont to "14.25"
	Send Destroy to hoStdFont
	Send ComEndUpdate
End_Procedure
11:
How can I expand the control (method 2)
Procedure OnCreate
	Forward Send OnCreate
	Set ComAllowToggleExpand to False
End_Procedure
10:
How can I expand the control (method 1)
Procedure OnCreate
	Forward Send OnCreate
	Set ComExpanded to True
End_Procedure
9:
By default, the control displays 8-pies. How can I change that

Procedure OnCreate
	Forward Send OnCreate
	Set ComExpanded to True
	Set ComMinVisibleCount to 3
End_Procedure
8:
How can I prevents expanding / collapsing the radial menu
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComAllowToggleExpand to False
	Set ComToString to "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
	Set ComCaption OLEexLayerCaption to "Cant expand/collapse the radial menu"
	Set ComCaption OLEexLayerCaptionAnchor to 0
	Set ComCaption OLEexLayerCaptionLeft to "width-twidth"
	Set ComCaption OLEexLayerCaptionTop to "height-theight"
	Send ComEndUpdate
End_Procedure
7:
How can I prevent flickering the item, when user selects it
Procedure OnCreate
	Forward Send OnCreate
	Set ComAllowToggleExpand to False
	Set ComToString to "<c><b>Item 1<b><br><c>no flick<br>,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComItem of hoItems 0 to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComBrowseType of hoItem to (|CI$fffffffc + OLEexBrowseItemCustom + OLEexBrowseItemChild)
		Send Destroy to hoItem
	Send Destroy to hoItems
End_Procedure
6:
How do I highlight the sub-item zone when cursor hovers it (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Set ComExpanded to True
	Set ComRadialLineSize OLEexRadialHotFullItem to (ComFormatABC(Self,(ComSubItemsSize(Self)),Nothing,Nothing,Nothing))
	Set ComRadialLineColor OLEexRadialHotFullItem to |CI$8000000d
	Set ComRadialLineAlpha OLEexRadialHotFullItem to 64
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAdd of hoItems "Item A" Nothing Nothing to Nothing
		Get ComAdd of hoItems "Item B" Nothing Nothing to Nothing
		Get ComAdd of hoItems "Item C" Nothing Nothing to Nothing
	Send Destroy to hoItems
End_Procedure
5:
How do I highlight the sub-item zone when cursor hovers it (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Set ComExpanded to True
	Set ComRadialLineSize OLEexRadialHotFullItem to 0
	Set ComRadialLineSize OLEexRadialHotSubItem to -1
	Set ComRadialLineColor OLEexRadialHotSubItem to |CI$8000000d
	Set ComRadialLineAlpha OLEexRadialHotSubItem to 64
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAdd of hoItems "Item A" Nothing Nothing to Nothing
		Get ComAdd of hoItems "Item B" Nothing Nothing to Nothing
		Get ComAdd of hoItems "Item C" Nothing Nothing to Nothing
	Send Destroy to hoItems
End_Procedure
4:
Is it possible to highlight the entire item when cursor hovers the item

Procedure OnCreate
	Forward Send OnCreate
	Set ComExpanded to True
	Set ComRadialLineSize OLEexRadialHotFullItem to -1
	Set ComRadialLineColor OLEexRadialHotFullItem to |CI$8000000d
	Set ComRadialLineAlpha OLEexRadialHotFullItem to 64
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAdd of hoItems "Item A" Nothing Nothing to Nothing
		Get ComAdd of hoItems "Item B" Nothing Nothing to Nothing
		Get ComAdd of hoItems "Item C" Nothing Nothing to Nothing
	Send Destroy to hoItems
End_Procedure
3:
How can I hide the hot line when hovering the cursor
Procedure OnCreate
	Forward Send OnCreate
	Set ComAllowToggleExpand to False
	Set ComRadialLineSize OLEexRadialHotFullItem to 0
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAdd of hoItems "Item A" Nothing Nothing to Nothing
		Get ComAdd of hoItems "Item B" Nothing Nothing to Nothing
		Get ComAdd of hoItems "Item C" Nothing Nothing to Nothing
	Send Destroy to hoItems
End_Procedure
2:
How can I hide the control's shadow

Procedure OnCreate
	Forward Send OnCreate
	Set ComExpanded to True
	Set ComShadowColor to -1
End_Procedure
1:
How do I change the control's background color
Procedure OnCreate
	Forward Send OnCreate
	Set ComBackColor to (RGB(240,240,249))
End_Procedure