Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExpanded to True
	Get ComReplaceIcon "gAAAABgYACEHgUJFEEAAWhUJCEJEEJggEhMCYEXjUbjkJQECj8gj8hAEjkshYEpk8kf8ClsulsvAExmcvf83js5nU7nkCeEcn8boMaocXosCB9Hn09pkzcEuoL/fE+OkYB0gB9YhIHrddgVcr9aktZADAD8+P8CgIA==" Nothing to Nothing
	Get ComReplaceIcon "C:\images\favicon.ico" 0 to Nothing
	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 Inside <img>3</img>" Nothing Nothing to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

// Notifies once the user browses for a new item.
Procedure OnComBrowseItem Variant   llItem
	Forward Send OnComBrowseItem llItem
	// ParentCaption(-1) = Item.Caption(1)
	// SelectedIndex(3) =  Item.Index
	// ParentCaption(-1) = FormatABC("(A  lpad `00`) +`:`+ (B lpad `00`)",Item.Caption(1),0)
End_Procedure

// Notifies once the user selects an item.
Procedure OnComSelectItem Variant   llItem
	Forward Send OnComSelectItem llItem
	// SelectedIndex(3) =  Item.Index
	// ParentCaption(-1) = FormatABC("(A  lpad `00`) +`:`+ (B lpad `00`)",Item.Parent.Caption(1),Item.Caption(1))
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComAllowToggleExpand to False
	Set ComExpanded to True
	Set ComToString to ("0(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59),1(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59),2(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59),3(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59),4(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59),5(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59),6(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59),7(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59),8(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59),9(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59),10(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59),11(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49," + ;
	"50,51,52,53,54,55,56,57,58,59),12(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59),13(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59),14(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59),15(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59),16(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59),17(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59),18(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59),19(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59),20(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59),21(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59),22(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59),23(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36" + ;
	",37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59)")
	Set ComDisplayCenter OLEexRadialItems to 0.1
	Set ComDisplayCenter OLEexRadialSubItems to 0.1
	Set ComArrowImage to ""
	Set ComRadialLineSize OLEexRadialItemsGridLines to 1
	Set ComParentSize to 32
	Set ComSubItemsSize to 0
	Set ComParentCaption OLEexRadialMenuStateAll to (ComFormatABC(Self,"(A  lpad `00`) +`:`+ (B lpad `00`)",0,0,Nothing))
	Send ComEndUpdate
End_Procedure

// 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 "new content" "" "+8" "+8"
End_Procedure

// 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 "<null>" "<null>" "+8" "+8"
End_Procedure

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

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExpanded to True
	Set ComImageSize to 32
	Send ComImages "gBJJgBggAAQAAgAEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbmiAQD/jL/r1fYFlsFctFptVrtltt0qsdgrz/srAs8NsNxut3t99v1/wGBwQAuNhwlks17veGjFiueLweRyWTymVm+FxsTw90xOdu2Ks2Mht60OW02n1GprWYiUTh+b0Gfz2c2W1u+30l21W73m93021mu4UO2Gz2O05HHyF4xu5vm/6HR6WB4PD61yxG25XG7na0vMhvL6fj8nlqXV6/p4ve9nX7ft5eO7PP831+33rtzsPp/mvx7uuS77bus97kLy/T8QTBUFpM9D+we7D3QA47RQC9rRQZDMNQTCEOs0/UQK/AkJxJC7Gw3FEUvLD0HsKh7Fv8r7NxG+EStvFUcRy3sWOs50YIdH8DRDCUattDEdSRJLIx4h64rizUXtDKLdSmsEYwjGkLRvJUuS6v0WRch0nyq1sgzNKUgNDIcsyPL03TerMWv1KsxuJMk7zTKk8ytPbWs3GbXxPOFB0Iqjrx9ND5NdM89QNPFHT7QK8QQ8FC0tS6ktdJy5yhPc6uvMtE0ZPlIQNQVMVRVNM0/T8g1a2c2UfUc/VPVVbVuobcU4186V24VQts61gVJWda1xY9kKDB6903EVeU8udPonWdJPpZNr2wm1F1g4bW2bRVh2/YUyWNbNzXOl1QSqvdY0jd0ttbX9y3Rel6pNAdn1M8F1Xe+KVXhe2A4FdMK4IzLhyDNuB4XhilXxeVK4biWJqXgGKYvjGM41jeOY7jycIqHyVZEjqPpCjKSJIkyDpxSWP5fmCZIC"
	Send ComImages "gBJJgBggAAQAAgAEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbmiAkEar0gYFjrlls1ntFptVrllhjFeAFjYFtuFytl3vF5vV7vkmt1+sVku12lduwl9xGJxWLxk3v8Zh9vwNzweCy1zwt1smNzmdz2frePjGRyIAzWUy9x1OVzEqw2b0Gx2Wz2k10USf+43Wmyeq1G/33B1nBzO92vH5HJxO30kO3Wl0/C1fT4HDw8p6/K7Xb7lS5nO5u58OS6XV1Pj63U4kf6Pd93v+E57/i8H1+n38np82tlPo9Tstu+MBQHAjJK+yD7OfBLxt5BTcv08qWQg7MCwrC0KvHDMFwTBsOrg/z9wjCbYQvEsTPfDT8RS3ivucwjnQ8kEQRE/8SRPG8cNrFcVte4CJOJFzNrhBsZxG/kcyRJLOR3BK3Lc0sgsxKLRwezcYSHD8EwhJUuS6xEmNyv7nSfKcfxfKspTRKjiSxGUtRtL04zks8eSHKcyNzM0rTVPU0yBPkrq/LM8znQtDKy8cez/FjdTPRdHUhPdFsBQ9K0sqTIydQc1rtPEHU5SVIz9UVL1LUyo09T1HVU8831HUNYT9U9Z1op9PT7RkGSmu1dUBXz11rYNhKRFdOrhW872PTbI1JH9h2faCg2ZVr8R/TSQTFNVr0/XFo29b6cV7CMZ27MsYJVBlwXVdabShPl0Q5c133Zel6qxclz3tfV9qvdN+X/gGA4FgeCYLg2D4RhLFoqHyVYajqPpCjKSJIkyD3C+1CJYiaX44lx/nhfKVn+cAf41kZgAfk90EAAeVv60aXn8jAfpefiMA+l58IwA6XngjAHpecGcaFoiXaGAGc6PoyW6RpWm6YlmnaLpOqD/q2fIxq6XZuAGtpbruvpZsOZIRl6TH+RgD7OjSHbXjp/mftkEZFeG6pSgIA=="
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAdd of hoItems "Icon 32-bit<br><c><img>1</img>" Nothing Nothing to Nothing
		Get ComAdd of hoItems "Icon 4-bit<br><c><img>2</img>" Nothing Nothing to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExpanded to True
	Set ComImageSize to 32
	Send ComImages "gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m0mf8ZnMYncNnU/nlAn1BolDo09pFCpNFpdGm9PqE0f6Aqk9qNXrFZrVbrldr1fsFXidjslls1ntFptVroVht1UQFNptuul1u13vF5vViidKpVqv1MwFMwMSh9tvc0uFynV9nmLxORyWTr1VnWLYGZq2Uzk8tef0Gh0VnxGdAGQwmeh+ZYD/1mM02x2WmyFV19KzGa2d5seFuVm31/su+wdOxOoo+N1ea1/FqeW3fR6WV6E+23M7Gt3HX7XTrej8Hh8XDot15G/5et5sPkEN9uu7Ow73z+kx8997nw9Xx29M3LuvqmTetS5LVLI4jQODA0BuMrTzuEhzXvWhz3vez0FtIx7qwDDjpvu4b8wk/kRwApD/s3DrDPHFcWLY8qbwewT0v0scKwuiSiIcz0Tv7AsUx+zkPrQ064xE/cjxpI0kt0/z8q0+UoQVH0owJKkVQZK0sJnGKjonJSzPenLDsPHD3OhHUrwzMy4yBNq7yEtkQxJJckSVJSlR6m8Wz3PjyTTPjSoxLikS8+K1S+wyJObG6dzRCk5RLQM3Umq84NDIk6UzCaxztOceufIsmJhLUqudBEhyrCFCT9KDgVTJtQyRQ9DLTREywHR0XTXFFKV6mFLPBTFOzrUVVrJYcaMvDcBT7ZtAQxZ9dp1ZDFrNL9a1otE71vTj4sLX1wJXYDx0xa1PW8plkU+qNSSm5UD1fLtWVVV0/z3d65SVHjNVnSN4qRa8I2zNVQV5cNw2cw7LYWuNzWJh9NXRBqpYTirxWUuLF40quN4zjmPzZf8pSzjuC5LasZ03h1kwJg+XXs8TIRnROGLPdVz38p921becZM/kd6xpfeIX06sx5PkGTaS86qUTMcdSxgObYHoLkZfXsW6HMWBO1mea5Xm+cz1i2yNEy7H7Q920qntcbYno6QOfM257lutladqG8zIhuVLLqWwWLSWrx/mOkr7mfEa5rac6/v058EmOd3pnt3WhNHK3ly9c0ZRvO85taXbhumm7tDW8cXK/J8Vvtj6pymDcG+rRZlR+G8TZPbtvr02KrlfIVHsvg11tm1eL4nj7d5EXpb0XS7pvXT810nSWnflsVl6+WR92MUrX2mhd7p/ccUw3dfJ29MXLvfYcix3MWNyVS9f1UTaX8NUYnscxbv8XoyyvhQr2FtOuXgtJ7iASztaMMyh88DXxwPfNA8n7Rl2PCgswRFjv1ftGdI9B8Tmm/uOgE1OEaYGkrfgOd5GrhnxGvgYaR3JuoYtdfI8srEF4cQFSy0FJ8HXUQffqyFmEIXWwlLKyVZDGH2QpMowUicL4IxQgJBCGUDoIwaS2/Zj0W2lRcaRF6LUXYxRficiuLDzIfOndS6Zup53WLdiMWSJDj2RRMPnEE3qM4XuHdW9ZA8M3FrrQcpBiKSGtNhfArGQqmVBqnLmgKNL/UsNQem3GSsQo4I0LVHNiBvmrR2UoWuF0LG9Sji4759ENinvJlY22VzxpWywle8qWUtUWxnefD9vUIFiyUktL+AzMIntJiSlWT8oGXSZjfAuML5TNMlOAzOVSMHPrcmq5ua02ZsTbc9NpRqFl/w8eYeE3yn4PTnf2hqLkxUpzHmRAeGEfTWyoitFU9EOityxlpPufU/ZZz+lsmGM0046vbjcxJ/5PJ2FyndO+hyqpnM5njFRsUKDpw5ow5ovbAD4xkoWduIVD6RE2PkSt+EAXUUEPrGSlkYaWxgphGOlyyy3tGkQtudtNKR07ibAB9alJDs4YLTdOdQWiTPp0XijknZjVJp5U+i8uD6UAn5P+q1Aar1VeMcemzgVYRLqhWGsReEwzXm7Nys1aZvVqUdOAzlDKnVjrlXMvNVK7VZrvVivVYC7sFrpXQioPiVWCI6R8kJGSSEkJMAIqDe6/2PshZGA5AQ="
	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 Inside <img>3</img>" Nothing Nothing to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExpanded to True
	Set ComImageSize to 16
	Send ComImages ("gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUHAgEP50nD/N87f58nz/Q1Bf5rolDoqJpD/PFLoxrf5sqD/IVTf8zqwAAtZBAHriOD9ffgJsQJq9ls1ntEtAYgEB/GgwGB+rlctNpCt3QDCvT/RF9f7DwETf6Fwj/P+HwTPxT/QmNf60yF8v11mgEA4KBYLPgjFAneSQTCPf5y0j/CoUCp5ymr1mrEQzGa9MamU2MPZ7f5PJxOfg73yBuYH1stCXFPa+5GDwqA5mCQ/Pf6O6T/bPVf7G7D/5iAwSM71Vmc1ywKsSBEIkEj8PCLQT/YLGZL/Z6VT7/cTebL/EQlEr88SEOHAMBI0GYXBcXpUlyXKlFqWp/m2aZpn+WZZFkf44Qwf7dt43wdkCA0QAMmcRIxEgARNExBFdFbtOa27cHFGJ/j9Gh/lvG7BGBHUWu4XcfH+RsgvAlTggVIxAg9JJ+DoPA7vkZZmH+ag/D+v4Dge8Btn+bhwnixhCDyf7igkP0BzM1YVTSXpnGUZTBDKURRH8ZEdzbNxxzwf5bT2nSeCxP5/htQQnAZQoHo0IFEnzDA4HyNNHnywhCny0g5H4O9MH+SNNn+TFPQvDLDyqN1SH+S1Tn+aFVKUphK1cf5A1jIYEghWo9ySD0lpy6r8ombpbGKf55gScCHA8Ch/iiBBJn+Igsn2f51HVCT+BG/zxTPbKWxCAwU28XZi3CwRznwfB/DiVBUH+bpkviXcFOUQp/zsf5rXsf7aNqKd9n+GN/B6jTvEYf5O4Kf6kESwRr4WwzDn9BUFonWJAn+SmLH/CsLE6TxPH+c50HQf5RFGUZ/nfk5/kflR/hWFYXn0LguC8f903UwSHn0fR+Ska5x3mZxyH+cpQEof5sEDgYEguhx4nkh0aDpMTizLbWqo0CesDyY+tsEf2vH8dR7nvZpQFAf5UmcZx/m8ahqH+WGSH+NqimGYhiH/u27vEQyWO2f5L8BHj3GCYJ/mbw/BY5jp88Zhsq8Jwp/H6fp/jINo2n+aJyaCaxznPKRynLWFOCQJAdH+HwfCUf4wjCOB/DKMo4n+55IH+NA0Dqf4jCMHJ/isLohn+IYpisf5lmwau1m50R4niectm5LQQ+pa6a6tbQB+1KubocfdoFiyIoGr5QUGWZZ/jMWZZn+WMIn+cxuG5o3zn+XV4AAgg9pZUR/1cJVwQ24BHXOy35nI+jBMTccvUb43x/haLgP8TIQQgj/E+Ep1Yozdj/E4E8J4/wesAF82UFw/1HgtVACof4JwTgjcqGQiQ/2liwFe7pkiDh6D1HqyYd45n4Dmh8RMO0Qx/mZAWHp7C2TxG4e6HpCrNEcBwHcO4f4X3Nj/CyN0brLF2vpfWhNhg3YBgGJqIR/hiBFRpH+phJxEy9DCjWplRg/1yj4gWHsn4qjkhtLEP8X5GB/jAkALuQAmiMD5I0E0JoABaI3Ia6UhoeokEPAmP9BoYR/gNAaQ0VQqjaw6js55z7oXRDylMP9zbQSxjzAFK1AESTWljSq16Swvxfj/CKMgZA/xfLiD/FMf4S4GwPHCOF9LoR/hbHAsUEbdlmmIAekYPr/Dmi4XgnEUR1BtDaH+OFGQoZwL4FOKcwQoxSCkH/J0VQ/2xNjCivwVQrxXmCDuT4eBGQGEsCIEQDg+TnwxAgP8XovWKBQCg7o6Qg2RCibNKZpzIGQjrokP8dlFYeDvH+qQNw/wMUdEbLA4ZYw8iuk6X9+oVIBD+GBLZ+A9B6MYHaO0pTIENIyC9RMMT8khiDIyQYlYgxJrMG3TEf41XPD/GKwwZM20pRAH+NOZAwBojRqfFcbNExdv1DAo8f4gjoDHcQIQpA7yXg7klDECo/12hshAD0EpRg5TsbGP+Wg/2QOfoqOxtY3hvN4mcyRkoWrBD/K+B8flIEBAGADK0QAnqSjNIeMSL4jZlsEGYlGW0txZIxH8Igh4U4r2KAC1Ql0HYPipX4KkKoVVOhDeEJmfY/oLurFAEsJbKQdO" + ;
	"nE0EUIo/7a23E9BsQAXQuj/D6IOhQm7lD/Dzc2e6JQH3RCip4ERDwU0CoJA8LQOh/TnIbcgA8cQvj/Tw6JPDQW8j/nAKGKoX7xvUBCPxrAEw9PaAGA6xC2Q/B1d1A4hwzHGisMWIF+oUqmCAnkP4PB0xR2VAYVy0hLZDAAHyLiQ4tJDiwIwPwYkgBjkEOvIAZL2sQkNGRIAYcgBMhUCo2cWIsR/j5ZyYMoNz0TupB8p0TC8rkB5HQZkDov19hlSAI0JA/40kNNIQ1y5ThYCwFoP8MGUz9AiBEPy6IDzgFzvzSAAkrQhguN2M4GppB/AkAcA4QwcbkDyFfjMPLjSMiWAqiAN1iwBAKRGRlFAHgUAoEELt94vX3i3cQLRNo/xcNp0VowWriBjL3GsOkdKW5gB5OfjZEwCyMnCIwAIjWfwTj9QqMC9QoRbj/EkJK9jrZMZWyvlnLZdMu61Jjp4k4BwO5pECHNTA/QCIgB+mYIR/A9iyvcP8U9gxQ4sb/BhfFgxTBZCzerZwlXeD/FHQZmgUgpJACOEceGoETlWo6BgPQY91D/kkbgE27x5AR3kHxEOuNbb3QGSRbQQiMB/GLIAXkgBdSDkALngvAuCEN4MQ3DpDRJkY3GiUq19gEgd4sPzeQERHIhARvjfBFQfEr5CR0j5ISMkk30RkQBdSH8e5cgIgI")
	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 Inside <img>3</img>" Nothing Nothing to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

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_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_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
	Set ComDisplayRadial OLEexRadialItems to OLEexDisplayRadialRotated90
	Send ComEndUpdate
End_Procedure

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_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_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
	Set ComDisplayRadial OLEexRadialItems to OLEexDisplayRadialRotated270
	Send ComEndUpdate
End_Procedure

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_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_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
	Set ComDisplayRadial OLEexRadialItems to OLEexDisplayRadialRotated180
	Send ComEndUpdate
End_Procedure

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_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_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
	Set ComDisplayRadial OLEexRadialItems to OLEexDisplayRadialRotated
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComExpanded to True
	Set ComSubItemsSize to "48*dpi"
	Set ComPicturesPath to "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	Set ComRadialLineColor OLEexRadialHotItem to (RGB(128,128,128))
	Set ComRadialLineColor OLEexRadialHotSubItem to (RGB(128,128,128))
	Set ComRadialLineColor OLEexRadialHotFullItem 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 "" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComImage of hoItem OLEexRadialItems to "favorites.png"
			Set ComImage of hoItem OLEexRadialSubItems to "download.png"
		Send Destroy to hoItem
	Send Destroy to hoItems
End_Procedure

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

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

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

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

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

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

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

// 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

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

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

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

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

// 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

// 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

// 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

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

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

// 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

// 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

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

// 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

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

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

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

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

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

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

// 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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Procedure OnCreate
	Forward Send OnCreate
	Set ComHTMLPicture "logo" to "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images\favorites.png"
End_Procedure

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

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

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

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

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

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

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

// 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

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

// 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

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

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

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

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

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

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

Procedure OnCreate
	Forward Send OnCreate
	Showln "Version:" (ComVersion(Self))
End_Procedure

// 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

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

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

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

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

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

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

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

Procedure OnCreate
	Forward Send OnCreate
	Set ComAllowToggleExpand to False
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComExpanded to True
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComExpanded to True
	Set ComMinVisibleCount to 3
End_Procedure

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

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

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

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

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

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

Procedure OnCreate
	Forward Send OnCreate
	Set ComExpanded to True
	Set ComShadowColor to -1
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComBackColor to (RGB(240,240,249))
End_Procedure