local oRadialMenu,var_Items

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.BeginUpdate()
oRadialMenu.Expanded = true
oRadialMenu.ReplaceIcon("gAAAABgYACEHgUJFEEAAWhUJCEJEEJggEhMCYEXjUbjkJQECj8gj8hAEjkshYEpk8kf8ClsulsvAExmcvf83js5nU7nkCeEcn8boMaocXosCB9Hn09pkzcEuoL/fE+OkYB0gB9YhIHrddgVcr9aktZADAD8+P8CgIA==")
oRadialMenu.ReplaceIcon("C:\images\favicon.ico",0)
var_Items = oRadialMenu.Items
	var_Items.ToString = "Icon 0[img=0]"
	var_Items.Add("Icon 1",1)
	var_Items.Add("Icon Inside <img>3</img>")
oRadialMenu.EndUpdate()

/*
with (this.EXRADIALMENUACTIVEXCONTROL1.nativeObject)
	BrowseItem = class::nativeObject_BrowseItem
endwith
*/
// Notifies once the user browses for a new item.
function nativeObject_BrowseItem(Item)
	/* ParentCaption(-1) = Item.Caption(1) */
	/* SelectedIndex(3) =  Item.Index */
	/* ParentCaption(-1) = FormatABC("(A  lpad `00`) +`:`+ (B lpad `00`)",Item.Caption(1),0) */
	oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
return

/*
with (this.EXRADIALMENUACTIVEXCONTROL1.nativeObject)
	SelectItem = class::nativeObject_SelectItem
endwith
*/
// Notifies once the user selects an item.
function nativeObject_SelectItem(Item)
	/* SelectedIndex(3) =  Item.Index */
	/* ParentCaption(-1) = FormatABC("(A  lpad `00`) +`:`+ (B lpad `00`)",Item.Parent.Caption(1),Item.Caption(1)) */
	oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
return

local oRadialMenu

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.BeginUpdate()
oRadialMenu.AllowToggleExpand = false
oRadialMenu.Expanded = true
oRadialMenu.ToString = "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,1" &
	 +"9,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,4" &
	 +"3,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)"
oRadialMenu.Template = [DisplayCenter(1) = 0.1] // oRadialMenu.DisplayCenter(1) = 0.1
oRadialMenu.Template = [DisplayCenter(2) = 0.1] // oRadialMenu.DisplayCenter(2) = 0.1
oRadialMenu.ArrowImage = ""
oRadialMenu.Template = [RadialLineSize(5) = 1] // oRadialMenu.RadialLineSize(5) = 1
oRadialMenu.ParentSize = Str(32)
oRadialMenu.SubItemsSize = Str(0)
oRadialMenu.Template = [ParentCaption(-1) = FormatABC("(A  lpad `00`) +`:`+ (B lpad `00`)",0,0)] // oRadialMenu.ParentCaption(-1) = Str(oRadialMenu.FormatABC("(A  lpad `00`) +`:`+ (B lpad `00`)",0,0))
oRadialMenu.EndUpdate()

/*
with (this.EXRADIALMENUACTIVEXCONTROL1.nativeObject)
	MouseMove = class::nativeObject_MouseMove
endwith
*/
// Occurs when the user moves the mouse.
function nativeObject_MouseMove(Button, Shift, X, Y)
	oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
	oRadialMenu.ShowToolTip("new content","",null,"+8","+8")
return

local oRadialMenu

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject

/*
with (this.EXRADIALMENUACTIVEXCONTROL1.nativeObject)
	MouseMove = class::nativeObject_MouseMove
endwith
*/
// Occurs when the user moves the mouse.
function nativeObject_MouseMove(Button, Shift, X, Y)
	oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
	oRadialMenu.ShowToolTip("<null>","<null>",null,"+8","+8")
return

local oRadialMenu,var_Item,var_Item1,var_Items

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.DisplayAngle = -45
oRadialMenu.Expanded = true
var_Items = oRadialMenu.Items
	var_Items.ToString = "Item 0[ttp=tooltip's item][sttp=tooltip's subitem]"
	// var_Items.Add("Item 1").Tooltip(1) = "This is a bit of text that shown when user <b>hovers</b> the item"
	var_Item = var_Items.Add("Item 1")
	with (oRadialMenu)
		TemplateDef = [dim var_Item]
		TemplateDef = var_Item
		Template = [var_Item.Tooltip(1) = "This is a bit of text that shown when user <b>hovers</b> the item"]
	endwith
	var_Item1 = var_Items.Add("Item 2")
		// var_Item1.Tooltip(1) = "This is a bit of text that shown when user hovers the item"
		with (oRadialMenu)
			TemplateDef = [dim var_Item1]
			TemplateDef = var_Item1
			Template = [var_Item1.Tooltip(1) = "This is a bit of text that shown when user hovers the item"]
		endwith
		// var_Item1.Tooltip(2) = "This is a bit of text that shown when user hovers the sub-item"
		with (oRadialMenu)
			TemplateDef = [dim var_Item1]
			TemplateDef = var_Item1
			Template = [var_Item1.Tooltip(2) = "This is a bit of text that shown when user hovers the sub-item"]
		endwith

local oRadialMenu,var_Items

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.BeginUpdate()
oRadialMenu.Expanded = true
oRadialMenu.ImageSize = 32
oRadialMenu.Images("gBJJgBggAAQAAgAEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbmiAQD/jL/r1fYFlsFctFptVrtltt0qsdgrz/srAs8NsNxut3t99v1/wGBwQAuNhwlks17veGjFiueLweRyWTymVm+FxsTw90xOdu2Ks2Mht60OW02n1GprWYiUTh+b0Gfz2c2W1u+30l21W73m93021mu4UO2Gz2O05HHyF4xu5vm/6HR6WB4PD61yxG25XG7na0vMhvL6fj8nlqXV6/p4ve9nX7ft5eO7PP831+33rtzsPp/mvx7uuS77bus97kLy/T8QTBUFpM9D+we7D3QA47RQC9rRQZDMNQTCEOs0/UQK/AkJxJC7Gw3FEUvLD0HsKh7Fv8r7NxG+EStvFUcRy3sWOs50YIdH8DRDCUattDEdSRJLIx4h64rizUXtDKLdSmsEYwjGkLRvJUuS6v0WRch0nyq1sgzNKUgNDIcsyPL03TerMWv1KsxuJMk7zTKk8ytPbWs3GbXxPOFB0Iqjrx9ND5NdM89QNPFHT7QK8QQ8FC0tS6ktdJy5yhPc6uvMtE0ZPlIQNQVMVRVNM0/T8g1a2c2UfUc/VPVVbVuobcU4186V24VQts61gVJWda1xY9kKDB6903EVeU8udPonWdJPpZNr2wm1F1g4bW2bRVh2/YUyWNb" ;
	 +"NzXOl1QSqvdY0jd0ttbX9y3Rel6pNAdn1M8F1Xe+KVXhe2A4FdMK4IzLhyDNuB4XhilXxeVK4biWJqXgGKYvjGM41jeOY7jycIqHyVZEjqPpCjKSJIkyDpxSWP5fmCZIC")
oRadialMenu.Images("gBJJgBggAAQAAgAEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbmiAkEar0gYFjrlls1ntFptVrllhjFeAFjYFtuFytl3vF5vV7vkmt1+sVku12lduwl9xGJxWLxk3v8Zh9vwNzweCy1zwt1smNzmdz2frePjGRyIAzWUy9x1OVzEqw2b0Gx2Wz2k10USf+43Wmyeq1G/33B1nBzO92vH5HJxO30kO3Wl0/C1fT4HDw8p6/K7Xb7lS5nO5u58OS6XV1Pj63U4kf6Pd93v+E57/i8H1+n38np82tlPo9Tstu+MBQHAjJK+yD7OfBLxt5BTcv08qWQg7MCwrC0KvHDMFwTBsOrg/z9wjCbYQvEsTPfDT8RS3ivucwjnQ8kEQRE/8SRPG8cNrFcVte4CJOJFzNrhBsZxG/kcyRJLOR3BK3Lc0sgsxKLRwezcYSHD8EwhJUuS6xEmNyv7nSfKcfxfKspTRKjiSxGUtRtL04zks8eSHKcyNzM0rTVPU0yBPkrq/LM8znQtDKy8cez/FjdTPRdHUhPdFsBQ9K0sqTIydQc1rtPEHU5SVIz9UVL1LUyo09T1HVU8831HUNYT9U9Z1op9PT7RkGSmu1dUBXz11rYNhKRFdOrhW872PTbI1JH9h2faCg2ZVr8R/TSQTFNVr0/XFo29b6cV7CMZ27M" ;
	 +"sYJVBlwXVdabShPl0Q5c133Zel6qxclz3tfV9qvdN+X/gGA4FgeCYLg2D4RhLFoqHyVYajqPpCjKSJIkyD3C+1CJYiaX44lx/nhfKVn+cAf41kZgAfk90EAAeVv60aXn8jAfpefiMA+l58IwA6XngjAHpecGcaFoiXaGAGc6PoyW6RpWm6YlmnaLpOqD/q2fIxq6XZuAGtpbruvpZsOZIRl6TH+RgD7OjSHbXjp/mftkEZFeG6pSgIA==")
var_Items = oRadialMenu.Items
	var_Items.Add("Icon 32-bit<br><c><img>1</img>")
	var_Items.Add("Icon 4-bit<br><c><img>2</img>")
oRadialMenu.EndUpdate()

local oRadialMenu,var_Items

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.BeginUpdate()
oRadialMenu.Expanded = true
oRadialMenu.ImageSize = 32
oRadialMenu.Images("gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m0mf8ZnMYncNnU/nlAn1BolDo09pFCpNFpdGm9PqE0f6Aqk9qNXrFZrVbrldr1fsFXidjslls1ntFptVroVht1UQFNptuul1u13vF5vViidKpVqv1MwFMwMSh9tvc0uFynV9nmLxORyWTr1VnWLYGZq2Uzk8tef0Gh0VnxGdAGQwmeh+ZYD/1mM02x2WmyFV19KzGa2d5seFuVm31/su+wdOxOoo+N1ea1/FqeW3fR6WV6E+23M7Gt3HX7XTrej8Hh8XDot15G/5et5sPkEN9uu7Ow73z+kx8997nw9Xx29M3LuvqmTetS5LVLI4jQODA0BuMrTzuEhzXvWhz3vez0FtIx7qwDDjpvu4b8wk/kRwApD/s3DrDPHFcWLY8qbwewT0v0scKwuiSiIcz0Tv7AsUx+zkPrQ064xE/cjxpI0kt0/z8q0+UoQVH0owJKkVQZK0sJnGKjonJSzPenLDsPHD3OhHUrwzMy4yBNq7yEtkQxJJckSVJSlR6m8Wz3PjyTTPjSoxLikS8+K1S+wyJObG6dzRCk5RLQM3Umq84NDIk6UzCaxztOceufIsmJhLUqudBEhyrCFCT9KDgVTJtQyRQ9DLTREywHR0XTXFFKV6mFLPBTFOzrUVVrJYcaMvDcBT7ZtAQxZ9dp1ZDFrNL9a1otE71vTj4sLX1wJXYDx0xa" ;
	 +"1PW8plkU+qNSSm5UD1fLtWVVV0/z3d65SVHjNVnSN4qRa8I2zNVQV5cNw2cw7LYWuNzWJh9NXRBqpYTirxWUuLF40quN4zjmPzZf8pSzjuC5LasZ03h1kwJg+XXs8TIRnROGLPdVz38p921becZM/kd6xpfeIX06sx5PkGTaS86qUTMcdSxgObYHoLkZfXsW6HMWBO1mea5Xm+cz1i2yNEy7H7Q920qntcbYno6QOfM257lutladqG8zIhuVLLqWwWLSWrx/mOkr7mfEa5rac6/v058EmOd3pnt3WhNHK3ly9c0ZRvO85taXbhumm7tDW8cXK/J8Vvtj6pymDcG+rRZlR+G8TZPbtvr02KrlfIVHsvg11tm1eL4nj7d5EXpb0XS7pvXT810nSWnflsVl6+WR92MUrX2mhd7p/ccUw3dfJ29MXLvfYcix3MWNyVS9f1UTaX8NUYnscxbv8XoyyvhQr2FtOuXgtJ7iASztaMMyh88DXxwPfNA8n7Rl2PCgswRFjv1ftGdI9B8Tmm/uOgE1OEaYGkrfgOd5GrhnxGvgYaR3JuoYtdfI8srEF4cQFSy0FJ8HXUQffqyFmEIXWwlLKyVZDGH2QpMowUicL4IxQgJBCGUDoIwaS2/Zj0W2lRcaRF6LUXYxRficiuLDzIfOndS6Zup53WLdiMWSJDj2RRMPnEE3qM4XuHdW9ZA8M3FrrQcpBiKSGtNhfArGQqmVBqnLmgKNL/UsNQem3GSsQo4I0LVHNiBvmrR2UoWu" &
	 +"F0LG9Sji4759ENinvJlY22VzxpWywle8qWUtUWxnefD9vUIFiyUktL+AzMIntJiSlWT8oGXSZjfAuML5TNMlOAzOVSMHPrcmq5ua02ZsTbc9NpRqFl/w8eYeE3yn4PTnf2hqLkxUpzHmRAeGEfTWyoitFU9EOityxlpPufU/ZZz+lsmGM0046vbjcxJ/5PJ2FyndO+hyqpnM5njFRsUKDpw5ow5ovbAD4xkoWduIVD6RE2PkSt+EAXUUEPrGSlkYaWxgphGOlyyy3tGkQtudtNKR07ibAB9alJDs4YLTdOdQWiTPp0XijknZjVJp5U+i8uD6UAn5P+q1Aar1VeMcemzgVYRLqhWGsReEwzXm7Nys1aZvVqUdOAzlDKnVjrlXMvNVK7VZrvVivVYC7sFrpXQioPiVWCI6R8kJGSSEkJMAIqDe6/2PshZGA5AQ=")
var_Items = oRadialMenu.Items
	var_Items.ToString = "Icon 0[img=0]"
	var_Items.Add("Icon 1",1)
	var_Items.Add("Icon Inside <img>3</img>")
oRadialMenu.EndUpdate()

local oRadialMenu,var_Items

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.BeginUpdate()
oRadialMenu.Expanded = true
oRadialMenu.ImageSize = 16
oRadialMenu.Images("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/zxTPbKWxCAwU28XZi3CwRznwf" ;
	 +"B/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/gNAaQ0VQqjaw6js55" &
	 +"z7oXRDylMP9zbQSxjzAFK1AESTWljSq16Swvxfj/CKMgZA/xfLiD/FMf4S4GwPHCOF9LoR/hbHAsUEbdlmmIAekYPr/Dmi4XgnEUR1BtDaH+OFGQoZwL4FOKcwQoxSCkH/J0VQ/2xNjCivwVQrxXmCDuT4eBGQGEsCIEQDg+TnwxAgP8XovWKBQCg7o6Qg2RCibNKZpzIGQjrokP8dlFYeDvH+qQNw/wMUdEbLA4ZYw8iuk6X9+oVIBD+GBLZ+A9B6MYHaO0pTIENIyC9RMMT8khiDIyQYlYgxJrMG3TEf41XPD/GKwwZM20pRAH+NOZAwBojRqfFcbNExdv1DAo8f4gjoDHcQIQpA7yXg7klDECo/12hshAD0EpRg5TsbGP+Wg/2QOfoqOxtY3hvN4mcyRkoWrBD/K+B8flIEBAGADK0QAnqSjNIeMSL4jZlsEGYlGW0txZIxH8Igh4U4r2KAC1Ql0HYPipX4KkKoVVOhDeEJmfY/oLurFAEsJbKQdOnE0EUIo/7a23E9BsQAXQuj/D6IOhQm7lD/Dzc2e6JQH3RCip4ERDwU0CoJA8LQOh/TnIbcgA8cQvj/Tw6JPDQW8j/nAKGKoX7xvUBCPxrAEw9PaAGA6xC2Q/B1d1A4hwzHGisMWIF+oUqmCAnkP4PB0xR2VAYVy0hLZDAAHyLiQ4tJDiwIwPwYkgBjkEOvIAZL2sQkNGRIAYcgBMhUCo2cWIsR/j5ZyYMoNz0TupB8p0TC8rkB5HQZkDov19hlSA" &
	 +"I0JA/40kNNIQ1y5ThYCwFoP8MGUz9AiBEPy6IDzgFzvzSAAkrQhguN2M4GppB/AkAcA4QwcbkDyFfjMPLjSMiWAqiAN1iwBAKRGRlFAHgUAoEELt94vX3i3cQLRNo/xcNp0VowWriBjL3GsOkdKW5gB5OfjZEwCyMnCIwAIjWfwTj9QqMC9QoRbj/EkJK9jrZMZWyvlnLZdMu61Jjp4k4BwO5pECHNTA/QCIgB+mYIR/A9iyvcP8U9gxQ4sb/BhfFgxTBZCzerZwlXeD/FHQZmgUgpJACOEceGoETlWo6BgPQY91D/kkbgE27x5AR3kHxEOuNbb3QGSRbQQiMB/GLIAXkgBdSDkALngvAuCEN4MQ3DpDRJkY3GiUq19gEgd4sPzeQERHIhARvjfBFQfEr5CR0j5ISMkk30RkQBdSH8e5cgIgI")
var_Items = oRadialMenu.Items
	var_Items.ToString = "Icon 0[img=0]"
	var_Items.Add("Icon 1",1)
	var_Items.Add("Icon Inside <img>3</img>")
oRadialMenu.EndUpdate()

local oRadialMenu,var_Items,var_Items1,var_Items2,var_Items3,var_Items4,var_Items5,var_Items6,var_Items7,var_Items8

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.BeginUpdate()
oRadialMenu.Expanded = true
oRadialMenu.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oRadialMenu.Template = [HTMLPicture("arrow") = "arrow.png"] // oRadialMenu.HTMLPicture("arrow") = "arrow.png"
oRadialMenu.SubItemsBackColor = 0xbebebe
oRadialMenu.ShadowColor = oRadialMenu.SubItemsBackColor
oRadialMenu.Template = [RadialLineColor(6) = SubItemsBackColor] // oRadialMenu.RadialLineColor(6) = oRadialMenu.SubItemsBackColor
oRadialMenu.Template = [RadialLineColor(5) = -1] // oRadialMenu.RadialLineColor(5) = -1
var_Items = oRadialMenu.Items
	// var_Items.Add("Foreground","color_line.png").Items.ToString = "Foreground"
	var_Items1 = var_Items.Add("Foreground","color_line.png").Items
	with (oRadialMenu)
		TemplateDef = [dim var_Items1]
		TemplateDef = var_Items1
		Template = [var_Items1.ToString = "Foreground"]
	endwith
	// var_Items.Add("Background","color_fill.png").Items.ToString = "Background"
	var_Items2 = var_Items.Add("Background","color_fill.png").Items
	with (oRadialMenu)
		TemplateDef = [dim var_Items2]
		TemplateDef = var_Items2
		Template = [var_Items2.ToString = "Background"]
	endwith
	// var_Items.Add("Font","format_font_size_less.png").Items.ToString = "Font"
	var_Items3 = var_Items.Add("Font","format_font_size_less.png").Items
	with (oRadialMenu)
		TemplateDef = [dim var_Items3]
		TemplateDef = var_Items3
		Template = [var_Items3.ToString = "Font"]
	endwith
	// var_Items.Add("Undo","edit_undo.png").Items.ToString = "Undo"
	var_Items4 = var_Items.Add("Undo","edit_undo.png").Items
	with (oRadialMenu)
		TemplateDef = [dim var_Items4]
		TemplateDef = var_Items4
		Template = [var_Items4.ToString = "Undo"]
	endwith
	// var_Items.Add("Redo","edit_redo.png").Items.ToString = "Redo"
	var_Items5 = var_Items.Add("Redo","edit_redo.png").Items
	with (oRadialMenu)
		TemplateDef = [dim var_Items5]
		TemplateDef = var_Items5
		Template = [var_Items5.ToString = "Redo"]
	endwith
	// var_Items.Add("Copy","edit_copy.png").Items.ToString = "Copy"
	var_Items6 = var_Items.Add("Copy","edit_copy.png").Items
	with (oRadialMenu)
		TemplateDef = [dim var_Items6]
		TemplateDef = var_Items6
		Template = [var_Items6.ToString = "Copy"]
	endwith
	// var_Items.Add("List","fileview_text.png").Items.ToString = "List"
	var_Items7 = var_Items.Add("List","fileview_text.png").Items
	with (oRadialMenu)
		TemplateDef = [dim var_Items7]
		TemplateDef = var_Items7
		Template = [var_Items7.ToString = "List"]
	endwith
	// var_Items.Add("Tag","checkmark_korganizer.png").Items.ToString = "Tag"
	var_Items8 = var_Items.Add("Tag","checkmark_korganizer.png").Items
	with (oRadialMenu)
		TemplateDef = [dim var_Items8]
		TemplateDef = var_Items8
		Template = [var_Items8.ToString = "Tag"]
	endwith
oRadialMenu.Template = [DisplayRadial(1) = 4] // oRadialMenu.DisplayRadial(1) = 4
oRadialMenu.EndUpdate()

local oRadialMenu,var_Items,var_Items1,var_Items2,var_Items3,var_Items4,var_Items5,var_Items6,var_Items7,var_Items8

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.BeginUpdate()
oRadialMenu.Expanded = true
oRadialMenu.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oRadialMenu.Template = [HTMLPicture("arrow") = "arrow.png"] // oRadialMenu.HTMLPicture("arrow") = "arrow.png"
oRadialMenu.SubItemsBackColor = 0xbebebe
oRadialMenu.ShadowColor = oRadialMenu.SubItemsBackColor
oRadialMenu.Template = [RadialLineColor(6) = SubItemsBackColor] // oRadialMenu.RadialLineColor(6) = oRadialMenu.SubItemsBackColor
oRadialMenu.Template = [RadialLineColor(5) = -1] // oRadialMenu.RadialLineColor(5) = -1
var_Items = oRadialMenu.Items
	// var_Items.Add("Foreground","color_line.png").Items.ToString = "Foreground"
	var_Items1 = var_Items.Add("Foreground","color_line.png").Items
	with (oRadialMenu)
		TemplateDef = [dim var_Items1]
		TemplateDef = var_Items1
		Template = [var_Items1.ToString = "Foreground"]
	endwith
	// var_Items.Add("Background","color_fill.png").Items.ToString = "Background"
	var_Items2 = var_Items.Add("Background","color_fill.png").Items
	with (oRadialMenu)
		TemplateDef = [dim var_Items2]
		TemplateDef = var_Items2
		Template = [var_Items2.ToString = "Background"]
	endwith
	// var_Items.Add("Font","format_font_size_less.png").Items.ToString = "Font"
	var_Items3 = var_Items.Add("Font","format_font_size_less.png").Items
	with (oRadialMenu)
		TemplateDef = [dim var_Items3]
		TemplateDef = var_Items3
		Template = [var_Items3.ToString = "Font"]
	endwith
	// var_Items.Add("Undo","edit_undo.png").Items.ToString = "Undo"
	var_Items4 = var_Items.Add("Undo","edit_undo.png").Items
	with (oRadialMenu)
		TemplateDef = [dim var_Items4]
		TemplateDef = var_Items4
		Template = [var_Items4.ToString = "Undo"]
	endwith
	// var_Items.Add("Redo","edit_redo.png").Items.ToString = "Redo"
	var_Items5 = var_Items.Add("Redo","edit_redo.png").Items
	with (oRadialMenu)
		TemplateDef = [dim var_Items5]
		TemplateDef = var_Items5
		Template = [var_Items5.ToString = "Redo"]
	endwith
	// var_Items.Add("Copy","edit_copy.png").Items.ToString = "Copy"
	var_Items6 = var_Items.Add("Copy","edit_copy.png").Items
	with (oRadialMenu)
		TemplateDef = [dim var_Items6]
		TemplateDef = var_Items6
		Template = [var_Items6.ToString = "Copy"]
	endwith
	// var_Items.Add("List","fileview_text.png").Items.ToString = "List"
	var_Items7 = var_Items.Add("List","fileview_text.png").Items
	with (oRadialMenu)
		TemplateDef = [dim var_Items7]
		TemplateDef = var_Items7
		Template = [var_Items7.ToString = "List"]
	endwith
	// var_Items.Add("Tag","checkmark_korganizer.png").Items.ToString = "Tag"
	var_Items8 = var_Items.Add("Tag","checkmark_korganizer.png").Items
	with (oRadialMenu)
		TemplateDef = [dim var_Items8]
		TemplateDef = var_Items8
		Template = [var_Items8.ToString = "Tag"]
	endwith
oRadialMenu.Template = [DisplayRadial(1) = 3] // oRadialMenu.DisplayRadial(1) = 3
oRadialMenu.EndUpdate()

local oRadialMenu,var_Items,var_Items1,var_Items2,var_Items3,var_Items4,var_Items5,var_Items6,var_Items7,var_Items8

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.BeginUpdate()
oRadialMenu.Expanded = true
oRadialMenu.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oRadialMenu.Template = [HTMLPicture("arrow") = "arrow.png"] // oRadialMenu.HTMLPicture("arrow") = "arrow.png"
oRadialMenu.SubItemsBackColor = 0xbebebe
oRadialMenu.ShadowColor = oRadialMenu.SubItemsBackColor
oRadialMenu.Template = [RadialLineColor(6) = SubItemsBackColor] // oRadialMenu.RadialLineColor(6) = oRadialMenu.SubItemsBackColor
oRadialMenu.Template = [RadialLineColor(5) = -1] // oRadialMenu.RadialLineColor(5) = -1
var_Items = oRadialMenu.Items
	// var_Items.Add("Foreground","color_line.png").Items.ToString = "Foreground"
	var_Items1 = var_Items.Add("Foreground","color_line.png").Items
	with (oRadialMenu)
		TemplateDef = [dim var_Items1]
		TemplateDef = var_Items1
		Template = [var_Items1.ToString = "Foreground"]
	endwith
	// var_Items.Add("Background","color_fill.png").Items.ToString = "Background"
	var_Items2 = var_Items.Add("Background","color_fill.png").Items
	with (oRadialMenu)
		TemplateDef = [dim var_Items2]
		TemplateDef = var_Items2
		Template = [var_Items2.ToString = "Background"]
	endwith
	// var_Items.Add("Font","format_font_size_less.png").Items.ToString = "Font"
	var_Items3 = var_Items.Add("Font","format_font_size_less.png").Items
	with (oRadialMenu)
		TemplateDef = [dim var_Items3]
		TemplateDef = var_Items3
		Template = [var_Items3.ToString = "Font"]
	endwith
	// var_Items.Add("Undo","edit_undo.png").Items.ToString = "Undo"
	var_Items4 = var_Items.Add("Undo","edit_undo.png").Items
	with (oRadialMenu)
		TemplateDef = [dim var_Items4]
		TemplateDef = var_Items4
		Template = [var_Items4.ToString = "Undo"]
	endwith
	// var_Items.Add("Redo","edit_redo.png").Items.ToString = "Redo"
	var_Items5 = var_Items.Add("Redo","edit_redo.png").Items
	with (oRadialMenu)
		TemplateDef = [dim var_Items5]
		TemplateDef = var_Items5
		Template = [var_Items5.ToString = "Redo"]
	endwith
	// var_Items.Add("Copy","edit_copy.png").Items.ToString = "Copy"
	var_Items6 = var_Items.Add("Copy","edit_copy.png").Items
	with (oRadialMenu)
		TemplateDef = [dim var_Items6]
		TemplateDef = var_Items6
		Template = [var_Items6.ToString = "Copy"]
	endwith
	// var_Items.Add("List","fileview_text.png").Items.ToString = "List"
	var_Items7 = var_Items.Add("List","fileview_text.png").Items
	with (oRadialMenu)
		TemplateDef = [dim var_Items7]
		TemplateDef = var_Items7
		Template = [var_Items7.ToString = "List"]
	endwith
	// var_Items.Add("Tag","checkmark_korganizer.png").Items.ToString = "Tag"
	var_Items8 = var_Items.Add("Tag","checkmark_korganizer.png").Items
	with (oRadialMenu)
		TemplateDef = [dim var_Items8]
		TemplateDef = var_Items8
		Template = [var_Items8.ToString = "Tag"]
	endwith
oRadialMenu.Template = [DisplayRadial(1) = 2] // oRadialMenu.DisplayRadial(1) = 2
oRadialMenu.EndUpdate()

local oRadialMenu,var_Items,var_Items1,var_Items2,var_Items3,var_Items4,var_Items5,var_Items6,var_Items7,var_Items8

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.BeginUpdate()
oRadialMenu.Expanded = true
oRadialMenu.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oRadialMenu.Template = [HTMLPicture("arrow") = "arrow.png"] // oRadialMenu.HTMLPicture("arrow") = "arrow.png"
oRadialMenu.SubItemsBackColor = 0xbebebe
oRadialMenu.ShadowColor = oRadialMenu.SubItemsBackColor
oRadialMenu.Template = [RadialLineColor(6) = SubItemsBackColor] // oRadialMenu.RadialLineColor(6) = oRadialMenu.SubItemsBackColor
oRadialMenu.Template = [RadialLineColor(5) = -1] // oRadialMenu.RadialLineColor(5) = -1
var_Items = oRadialMenu.Items
	// var_Items.Add("Foreground","color_line.png").Items.ToString = "Foreground"
	var_Items1 = var_Items.Add("Foreground","color_line.png").Items
	with (oRadialMenu)
		TemplateDef = [dim var_Items1]
		TemplateDef = var_Items1
		Template = [var_Items1.ToString = "Foreground"]
	endwith
	// var_Items.Add("Background","color_fill.png").Items.ToString = "Background"
	var_Items2 = var_Items.Add("Background","color_fill.png").Items
	with (oRadialMenu)
		TemplateDef = [dim var_Items2]
		TemplateDef = var_Items2
		Template = [var_Items2.ToString = "Background"]
	endwith
	// var_Items.Add("Font","format_font_size_less.png").Items.ToString = "Font"
	var_Items3 = var_Items.Add("Font","format_font_size_less.png").Items
	with (oRadialMenu)
		TemplateDef = [dim var_Items3]
		TemplateDef = var_Items3
		Template = [var_Items3.ToString = "Font"]
	endwith
	// var_Items.Add("Undo","edit_undo.png").Items.ToString = "Undo"
	var_Items4 = var_Items.Add("Undo","edit_undo.png").Items
	with (oRadialMenu)
		TemplateDef = [dim var_Items4]
		TemplateDef = var_Items4
		Template = [var_Items4.ToString = "Undo"]
	endwith
	// var_Items.Add("Redo","edit_redo.png").Items.ToString = "Redo"
	var_Items5 = var_Items.Add("Redo","edit_redo.png").Items
	with (oRadialMenu)
		TemplateDef = [dim var_Items5]
		TemplateDef = var_Items5
		Template = [var_Items5.ToString = "Redo"]
	endwith
	// var_Items.Add("Copy","edit_copy.png").Items.ToString = "Copy"
	var_Items6 = var_Items.Add("Copy","edit_copy.png").Items
	with (oRadialMenu)
		TemplateDef = [dim var_Items6]
		TemplateDef = var_Items6
		Template = [var_Items6.ToString = "Copy"]
	endwith
	// var_Items.Add("List","fileview_text.png").Items.ToString = "List"
	var_Items7 = var_Items.Add("List","fileview_text.png").Items
	with (oRadialMenu)
		TemplateDef = [dim var_Items7]
		TemplateDef = var_Items7
		Template = [var_Items7.ToString = "List"]
	endwith
	// var_Items.Add("Tag","checkmark_korganizer.png").Items.ToString = "Tag"
	var_Items8 = var_Items.Add("Tag","checkmark_korganizer.png").Items
	with (oRadialMenu)
		TemplateDef = [dim var_Items8]
		TemplateDef = var_Items8
		Template = [var_Items8.ToString = "Tag"]
	endwith
oRadialMenu.Template = [DisplayRadial(1) = 1] // oRadialMenu.DisplayRadial(1) = 1
oRadialMenu.EndUpdate()

local oRadialMenu,var_Item,var_Items

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.Expanded = true
oRadialMenu.SubItemsSize = "48*dpi"
oRadialMenu.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oRadialMenu.Template = [RadialLineColor(9) = 8421504] // oRadialMenu.RadialLineColor(9) = 0x808080
oRadialMenu.Template = [RadialLineColor(10) = 8421504] // oRadialMenu.RadialLineColor(10) = 0x808080
oRadialMenu.Template = [RadialLineColor(11) = -1] // oRadialMenu.RadialLineColor(11) = -1
var_Items = oRadialMenu.Items
	var_Item = var_Items.Add("")
		// var_Item.Image(1) = "favorites.png"
		with (oRadialMenu)
			TemplateDef = [dim var_Item]
			TemplateDef = var_Item
			Template = [var_Item.Image(1) = "favorites.png"]
		endwith
		// var_Item.Image(2) = "download.png"
		with (oRadialMenu)
			TemplateDef = [dim var_Item]
			TemplateDef = var_Item
			Template = [var_Item.Image(2) = "download.png"]
		endwith

local oRadialMenu

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

local oRadialMenu,var_Item,var_Items

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.Expanded = true
oRadialMenu.ShadowColor = -1
oRadialMenu.InflateItems = "-8*dpi"
oRadialMenu.InflateCustom = oRadialMenu.InflateItems
oRadialMenu.ItemsBackColor = 0xf0f0f0
oRadialMenu.Template = [RadialLineColor(4) = 0] // oRadialMenu.RadialLineColor(4) = 0x0
oRadialMenu.Template = [RadialLineStyle(4) = 2] // oRadialMenu.RadialLineStyle(4) = 2
oRadialMenu.Template = [RadialLineSize(4) = 3] // oRadialMenu.RadialLineSize(4) = 3
var_Items = oRadialMenu.Items
	var_Item = var_Items.Add("Slider")
		var_Item.BrowseType = 2
		var_Item.BrowseCustomType = 16
		// var_Item.BrowseCustom(9) = 35
		with (oRadialMenu)
			TemplateDef = [dim var_Item]
			TemplateDef = var_Item
			Template = [var_Item.BrowseCustom(9) = 35]
		endwith
oRadialMenu.BrowseItem = oRadialMenu.Items.Item("Slider")

local oRadialMenu,var_Item

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.BeginUpdate()
oRadialMenu.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oRadialMenu.Expanded = true
oRadialMenu.InflateCustom = "-4 * dpi"
oRadialMenu.Template = [RadialLineColor(4) = 0] // oRadialMenu.RadialLineColor(4) = 0x0
oRadialMenu.Template = [RadialLineSize(4) = 3] // oRadialMenu.RadialLineSize(4) = 3
oRadialMenu.Template = [RadialLineAlpha(4) = 128] // oRadialMenu.RadialLineAlpha(4) = 128
oRadialMenu.CustomPicture = "Background\frame.png"
var_Item = oRadialMenu.Root
	var_Item.BrowseType = 2
	var_Item.BrowseCustomType = 16
	// var_Item.BrowseCustom(9) = 25
	with (oRadialMenu)
		TemplateDef = [dim var_Item]
		TemplateDef = var_Item
		Template = [var_Item.BrowseCustom(9) = 25]
	endwith
oRadialMenu.Refresh()
oRadialMenu.EndUpdate()

local oRadialMenu,var_Item,var_Items

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.Expanded = true
oRadialMenu.ShadowColor = -1
oRadialMenu.InflateItems = "-8*dpi"
oRadialMenu.InflateCustom = oRadialMenu.InflateItems
oRadialMenu.ItemsBackColor = 0xf0f0f0
oRadialMenu.Template = [RadialLineColor(4) = 0] // oRadialMenu.RadialLineColor(4) = 0x0
oRadialMenu.Template = [RadialLineStyle(4) = 2] // oRadialMenu.RadialLineStyle(4) = 2
oRadialMenu.Template = [RadialLineSize(4) = 3] // oRadialMenu.RadialLineSize(4) = 3
var_Items = oRadialMenu.Items
	var_Item = var_Items.Add("Slider")
		var_Item.BrowseType = 2
		var_Item.BrowseCustomType = 16
oRadialMenu.BrowseItem = oRadialMenu.Items.Item("Slider")

local oRadialMenu

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.BeginUpdate()
oRadialMenu.Expanded = true
oRadialMenu.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oRadialMenu.Template = [HTMLPicture("arrow") = "arrow.png"] // oRadialMenu.HTMLPicture("arrow") = "arrow.png"
oRadialMenu.Expanded = true
oRadialMenu.Items.ToString = "Item 1(1,2),Item 2(1,2),Item 3(1,2),Item 4(1,2),Item 5(1,2),Item 6(1,2),Item 7(1,2),Item 8(1,2)"
oRadialMenu.Template = [DisplayRadial(1) = 1] // oRadialMenu.DisplayRadial(1) = 1
oRadialMenu.Template = [DisplayCenter(1) = 0.05] // oRadialMenu.DisplayCenter(1) = 0.05
oRadialMenu.EndUpdate()

local oRadialMenu

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.BeginUpdate()
oRadialMenu.Expanded = true
oRadialMenu.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oRadialMenu.Template = [HTMLPicture("arrow") = "arrowu.png"] // oRadialMenu.HTMLPicture("arrow") = "arrowu.png"
oRadialMenu.DisplayArrow = 1
oRadialMenu.Template = [DisplayCenterArrow(1) = 0] // oRadialMenu.DisplayCenterArrow(1) = 0
oRadialMenu.Expanded = true
oRadialMenu.Items.ToString = "Item 1(1,2),Item 2(1,2),Item 3(1,2),Item 4(1,2),Item 5(1,2),Item 6(1,2),Item 7(1,2),Item 8(1,2)"
oRadialMenu.EndUpdate()

local oRadialMenu

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.BeginUpdate()
oRadialMenu.Expanded = true
oRadialMenu.DisplayArrow = 1
oRadialMenu.Expanded = true
oRadialMenu.Items.ToString = "Item 1(1,2),Item 2(1,2),Item 3(1,2),Item 4(1,2),Item 5(1,2),Item 6(1,2),Item 7(1,2),Item 8(1,2)"
oRadialMenu.EndUpdate()

/*
with (this.EXRADIALMENUACTIVEXCONTROL1.nativeObject)
	MouseMove = class::nativeObject_MouseMove
endwith
*/
// Occurs when the user moves the mouse.
function nativeObject_MouseMove(Button, Shift, X, Y)
	oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
	? "ParentOnPoint " 
	? Str(oRadialMenu.ParentOnPoint(-1,-1)) 
return

local oRadialMenu

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.Expanded = true

local oRadialMenu,var_Items

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.BeginUpdate()
oRadialMenu.AllowToggleExpand = false
oRadialMenu.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oRadialMenu.Template = [ItemsImageHeight(1) = "64*dpi"] // oRadialMenu.ItemsImageHeight(1) = "64*dpi"
oRadialMenu.Template = [ItemsImageWidth(1) = "64*dpi"] // oRadialMenu.ItemsImageWidth(1) = "64*dpi"
var_Items = oRadialMenu.Items
	var_Items.Add("","color_line.png")
	var_Items.Add("","color_fill.png")
	var_Items.Add("","format_font_size_less.png")
	var_Items.Add("","edit_undo.png")
	var_Items.Add("","edit_redo.png")
	var_Items.Add("","edit_copy.png")
	var_Items.Add("","fileview_text.png")
	var_Items.Add("","checkmark_korganizer.png")
oRadialMenu.EndUpdate()

local oRadialMenu

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

local oRadialMenu,var_Items

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.BeginUpdate()
oRadialMenu.Expanded = true
oRadialMenu.Items.ToString = "Item 1(1,2),Item 2(1,2),Item 3(1,2),Item 4(1,2),Item 5(1,2),Item 6(1,2),Item 7(1,2),Item 8(1,2)"
// oRadialMenu.Items.Item(0).BackColor(3) = 0xf0f0f0
var_Items = oRadialMenu.Items.Item(0)
with (oRadialMenu)
	TemplateDef = [dim var_Items]
	TemplateDef = var_Items
	Template = [var_Items.BackColor(3) = 15790320]
endwith
oRadialMenu.Template = [DisplayCenter(1) = 0.85] // oRadialMenu.DisplayCenter(1) = 0.85
oRadialMenu.EndUpdate()

local oRadialMenu

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.BeginUpdate()
oRadialMenu.Expanded = true
oRadialMenu.AllowBrowseItem = false
oRadialMenu.Items.ToString = "Item 1(1,2),Item 2(1,2),Item 3(1,2),Item 4(1,2),Item 5(1,2),Item 6(1,2),Item 7(1,2),Item 8(1,2)"
oRadialMenu.EndUpdate()

/*
with (this.EXRADIALMENUACTIVEXCONTROL1.nativeObject)
	MouseMove = class::nativeObject_MouseMove
endwith
*/
// Occurs when the user moves the mouse.
function nativeObject_MouseMove(Button, Shift, X, Y)
	oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
	? "Full-Item: " 
	? Str(oRadialMenu.ItemFromPoint(3,-1,-1)oRadialMenu.Caption(1)) 
	? "Item: " 
	? Str(oRadialMenu.ItemFromPoint(1,-1,-1)oRadialMenu.Caption(1)) 
	? "SubItem: " 
	? Str(oRadialMenu.ItemFromPoint(2,-1,-1)oRadialMenu.Caption(2)) 
return

local oRadialMenu

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.Expanded = true
oRadialMenu.Items.ToString = "Item 1[scap=sub item 1],Item 2[scap=sub item 2],Item 3[scap=sub item 3],Item 4[scap=sub item 4],Item 5[scap=sub item 5],Item 6[scap=sub item 6],Item 7[scap=sub item 7],Item 8[scap=sub item 8]"

/*
with (this.EXRADIALMENUACTIVEXCONTROL1.nativeObject)
	MouseMove = class::nativeObject_MouseMove
endwith
*/
// Occurs when the user moves the mouse.
function nativeObject_MouseMove(Button, Shift, X, Y)
	oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
	? "Full-Index: " 
	? Str(oRadialMenu.IndexFromPoint(3,-1,-1)) 
	? "Index: " 
	? Str(oRadialMenu.IndexFromPoint(1,-1,-1)) 
	? "Sub-Index: " 
	? Str(oRadialMenu.IndexFromPoint(2,-1,-1)) 
return

local oRadialMenu

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.Expanded = true

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

local oRadialMenu

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.BeginUpdate()
oRadialMenu.Template = [SelBackAlpha(1) = 32] // oRadialMenu.SelBackAlpha(1) = 32
oRadialMenu.Template = [SelBackAlpha(2) = 128] // oRadialMenu.SelBackAlpha(2) = 128
oRadialMenu.Template = [SelForeColor(3) = 0] // oRadialMenu.SelForeColor(3) = 0x0
oRadialMenu.Template = [RadialLineSize(8) = -1] // oRadialMenu.RadialLineSize(8) = -1
oRadialMenu.Template = [RadialLineAlpha(8) = 32] // oRadialMenu.RadialLineAlpha(8) = 32
oRadialMenu.Template = [RadialLineColor(11) = -1] // oRadialMenu.RadialLineColor(11) = -1
oRadialMenu.Expanded = true
oRadialMenu.Items.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
oRadialMenu.Template = [SelectedIndex(3) = 0] // oRadialMenu.SelectedIndex(3) = 0
oRadialMenu.EndUpdate()

local oRadialMenu,var_Items

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

local oRadialMenu

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

/*
with (this.EXRADIALMENUACTIVEXCONTROL1.nativeObject)
	RClick = class::nativeObject_RClick
endwith
*/
// Occurs once the user right clicks the control.
function nativeObject_RClick()
	oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
	oRadialMenu.BrowseItem = oRadialMenu.BrowseItem.Parent
return

local oRadialMenu,var_Item,var_Items,var_Items1

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.Expanded = true
oRadialMenu.DisplayArrow = 1
var_Items = oRadialMenu.Items
	var_Item = var_Items.Add("Volume")
		// var_Item.Caption(2) = "slider"
		with (oRadialMenu)
			TemplateDef = [dim var_Item]
			TemplateDef = var_Item
			Template = [var_Item.Caption(2) = "slider"]
		endwith
		var_Item.BrowseType = 2
		var_Item.BrowseCustomType = 16
	var_Items1 = var_Items.Add("Item").Items
		var_Items1.Add("Child 1")
		var_Items1.Add("Child 2")

/*
with (this.EXRADIALMENUACTIVEXCONTROL1.nativeObject)
	RClick = class::nativeObject_RClick
endwith
*/
// Occurs once the user right clicks the control.
function nativeObject_RClick()
	oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
	oRadialMenu.GoBack()
return

local oRadialMenu,var_Item,var_Items,var_Items1

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.Expanded = true
oRadialMenu.DisplayArrow = 1
var_Items = oRadialMenu.Items
	var_Item = var_Items.Add("Volume")
		// var_Item.Caption(2) = "slider"
		with (oRadialMenu)
			TemplateDef = [dim var_Item]
			TemplateDef = var_Item
			Template = [var_Item.Caption(2) = "slider"]
		endwith
		var_Item.BrowseType = 2
		var_Item.BrowseCustomType = 16
	var_Items1 = var_Items.Add("Item").Items
		var_Items1.Add("Child 1")
		var_Items1.Add("Child 2")

local oRadialMenu

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.BeginUpdate()
oRadialMenu.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oRadialMenu.PointerPicture = "pointer.png"
oRadialMenu.PointerPictureY = "y + (height-pheight)/2- 21*dpi"
oRadialMenu.PointerPictureX = "x + (width-pwidth)/2 + 1 * dpi"
oRadialMenu.AllowHotPointer = false
oRadialMenu.ParentSize = "36*dpi"
oRadialMenu.Template = [ParentImageHeight(-1) = "48*dpi"] // oRadialMenu.ParentImageHeight(-1) = "48*dpi"
oRadialMenu.Template = [ParentImageWidth(-1) = "48*dpi"] // oRadialMenu.ParentImageWidth(-1) = "48*dpi"
oRadialMenu.Template = [RadialLineSize(8) = -1] // oRadialMenu.RadialLineSize(8) = -1
oRadialMenu.Template = [RadialLineAlpha(8) = 32] // oRadialMenu.RadialLineAlpha(8) = 32
oRadialMenu.Template = [RadialLineColor(11) = -1] // oRadialMenu.RadialLineColor(11) = -1
oRadialMenu.Expanded = true
oRadialMenu.Items.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
oRadialMenu.PointerAngle = 12
oRadialMenu.EndUpdate()

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

local oRadialMenu

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.BeginUpdate()
oRadialMenu.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oRadialMenu.PointerPicture = "pointer.png"
oRadialMenu.Template = [SelBackAlpha(1) = 32] // oRadialMenu.SelBackAlpha(1) = 32
oRadialMenu.Template = [SelBackAlpha(2) = 128] // oRadialMenu.SelBackAlpha(2) = 128
oRadialMenu.PointerPictureY = "y + (height-pheight)/2- 21*dpi"
oRadialMenu.PointerPictureX = "x + (width-pwidth)/2 + 1 * dpi"
oRadialMenu.AllowHotPointer = false
oRadialMenu.Template = [SelForeColor(3) = 0] // oRadialMenu.SelForeColor(3) = 0x0
oRadialMenu.ParentSize = "36*dpi"
oRadialMenu.Template = [ParentImageHeight(-1) = "48*dpi"] // oRadialMenu.ParentImageHeight(-1) = "48*dpi"
oRadialMenu.Template = [ParentImageWidth(-1) = "48*dpi"] // oRadialMenu.ParentImageWidth(-1) = "48*dpi"
oRadialMenu.Template = [RadialLineSize(8) = -1] // oRadialMenu.RadialLineSize(8) = -1
oRadialMenu.Template = [RadialLineAlpha(8) = 32] // oRadialMenu.RadialLineAlpha(8) = 32
oRadialMenu.Template = [RadialLineColor(11) = -1] // oRadialMenu.RadialLineColor(11) = -1
oRadialMenu.Expanded = true
oRadialMenu.Items.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
oRadialMenu.PointerIndex = 0
oRadialMenu.Template = [SelectedIndex(3) = PointerIndex] // oRadialMenu.SelectedIndex(3) = oRadialMenu.PointerIndex
oRadialMenu.EndUpdate()

local oRadialMenu

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.BeginUpdate()
oRadialMenu.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oRadialMenu.PointerPicture = "pointer.png"
oRadialMenu.PointerIndex = -1
oRadialMenu.PointerPictureY = "y + (height-pheight)/2- 21*dpi"
oRadialMenu.PointerPictureX = "x + (width-pwidth)/2 + 1 * dpi"
oRadialMenu.AllowHotPointer = true
oRadialMenu.Template = [SelBackAlpha(3) = 128] // oRadialMenu.SelBackAlpha(3) = 128
oRadialMenu.Template = [SelForeColor(3) = 0] // oRadialMenu.SelForeColor(3) = 0x0
oRadialMenu.ParentSize = "36*dpi"
oRadialMenu.Template = [ParentImageHeight(-1) = "48*dpi"] // oRadialMenu.ParentImageHeight(-1) = "48*dpi"
oRadialMenu.Template = [ParentImageWidth(-1) = "48*dpi"] // oRadialMenu.ParentImageWidth(-1) = "48*dpi"
oRadialMenu.Template = [RadialLineSize(8) = -1] // oRadialMenu.RadialLineSize(8) = -1
oRadialMenu.Template = [RadialLineAlpha(8) = 32] // oRadialMenu.RadialLineAlpha(8) = 32
oRadialMenu.Template = [RadialLineColor(11) = -1] // oRadialMenu.RadialLineColor(11) = -1
oRadialMenu.Expanded = true
oRadialMenu.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
oRadialMenu.EndUpdate()

local oRadialMenu

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

local oRadialMenu

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

local oRadialMenu,var_Item

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

local oRadialMenu,var_Item

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.Expanded = true
oRadialMenu.DisplayArrow = 1
oRadialMenu.Items.ToString = "[scap=Item 1],[scap=Item 2],[scap=Item 3],[scap=Item 4]"
oRadialMenu.InflateRadialMenu = "-4*dpi"
oRadialMenu.InflateCustom = "-4*dpi"
oRadialMenu.CustomBackColor = 0x808080
oRadialMenu.CustomBackAlpha = 128
oRadialMenu.Items.ToString = "Item 1(Sub Child 1,Sub Child 2),Item 2[scap=slider],Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
var_Item = oRadialMenu.Items.Item("Item 2")
	var_Item.BrowseType = 2
	var_Item.BrowseCustomType = 16
oRadialMenu.BrowseItem = oRadialMenu.Items.Item("Item 2")

local oRadialMenu,var_Item

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.AllowToggleExpand = false
oRadialMenu.Items.ToString = "Item 1(Sub Child 1,Sub Child 2),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
var_Item = oRadialMenu.Items.Item("Item 2")
	var_Item.BrowseType = 2
	var_Item.BrowseCustomType = 16

/*
with (this.EXRADIALMENUACTIVEXCONTROL1.nativeObject)
	BrowseItem = class::nativeObject_BrowseItem
endwith
*/
// Notifies once the user browses for a new item.
function nativeObject_BrowseItem(Item)
	oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
	? "Current State: " 
	? Str(oRadialMenu.State) 
return

/*
with (this.EXRADIALMENUACTIVEXCONTROL1.nativeObject)
	SelectParent = class::nativeObject_SelectParent
endwith
*/
// Occurs once the user clicks the parent of the item.
function nativeObject_SelectParent()
	oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
	? "Current State: " 
	? Str(oRadialMenu.State) 
return

local oRadialMenu,var_Item

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

local oRadialMenu

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

local oRadialMenu

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

local oRadialMenu

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

local oRadialMenu

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.Expanded = true
oRadialMenu.ShadowColor = -1
oRadialMenu.InflateItems = "-8*dpi"
oRadialMenu.ItemsBackColor = 0xf0f0f0
oRadialMenu.Template = [RadialLineSize(11) = 0] // oRadialMenu.RadialLineSize(11) = 0
oRadialMenu.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"

local oRadialMenu

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.Expanded = true
oRadialMenu.ShadowColor = -1
oRadialMenu.InflateItems = "-8*dpi"
oRadialMenu.ItemsBackColor = 0xf0f0f0
oRadialMenu.Template = [RadialLineColor(13) = 0] // oRadialMenu.RadialLineColor(13) = 0x0
oRadialMenu.Template = [RadialLineAlpha(13) = 64] // oRadialMenu.RadialLineAlpha(13) = 64
oRadialMenu.Template = [RadialLineSize(13) = -1] // oRadialMenu.RadialLineSize(13) = -1
oRadialMenu.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"

local oRadialMenu

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.Expanded = true
oRadialMenu.ShadowColor = -1
oRadialMenu.InflateItems = "-8*dpi"
oRadialMenu.ItemsBackColor = 0xf0f0f0
oRadialMenu.Template = [RadialLineColor(12) = 0] // oRadialMenu.RadialLineColor(12) = 0x0
oRadialMenu.Template = [RadialLineAlpha(12) = 64] // oRadialMenu.RadialLineAlpha(12) = 64
oRadialMenu.Template = [RadialLineSize(12) = -1] // oRadialMenu.RadialLineSize(12) = -1
oRadialMenu.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"

local oRadialMenu

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.Expanded = true
oRadialMenu.ShadowColor = -1
oRadialMenu.InflateItems = "-8*dpi"
oRadialMenu.ItemsBackColor = 0xf0f0f0
oRadialMenu.Template = [RadialLineColor(11) = 0] // oRadialMenu.RadialLineColor(11) = 0x0
oRadialMenu.Template = [RadialLineAlpha(11) = 64] // oRadialMenu.RadialLineAlpha(11) = 64
oRadialMenu.Template = [RadialLineSize(11) = -1] // oRadialMenu.RadialLineSize(11) = -1
oRadialMenu.Items.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"

local oRadialMenu

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.Expanded = true
oRadialMenu.ShadowColor = -1
oRadialMenu.InflateItems = "-8*dpi"
oRadialMenu.ItemsBackColor = 0xf0f0f0
oRadialMenu.Template = [RadialLineColor(11) = 0] // oRadialMenu.RadialLineColor(11) = 0x0
oRadialMenu.Template = [RadialLineStyle(11) = 2] // oRadialMenu.RadialLineStyle(11) = 2
oRadialMenu.Template = [RadialLineSize(11) = 3] // oRadialMenu.RadialLineSize(11) = 3
oRadialMenu.Items.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"

local oRadialMenu

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.Expanded = true
oRadialMenu.ShadowColor = -1
oRadialMenu.InflateItems = "-8*dpi"
oRadialMenu.ItemsBackColor = 0xf0f0f0
oRadialMenu.Template = [RadialLineColor(10) = 0] // oRadialMenu.RadialLineColor(10) = 0x0
oRadialMenu.Template = [RadialLineStyle(10) = 2] // oRadialMenu.RadialLineStyle(10) = 2
oRadialMenu.Template = [RadialLineSize(10) = 3] // oRadialMenu.RadialLineSize(10) = 3
oRadialMenu.Items.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"

local oRadialMenu

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.Expanded = true
oRadialMenu.ShadowColor = -1
oRadialMenu.InflateItems = "-8*dpi"
oRadialMenu.ItemsBackColor = 0xf0f0f0
oRadialMenu.Template = [RadialLineColor(9) = 0] // oRadialMenu.RadialLineColor(9) = 0x0
oRadialMenu.Template = [RadialLineStyle(9) = 2] // oRadialMenu.RadialLineStyle(9) = 2
oRadialMenu.Template = [RadialLineSize(9) = 3] // oRadialMenu.RadialLineSize(9) = 3
oRadialMenu.Items.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"

local oRadialMenu

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.Expanded = true
oRadialMenu.ShadowColor = -1
oRadialMenu.InflateItems = "-8*dpi"
oRadialMenu.ItemsBackColor = 0xf0f0f0
oRadialMenu.Template = [RadialLineColor(8) = 0] // oRadialMenu.RadialLineColor(8) = 0x0
oRadialMenu.Template = [RadialLineStyle(8) = 2] // oRadialMenu.RadialLineStyle(8) = 2
oRadialMenu.Template = [RadialLineSize(8) = 3] // oRadialMenu.RadialLineSize(8) = 3

local oRadialMenu

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.Expanded = true
oRadialMenu.ShadowColor = -1
oRadialMenu.InflateItems = "-8*dpi"
oRadialMenu.ItemsBackColor = 0xf0f0f0
oRadialMenu.Template = [RadialLineColor(7) = 0] // oRadialMenu.RadialLineColor(7) = 0x0
oRadialMenu.Template = [RadialLineStyle(7) = 2] // oRadialMenu.RadialLineStyle(7) = 2
oRadialMenu.Template = [RadialLineSize(7) = 3] // oRadialMenu.RadialLineSize(7) = 3

local oRadialMenu

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.Expanded = true
oRadialMenu.ShadowColor = -1
oRadialMenu.InflateItems = "-8*dpi"
oRadialMenu.ItemsBackColor = 0xf0f0f0
oRadialMenu.Template = [RadialLineColor(6) = 0] // oRadialMenu.RadialLineColor(6) = 0x0
oRadialMenu.Template = [RadialLineStyle(6) = 2] // oRadialMenu.RadialLineStyle(6) = 2
oRadialMenu.Template = [RadialLineSize(6) = 3] // oRadialMenu.RadialLineSize(6) = 3

local oRadialMenu

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.Expanded = true
oRadialMenu.ShadowColor = -1
oRadialMenu.InflateItems = "-8*dpi"
oRadialMenu.ItemsBackColor = 0xf0f0f0
oRadialMenu.Template = [RadialLineColor(5) = 0] // oRadialMenu.RadialLineColor(5) = 0x0
oRadialMenu.Template = [RadialLineStyle(5) = 2] // oRadialMenu.RadialLineStyle(5) = 2
oRadialMenu.Template = [RadialLineSize(5) = 3] // oRadialMenu.RadialLineSize(5) = 3

local oRadialMenu,var_Item,var_Items

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.Expanded = true
oRadialMenu.ShadowColor = -1
oRadialMenu.InflateItems = "-8*dpi"
oRadialMenu.InflateCustom = oRadialMenu.InflateItems
oRadialMenu.ItemsBackColor = 0xf0f0f0
oRadialMenu.Template = [RadialLineColor(4) = 0] // oRadialMenu.RadialLineColor(4) = 0x0
oRadialMenu.Template = [RadialLineStyle(4) = 2] // oRadialMenu.RadialLineStyle(4) = 2
oRadialMenu.Template = [RadialLineSize(4) = 3] // oRadialMenu.RadialLineSize(4) = 3
var_Items = oRadialMenu.Items
	var_Item = var_Items.Add("Slider")
		var_Item.BrowseType = 2
		var_Item.BrowseCustomType = 16
oRadialMenu.BrowseItem = oRadialMenu.Items.Item("Slider")

local oRadialMenu

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.Expanded = true
oRadialMenu.ShadowColor = -1
oRadialMenu.InflateItems = "-8*dpi"
oRadialMenu.ItemsBackColor = 0xf0f0f0
oRadialMenu.Template = [RadialLineColor(3) = 0] // oRadialMenu.RadialLineColor(3) = 0x0
oRadialMenu.Template = [RadialLineStyle(3) = 2] // oRadialMenu.RadialLineStyle(3) = 2
oRadialMenu.Template = [RadialLineSize(3) = 3] // oRadialMenu.RadialLineSize(3) = 3

local oRadialMenu

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.Expanded = true
oRadialMenu.ShadowColor = -1
oRadialMenu.InflateItems = "-8*dpi"
oRadialMenu.ItemsBackColor = 0xf0f0f0
oRadialMenu.Template = [RadialLineColor(2) = 0] // oRadialMenu.RadialLineColor(2) = 0x0
oRadialMenu.Template = [RadialLineStyle(2) = 2] // oRadialMenu.RadialLineStyle(2) = 2
oRadialMenu.Template = [RadialLineSize(2) = 3] // oRadialMenu.RadialLineSize(2) = 3

local oRadialMenu

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.Expanded = true
oRadialMenu.ShadowColor = -1
oRadialMenu.InflateItems = "-8*dpi"
oRadialMenu.ItemsBackColor = 0xf0f0f0
oRadialMenu.Template = [RadialLineColor(1) = 0] // oRadialMenu.RadialLineColor(1) = 0x0
oRadialMenu.Template = [RadialLineStyle(1) = 2] // oRadialMenu.RadialLineStyle(1) = 2
oRadialMenu.Template = [RadialLineSize(1) = 3] // oRadialMenu.RadialLineSize(1) = 3

local oRadialMenu

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.Expanded = true
oRadialMenu.Items.ToString = "Item 1[scap=Item 1],Item 2[scap=Item 2],Item 3[scap=Item 3],Item 4[scap=Item 4]"
oRadialMenu.ParentSize = "48 * dpi"
oRadialMenu.Template = [ParentImageHeight(-1) = "78 * dpi"] // oRadialMenu.ParentImageHeight(-1) = "78 * dpi"
oRadialMenu.Template = [ParentImageWidth(-1) = "78 * dpi"] // oRadialMenu.ParentImageWidth(-1) = "78 * dpi"
oRadialMenu.ParentBackColor = 0xff00
oRadialMenu.ParentBackAlpha = 128
oRadialMenu.ExcludeParentFromItems = true

local oRadialMenu

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.Expanded = true
oRadialMenu.ArrowImage = ""
oRadialMenu.Items.ToString = "Child(SubChild)"

local oRadialMenu

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.Expanded = true
oRadialMenu.Template = [HTMLPicture("pic1") = "gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0iIEOZCJJUBEjBB8BBkRERAJzKRHIQAVzODjpjpnIJNIMKWKPBb8MIFiIJOBILJzhQLCdHCYBACaTgYiKHJJEIJULBHMYYAqjMAURiCKJAAogA6lA4EGgAeJnEC2ALzdAMICWf6HMS6HYCbJyvF6eSfIC8CqJJ5zI6gLbuA7ERhAHgNFRGKZHMCzDgGNDukqWYYAZocSIIYiEFiHAJsRygXCccABcTDIBMZByDBAOwEFDkVACICOOCAGCJAQgI54IaYrlesAwBQGGpgMEKcpDGoqB6RSpriIAJJFJxEVxCMCCgI"] // oRadialMenu.HTMLPicture("pic1") = "gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0iIEOZCJJUBEjBB8BBkRERAJzKRHIQAVzODjpjpnIJNIMKWKPBb8MIFiIJOBILJzhQLCdHCYBACaTgYiKHJJEIJULBHMYYAqjMAURiCKJAAogA6lA4EGgAeJnEC2ALzdAMICWf6HMS6HYCbJyvF6eSfIC8CqJJ5zI6gLbuA7ERhAHgNFRGKZHMCzDgGNDukqWYYAZocSIIYiEFiHAJsRygXCccABcTDIBMZByDBAOwEFDkVACICOOCAGCJAQgI54IaYrlesAwBQGGpgMEKcpDGoqB6RSpriIAJJFJxEVxCMCCgI"
oRadialMenu.ArrowImage = "pic1"
oRadialMenu.Items.ToString = "Child(SubChild)"

local oRadialMenu

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.Template = [HTMLPicture("arrow") = "gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0iIEOZCJJUBEjBB8BBkRERAJzKRHIQAVzODjpjpnIJNIMKWKPBb8MIFiIJOBILJzhQLCdHCYBACaTgYiJfJJEIJULBHdrOYIJQAwCBEaK1FQbeaoYwGVjLWR0EgJRAEBpICwPf7BY4cQgdAYAcCjUCWfD0G6rHrlHziPTcPrEUjuY5zZpHHgdZ41DYxVTSYJSaojXT0PrTVZBar+P5aaoWT8KfiWbIBZQ1ErVPbDPyYiIAJJFJxEVxCMCCgIA=="] // oRadialMenu.HTMLPicture("arrow") = "gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0iIEOZCJJUBEjBB8BBkRERAJzKRHIQAVzODjpjpnIJNIMKWKPBb8MIFiIJOBILJzhQLCdHCYBACaTgYiJfJJEIJULBHdrOYIJQAwCBEaK1FQbeaoYwGVjLWR0EgJRAEBpICwPf7BY4cQgdAYAcCjUCWfD0G6rHrlHziPTcPrEUjuY5zZpHHgdZ41DYxVTSYJSaojXT0PrTVZBar+P5aaoWT8KfiWbIBZQ1ErVPbDPyYiIAJJFJxEVxCMCCgIA=="
oRadialMenu.Expanded = true
oRadialMenu.Items.ToString = "Child(SubChild)"

local oRadialMenu

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.Template = [HTMLPicture("logo") = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images\favorites.png"] // oRadialMenu.HTMLPicture("logo") = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images\favorites.png"

local oRadialMenu

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.Template = [DisplayRadial(3) = 1] // oRadialMenu.DisplayRadial(3) = 1
oRadialMenu.Expanded = true
oRadialMenu.Items.ToString = "Item 1[scap=Item 1],Item 2[scap=Item 2],Item 3[scap=Item 3],Item 4[scap=Item 4]"
oRadialMenu.InflateRadialMenu = "-4*dpi"
oRadialMenu.InflateItems = "-4*dpi"
oRadialMenu.ItemsBackColor = 0xff00
oRadialMenu.ItemsBackAlpha = 128

local oRadialMenu

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.Expanded = true
oRadialMenu.Items.ToString = "[scap=Item 1],[scap=Item 2],[scap=Item 3],[scap=Item 4]"
oRadialMenu.InflateRadialMenu = "-4*dpi"
oRadialMenu.SubItemsSize = "48 * dpi"
oRadialMenu.SubItemsBackColor = 0xff00
oRadialMenu.SubItemsBackAlpha = 128

local oRadialMenu

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.Expanded = true
oRadialMenu.Items.ToString = "Item 1,Item 2,Item 3,Item 4"
oRadialMenu.InflateRadialMenu = "-6*dpi"

local oRadialMenu

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.Expanded = true
oRadialMenu.ShadowColor = -1
oRadialMenu.Items.ToString = "Item 1,Item 2,Item 3,Item 4"

local oRadialMenu

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.Expanded = true
oRadialMenu.ShadowColor = 0xff
oRadialMenu.Items.ToString = "Item 1,Item 2,Item 3,Item 4"

local oRadialMenu

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.AllowToggleExpand = false
oRadialMenu.DisplayAngle = -66
oRadialMenu.Items.ToString = "Item 1,Item 2,Item 3,Item 4"
oRadialMenu.Template = [Caption(0) = FormatABC("`The number of items is: <b>` + value",Items.Count)] // oRadialMenu.Caption(0) = oRadialMenu.FormatABC("`The number of items is: <b>` + value",oRadialMenu.Items.Count)

local oRadialMenu

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

/*
with (this.EXRADIALMENUACTIVEXCONTROL1.nativeObject)
	Event = class::nativeObject_Event
endwith
*/
// Notifies the application once the control fires an event.
function nativeObject_Event(EventID)
	oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
	? Str(oRadialMenu.EventParam(-2)) 
return

local oRadialMenu

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.BeginUpdate()
oRadialMenu.Expanded = true
oRadialMenu.Items.ToString = "Item 1,Item 2,Item 3,Item 4"
oRadialMenu.EndUpdate()

local oRadialMenu,var_Item,var_Item1,var_Items

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.BeginUpdate()
oRadialMenu.Expanded = true
oRadialMenu.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oRadialMenu.Template = [HTMLPicture("relative") = "settings.png"] // oRadialMenu.HTMLPicture("relative") = "settings.png"
oRadialMenu.Template = [HTMLPicture("absolute") = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images\favorites.png"] // oRadialMenu.HTMLPicture("absolute") = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images\favorites.png"
oRadialMenu.Template = [HTMLPicture("encoded") = "gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0iIEOZCJJUBEjBB8BBkRERBJwJBZOcKAZ2mB2AJ9aqCZkRDJ0IpYOhTN5mOh3MJyMoAO9JFxpNxrOZjMJwMouN5yM6bdw8DUKAjoJJEIJULCFYqXLpsChVCjHf4zTo7XZjXazUJQUgCWoNCqWYp+ZS2vDyEqSGz6UjUA4tRIkAysGyRC6fPogEyaCCjYI3Dw0YyETDiQbRA5TSJ+aQWUKLcAubrdNTaOi7XBYbRlO67brOXpzPrATrdOpmRZGFInHLJfo4GbnG7ncbeRjAHLHYYUeKhPQHEBlAynJ6fbRcXyxeQLTZsNZJEwTETnAAhEirGQBSIyOYZQhISAkARRChQnWHQUGqUA0goTRbAYJpplAKIGm0WQ7DeVg0jARggksBJRkYBx/AiTp2nYdw/DuHQHjANpsjGT53jabprl0MwmhSAggjwEAvlWdY9Cieg7HobJYmWUYvgENBkgGcAdE8FIXBcYJ5SiAY4k8SJpBqUoQEkeg6DMNwACIUZfguVojCCORnBiCcmPmFhSimLBWkcRBjnGYxsAAMBKFaDRAGcTACgALYMnAMQ/h+bwdnqHwAHAUYHh+IAujaRpSm6dJHh+zJvj8M4tD+UJegaE5dm+Gw+DKYgcAOFBpmCHIXlQH5+DwCInGqAJijcI53kKBYCnaRwOnaYh9FkOooA6EpDFcF4tkOMYjh2BoNmMOgZkAVwzlSfwXFiLAGB+b5cECQZ9nucZgF8XoMAyXZGDoHQ2jSVZVBUXRdicYB0joDBtOAARVFUDQbCYW5ECAUzGjoMA0AQUQUFAUJfAcHZPjUAhSg0IwjGOBRtBuPZNFgYZykEKY6jAQ5lkKMwnimbwfFGKwAFYGBgGgUoljwIgoigK4pkGXRNA0ZAZGCYB4CgII9iCCB4GUSIHBwKoKg6I4dIqIQfEAKoFDQAJADgHBGEyOAMD2LYtjCW5tiiKQpEEHpdjsEIIAYMR3GcTpBAgCu/nQPh6hqHgvCiMJtH2K4U3aDYBhCCR1DUNZGlqQx9D0JApAjjgjgWAQoCUKJe40SgpWwOoFGYQxdFccZlHwKpsDaGxcFsNoamsboXAuMghDgfJlCeFY7EcSp5j2FJQZocwbQUQxICYExYjOa43GwMhNlid2xmgbBoEAfJ8h2TBNE0WQ6DkOpuEWC4vj0DIbhOARzAeWZVACVYRA4e49BCBMAQtw9i7BSDIHY3A3AQd+NUHYbhug5GGEMdA7g9ATH6IMQY5hkAUB0AkOYRRpg0CYAQE4QAyAJB7CkdAgQsgIBCPAfI/Q0BvDWIMKgZBeAKX4BoSIWxbjwGsPEcY+BfC3Au6ZzQdhPj9EmKMfAZhwAmBwOcVAqhWDEFsK0bYABFhTG0Oce4IQ5ArEEEAEAgB2iuHaMYfQ+AagvDsDcG4AQACaB6B4Lguw/AdEaPUeoOQADZAoOQLoRhdCeG6PAfY/RIAJGCKEQYhxYB5GmcId4BxlDLGWHEdwqw5wwD6PcEAMwABeBeJ4P47gIB0C6McSYbgbguHsPdiYthrDYF+O8MolAuBMDEDYCQxhtC1FKNgeA6BDCCGOO4UwjRNigXsGYYQMwsBcC4IRiCdBxiIG8I4UQbxQAPAEAQOAcBmBGDMJEJAJAoTWDYPg+Y5ALDGDICgAgSRJDgDSPQcgRRihKE0HcGwYw8BkAQMEKAABag1DrKANAOw+AYBaLsLYDBNj+GCAEfg4paBpFOMccgKw9gZHKHQYI5A3iTkaEEMoVRqiKD6M4HIRwqtVAQJEGA+Q1gIE4HMAgQywhvFSEYEVOB6CJBaNUBEJA5C6BQAsEAZBhDeqoMYZ4nB8gUUavEEICABDuG8L0PY3wECIFEAimqrwjgsAsIMaY6QiA8A8M8PYTgKBFBwBwBwxAxAxAAMAZIkx3jgH4PkV4hR+AUH4HUNQARgDCsgIoJwcxCgxEM+IPIYw3D1BYGMFgbwegXBcK8AwchtjwCCEoVwFwBhABMDIconAlgWHsP8XYKA7DFFwAwOQfxmh6FPcEd4Ww6D/CqCMSICAMBjD6KYBAzBmjNF6HEew7BsjPCoFUNoTQTCTCKAAUAKAFDsDsDuu4sQODbDYDYJAkgCBKBSNIdINBLX1EgEoUt9xShMDHfAMgWQzCpCoGoMAYQwjhHqIwL4YRajyC8EgDw+hvjxE+BUNgPAgjmBkBsfpEQABJCKE4IgrghBgEEQEA="] // oRadialMenu.HTMLPicture("encoded") = "gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0iIEOZCJJUBEjBB8BBkRERBJwJBZOcKAZ2mB2AJ9aqCZkRDJ0IpYOhTN5mOh3MJyMoAO9JFxpNxrOZjMJwMouN5yM6bdw8DUKAjoJJEIJULCFYqXLpsChVCjHf4zTo7XZjXazUJQUgCWoNCqWYp+ZS2vDyEqSGz6UjUA4tRIkAysGyRC6fPogEyaCCjYI3Dw0YyETDiQbRA5TSJ+aQWUKLcAubrdNTaOi7XBYbRlO67brOXpzPrATrdOpmRZGFInHLJfo4GbnG7ncbeRjAHLHYYUeKhPQHEBlAynJ6fbRcXyxeQLTZsNZJEwTETnAAhEirGQBSIyOYZQhISAkARRChQnWHQUGqUA0goTRbAYJpplAKIGm0WQ7DeVg0jARggksBJRkYBx/AiTp2nYdw/DuHQHjANpsjGT53jabprl0MwmhSAggjwEAvlWdY9Cieg7HobJYmWUYvgENBkgGcAdE8FIXBcYJ5SiAY4k8SJpBqUoQEkeg6DMNwACIUZfguVojCCORnBiCcmPmFhSimLBWkcRBjnGYxsAAMBKFaDRAGcTACgALYMnAMQ/h+bwdnqHwAHAUYHh+IAujaRpSm6dJHh+zJvj8M4tD+UJegaE5dm+Gw+DKYgcAOFBpmCHIXlQH5+DwCInGqAJijcI53kKBYCnaRwOnaYh9FkOooA6EpDFcF4tkOMYjh2BoNmMOgZkAVwzlSfwXFiLAGB+b5cECQ" ;
	 +"Z9nucZgF8XoMAyXZGDoHQ2jSVZVBUXRdicYB0joDBtOAARVFUDQbCYW5ECAUzGjoMA0AQUQUFAUJfAcHZPjUAhSg0IwjGOBRtBuPZNFgYZykEKY6jAQ5lkKMwnimbwfFGKwAFYGBgGgUoljwIgoigK4pkGXRNA0ZAZGCYB4CgII9iCCB4GUSIHBwKoKg6I4dIqIQfEAKoFDQAJADgHBGEyOAMD2LYtjCW5tiiKQpEEHpdjsEIIAYMR3GcTpBAgCu/nQPh6hqHgvCiMJtH2K4U3aDYBhCCR1DUNZGlqQx9D0JApAjjgjgWAQoCUKJe40SgpWwOoFGYQxdFccZlHwKpsDaGxcFsNoamsboXAuMghDgfJlCeFY7EcSp5j2FJQZocwbQUQxICYExYjOa43GwMhNlid2xmgbBoEAfJ8h2TBNE0WQ6DkOpuEWC4vj0DIbhOARzAeWZVACVYRA4e49BCBMAQtw9i7BSDIHY3A3AQd+NUHYbhug5GGEMdA7g9ATH6IMQY5hkAUB0AkOYRRpg0CYAQE4QAyAJB7CkdAgQsgIBCPAfI/Q0BvDWIMKgZBeAKX4BoSIWxbjwGsPEcY+BfC3Au6ZzQdhPj9EmKMfAZhwAmBwOcVAqhWDEFsK0bYABFhTG0Oce4IQ5ArEEEAEAgB2iuHaMYfQ+AagvDsDcG4AQACaB6B4Lguw/AdEaPUeoOQADZAoOQLoRhdCeG6PAfY/RIAJGCKEQYhxYB5GmcId4BxlDLGWHEdwqw5wwD6Pc" &
	 +"EAMwABeBeJ4P47gIB0C6McSYbgbguHsPdiYthrDYF+O8MolAuBMDEDYCQxhtC1FKNgeA6BDCCGOO4UwjRNigXsGYYQMwsBcC4IRiCdBxiIG8I4UQbxQAPAEAQOAcBmBGDMJEJAJAoTWDYPg+Y5ALDGDICgAgSRJDgDSPQcgRRihKE0HcGwYw8BkAQMEKAABag1DrKANAOw+AYBaLsLYDBNj+GCAEfg4paBpFOMccgKw9gZHKHQYI5A3iTkaEEMoVRqiKD6M4HIRwqtVAQJEGA+Q1gIE4HMAgQywhvFSEYEVOB6CJBaNUBEJA5C6BQAsEAZBhDeqoMYZ4nB8gUUavEEICABDuG8L0PY3wECIFEAimqrwjgsAsIMaY6QiA8A8M8PYTgKBFBwBwBwxAxAxAAMAZIkx3jgH4PkV4hR+AUH4HUNQARgDCsgIoJwcxCgxEM+IPIYw3D1BYGMFgbwegXBcK8AwchtjwCCEoVwFwBhABMDIconAlgWHsP8XYKA7DFFwAwOQfxmh6FPcEd4Ww6D/CqCMSICAMBjD6KYBAzBmjNF6HEew7BsjPCoFUNoTQTCTCKAAUAKAFDsDsDuu4sQODbDYDYJAkgCBKBSNIdINBLX1EgEoUt9xShMDHfAMgWQzCpCoGoMAYQwjhHqIwL4YRajyC8EgDw+hvjxE+BUNgPAgjmBkBsfpEQABJCKE4IgrghBgEEQEA="
oRadialMenu.BackgroundPicture = "Background\frame.png"
var_Items = oRadialMenu.Items
	var_Items.Add("Relative 1","relative")
	// var_Items.Add("Relative 1").Image(1) = "settings.png"
	var_Item = var_Items.Add("Relative 1")
	with (oRadialMenu)
		TemplateDef = [dim var_Item]
		TemplateDef = var_Item
		Template = [var_Item.Image(1) = "settings.png"]
	endwith
	var_Items.Add("Aboslute 1","absolute")
	var_Items.Add("Aboslute 2","favorites.png")
	var_Items.Add("Encoded 1","encoded")
	// var_Items.Add("Encoded 2").Image(1) = "gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0iIEOZCJJUBEjBB8BBkRERBJwJBZOcKAZ2mB2AJ9aqCZkRDJ0IpYOhTN5mOh3MJyMoAO9JFxpNxrOZjMJwMouN5yM6bdw8DUKAjoJJEIJULCFYqXLpsChVCjHf4zTo7XZjXazUJQUgCWoNCqWYp+ZS2vDyEqSGz6UjUA4tRIkAysGyRC6fPogEyaCCjYI3Dw0YyETDiQbRA5TSJ+aQWUKLcAubrdNTaOi7XBYbRlO67brOXpzPrATrdOpmRZGFInHLJfo4GbnG7ncbeRjAHLHYYUeKhPQHEBlAynJ6fbRcXyxeQLTZsNZJEwTETnAAhEirGQBSIyOYZQhISAkARRChQnWHQUGqUA0goTRbAYJpplAKIGm0WQ7DeVg0jARggksBJRkYBx/AiTp2nYdw/DuHQHjANpsjGT53jabprl0MwmhSAggjwEAvlWdY9Cieg7HobJYmWUYvgENBkgGcAdE8FIXBcYJ5SiAY4k8SJpBqUoQEkeg6DMNwACIUZfguVojCCORnBiCcmPmFhSimLBWkcRBjnGYxsAAMBKFaDRAGcTACgALYMnAMQ/h+bwdnqHwAHAUYHh+IAujaRpSm6dJHh+zJvj8M4tD+UJegaE5dm+Gw+DKYgcAOFBpmCHIXlQH5+DwCInGqAJijcI53kKBYCnaRwOnaYh9FkOooA6EpDFcF4tkOMYjh2BoNmMOgZkAVwzlSfwXFiLAGB+b5cECQ" ;
	 +"Z9nucZgF8XoMAyXZGDoHQ2jSVZVBUXRdicYB0joDBtOAARVFUDQbCYW5ECAUzGjoMA0AQUQUFAUJfAcHZPjUAhSg0IwjGOBRtBuPZNFgYZykEKY6jAQ5lkKMwnimbwfFGKwAFYGBgGgUoljwIgoigK4pkGXRNA0ZAZGCYB4CgII9iCCB4GUSIHBwKoKg6I4dIqIQfEAKoFDQAJADgHBGEyOAMD2LYtjCW5tiiKQpEEHpdjsEIIAYMR3GcTpBAgCu/nQPh6hqHgvCiMJtH2K4U3aDYBhCCR1DUNZGlqQx9D0JApAjjgjgWAQoCUKJe40SgpWwOoFGYQxdFccZlHwKpsDaGxcFsNoamsboXAuMghDgfJlCeFY7EcSp5j2FJQZocwbQUQxICYExYjOa43GwMhNlid2xmgbBoEAfJ8h2TBNE0WQ6DkOpuEWC4vj0DIbhOARzAeWZVACVYRA4e49BCBMAQtw9i7BSDIHY3A3AQd+NUHYbhug5GGEMdA7g9ATH6IMQY5hkAUB0AkOYRRpg0CYAQE4QAyAJB7CkdAgQsgIBCPAfI/Q0BvDWIMKgZBeAKX4BoSIWxbjwGsPEcY+BfC3Au6ZzQdhPj9EmKMfAZhwAmBwOcVAqhWDEFsK0bYABFhTG0Oce4IQ5ArEEEAEAgB2iuHaMYfQ+AagvDsDcG4AQACaB6B4Lguw/AdEaPUeoOQADZAoOQLoRhdCeG6PAfY/RIAJGCKEQYhxYB5GmcId4BxlDLGWHEdwqw5wwD6Pc" &
	 +"EAMwABeBeJ4P47gIB0C6McSYbgbguHsPdiYthrDYF+O8MolAuBMDEDYCQxhtC1FKNgeA6BDCCGOO4UwjRNigXsGYYQMwsBcC4IRiCdBxiIG8I4UQbxQAPAEAQOAcBmBGDMJEJAJAoTWDYPg+Y5ALDGDICgAgSRJDgDSPQcgRRihKE0HcGwYw8BkAQMEKAABag1DrKANAOw+AYBaLsLYDBNj+GCAEfg4paBpFOMccgKw9gZHKHQYI5A3iTkaEEMoVRqiKD6M4HIRwqtVAQJEGA+Q1gIE4HMAgQywhvFSEYEVOB6CJBaNUBEJA5C6BQAsEAZBhDeqoMYZ4nB8gUUavEEICABDuG8L0PY3wECIFEAimqrwjgsAsIMaY6QiA8A8M8PYTgKBFBwBwBwxAxAxAAMAZIkx3jgH4PkV4hR+AUH4HUNQARgDCsgIoJwcxCgxEM+IPIYw3D1BYGMFgbwegXBcK8AwchtjwCCEoVwFwBhABMDIconAlgWHsP8XYKA7DFFwAwOQfxmh6FPcEd4Ww6D/CqCMSICAMBjD6KYBAzBmjNF6HEew7BsjPCoFUNoTQTCTCKAAUAKAFDsDsDuu4sQODbDYDYJAkgCBKBSNIdINBLX1EgEoUt9xShMDHfAMgWQzCpCoGoMAYQwjhHqIwL4YRajyC8EgDw+hvjxE+BUNgPAgjmBkBsfpEQABJCKE4IgrghBgEEQEA="
	var_Item1 = var_Items.Add("Encoded 2")
	with (oRadialMenu)
		TemplateDef = [dim var_Item1]
		TemplateDef = var_Item1
		Template = [var_Item1.Image(1) = "gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0iIEOZCJJUBEjBB8BBkRERBJwJBZOcKAZ2mB2AJ9aqCZkRDJ0IpYOhTN5mOh3MJyMoAO9JFxpNxrOZjMJwMouN5yM6bdw8DUKAjoJJEIJULCFYqXLpsChVCjHf4zTo7XZjXazUJQUgCWoNCqWYp+ZS2vDyEqSGz6UjUA4tRIkAysGyRC6fPogEyaCCjYI3Dw0YyETDiQbRA5TSJ+aQWUKLcAubrdNTaOi7XBYbRlO67brOXpzPrATrdOpmRZGFInHLJfo4GbnG7ncbeRjAHLHYYUeKhPQHEBlAynJ6fbRcXyxeQLTZsNZJEwTETnAAhEirGQBSIyOYZQhISAkARRChQnWHQUGqUA0goTRbAYJpplAKIGm0WQ7DeVg0jARggksBJRkYBx/AiTp2nYdw/DuHQHjANpsjGT53jabprl0MwmhSAggjwEAvlWdY9Cieg7HobJYmWUYvgENBkgGcAdE8FIXBcYJ5SiAY4k8SJpBqUoQEkeg6DMNwACIUZfguVojCCORnBiCcmPmFhSimLBWkcRBjnGYxsAAMBKFaDRAGcTACgALYMnAMQ/h+bwdnqHwAHAUYHh+IAujaRpSm6dJHh+zJvj8M4tD+UJegaE5dm+Gw+DKYgcAOFBpmCHIXlQH5+DwCInGqAJijcI53kKBYCnaRwOnaYh9FkOooA6EpDFcF4tkOMYjh2BoNmMOgZkAVwzlSfwXFiLAGB+b5cECQZ9nucZgF8XoMAyXZGDoHQ2jSVZVBUXRdicYB0joDBtOAARVFUDQbCYW5ECAUzGjoMA0AQUQUFAUJfAcHZPjUAhSg0IwjGOBRtBuPZNFgYZykEKY6jAQ5lkKMwnimbwfFGKwAFYGBgGgUoljwIgoigK4pkGXRNA0ZAZGCYB4CgII9iCCB4GUSIHBwKoKg6I4dIqIQfEAKoFDQAJADgHBGEyOAMD2LYtjCW5tiiKQpEEHpdjsEIIAYMR3GcTpBAgCu/nQPh6hqHgvCiMJtH2K4U3aDYBhCCR1DUNZGlqQx9D0JApAjjgjgWAQoCUKJe40SgpWwOoFGYQxdFccZlHwKpsDaGxcFsNoamsboXAuMghDgfJlCeFY7EcSp5j2FJQZocwbQUQxICYExYjOa43GwMhNlid2xmgbBoEAfJ8h2TBNE0WQ6DkOpuEWC4vj0DIbhOARzAeWZVACVYRA4e49BCBMAQtw9i7BSDIHY3A3AQd+NUHYbhug5GGEMdA7g9ATH6IMQY5hkAUB0AkOYRRpg0CYAQE4QAyAJB7CkdAgQsgIBCPAfI/Q0BvDWIMKgZBeAKX4BoSIWxbjwGsPEcY+BfC3Au6ZzQdhPj9EmKMfAZhwAmBwOcVAqhWDEFsK0bYABFhTG0Oce4IQ5ArEEEAEAgB2iuHaMYfQ+AagvDsDcG4AQACaB6B4Lguw/AdEaPUeoOQADZAoOQLoRhdCeG6PAfY/RIAJGCKEQYhxYB5GmcId4BxlDLGWHEdwqw5wwD6PcEAMwABeBeJ4P47gIB0C6McSYbgbguHsPdiYthrDYF+O8MolAuBMDEDYCQxhtC1FKNgeA6BDCCGOO4UwjRNigXsGYYQMwsBcC4IRiCdBxiIG8I4UQbxQAPAEAQOAcBmBGDMJEJAJAoTWDYPg+Y5ALDGDICgAgSRJDgDSPQcgRRihKE0HcGwYw8BkAQMEKAABag1DrKANAOw+AYBaLsLYDBNj+GCAEfg4paBpFOMccgKw9gZHKHQYI5A3iTkaEEMoVRqiKD6M4HIRwqtVAQJEGA+Q1gIE4HMAgQywhvFSEYEVOB6CJBaNUBEJA5C6BQAsEAZBhDeqoMYZ4nB8gUUavEEICABDuG8L0PY3wECIFEAimqrwjgsAsIMaY6QiA8A8M8PYTgKBFBwBwBwxAxAxAAMAZIkx3jgH4PkV4hR+AUH4HUNQARgDCsgIoJwcxCgxEM+IPIYw3D1BYGMFgbwegXBcK8AwchtjwCCEoVwFwBhABMDIconAlgWHsP8XYKA7DFFwAwOQfxmh6FPcEd4Ww6D/CqCMSICAMBjD6KYBAzBmjNF6HEew7BsjPCoFUNoTQTCTCKAAUAKAFDsDsDuu4sQODbDYDYJAkgCBKBSNIdINBLX1EgEoUt9xShMDHfAMgWQzCpCoGoMAYQwjhHqIwL4YRajyC8EgDw+hvjxE+BUNgPAgjmBkBsfpEQABJCKE4IgrghBgEEQEA="]
	endwith
	var_Items.Add("<c><img>relative</img><br><c>Relative 3")
	var_Items.Add("<c>Relative 4<br><c><img>relative</img>","relative")
oRadialMenu.EndUpdate()

/*
with (this.EXRADIALMENUACTIVEXCONTROL1.nativeObject)
	MouseMove = class::nativeObject_MouseMove
endwith
*/
// Occurs when the user moves the mouse.
function nativeObject_MouseMove(Button, Shift, X, Y)
	oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
	oRadialMenu.ShowToolTip(Str(oRadialMenu.FormatABC("`Index of the pie from the cursor: ` + (value >= 0 ? value : `<fgcolor=808080>none` )",oRadialMenu.IndexFromPoint(3,-1,-1))),"Info",0,"8","8")
return

local oRadialMenu,var_Items

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.BeginUpdate()
oRadialMenu.DisplayAngle = -45
oRadialMenu.Expanded = true
var_Items = oRadialMenu.Items
	var_Items.ToString = "Item 0"
	var_Items.Add("Item 1")
	var_Items.Add("Item 2")
oRadialMenu.EndUpdate()

local oRadialMenu,var_Item,var_Item1,var_Items

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.BeginUpdate()
oRadialMenu.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oRadialMenu.Template = [Background(64) = 16777216] // oRadialMenu.Background(64) = 0x1000000
oRadialMenu.DisplayAngle = -45
oRadialMenu.Expanded = true
var_Items = oRadialMenu.Items
	var_Items.ToString = "Item 0[ttp=tooltip's item][sttp=tooltip's subitem]"
	// var_Items.Add("Item 1").Tooltip(1) = "This is a bit of text that shown when user <b>hovers</b> the item"
	var_Item = var_Items.Add("Item 1")
	with (oRadialMenu)
		TemplateDef = [dim var_Item]
		TemplateDef = var_Item
		Template = [var_Item.Tooltip(1) = "This is a bit of text that shown when user <b>hovers</b> the item"]
	endwith
	var_Item1 = var_Items.Add("Item 2")
		// var_Item1.Tooltip(1) = "This is a bit of text that shown when user hovers the item"
		with (oRadialMenu)
			TemplateDef = [dim var_Item1]
			TemplateDef = var_Item1
			Template = [var_Item1.Tooltip(1) = "This is a bit of text that shown when user hovers the item"]
		endwith
		// var_Item1.Tooltip(2) = "This is a bit of text that shown when user hovers the sub-item"
		with (oRadialMenu)
			TemplateDef = [dim var_Item1]
			TemplateDef = var_Item1
			Template = [var_Item1.Tooltip(2) = "This is a bit of text that shown when user hovers the sub-item"]
		endwith
oRadialMenu.EndUpdate()

local oRadialMenu,var_Item,var_Item1,var_Items

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.DisplayAngle = -45
oRadialMenu.Expanded = true
var_Items = oRadialMenu.Items
	var_Items.ToString = "Item 0[ttp=tooltip's item][sttp=tooltip's subitem]"
	// var_Items.Add("Item 1").Tooltip(1) = "This is a bit of text that shown when user <b>hovers</b> the item"
	var_Item = var_Items.Add("Item 1")
	with (oRadialMenu)
		TemplateDef = [dim var_Item]
		TemplateDef = var_Item
		Template = [var_Item.Tooltip(1) = "This is a bit of text that shown when user <b>hovers</b> the item"]
	endwith
	var_Item1 = var_Items.Add("Item 2")
		// var_Item1.Tooltip(1) = "This is a bit of text that shown when user hovers the item"
		with (oRadialMenu)
			TemplateDef = [dim var_Item1]
			TemplateDef = var_Item1
			Template = [var_Item1.Tooltip(1) = "This is a bit of text that shown when user hovers the item"]
		endwith
		// var_Item1.Tooltip(2) = "This is a bit of text that shown when user hovers the sub-item"
		with (oRadialMenu)
			TemplateDef = [dim var_Item1]
			TemplateDef = var_Item1
			Template = [var_Item1.Tooltip(2) = "This is a bit of text that shown when user hovers the sub-item"]
		endwith

local oRadialMenu,var_Item,var_Items

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

local oRadialMenu,var_Items

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

local oRadialMenu,var_Items,var_Items1,var_Items2,var_Items3,var_Items4,var_Items5,var_Items6,var_Items7,var_Items8

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.BeginUpdate()
oRadialMenu.Expanded = true
oRadialMenu.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oRadialMenu.Template = [HTMLPicture("arrow") = "arrow.png"] // oRadialMenu.HTMLPicture("arrow") = "arrow.png"
oRadialMenu.SubItemsBackColor = 0xbebebe
oRadialMenu.ShadowColor = oRadialMenu.SubItemsBackColor
oRadialMenu.Template = [RadialLineColor(6) = SubItemsBackColor] // oRadialMenu.RadialLineColor(6) = oRadialMenu.SubItemsBackColor
oRadialMenu.Template = [RadialLineColor(5) = -1] // oRadialMenu.RadialLineColor(5) = -1
var_Items = oRadialMenu.Items
	// var_Items.Add("Foreground-Color","color_line.png").Items.ToString = "Foreground"
	var_Items1 = var_Items.Add("Foreground-Color","color_line.png").Items
	with (oRadialMenu)
		TemplateDef = [dim var_Items1]
		TemplateDef = var_Items1
		Template = [var_Items1.ToString = "Foreground"]
	endwith
	// var_Items.Add("Background-Color","color_fill.png").Items.ToString = "Background"
	var_Items2 = var_Items.Add("Background-Color","color_fill.png").Items
	with (oRadialMenu)
		TemplateDef = [dim var_Items2]
		TemplateDef = var_Items2
		Template = [var_Items2.ToString = "Background"]
	endwith
	// var_Items.Add("Font","format_font_size_less.png").Items.ToString = "Font"
	var_Items3 = var_Items.Add("Font","format_font_size_less.png").Items
	with (oRadialMenu)
		TemplateDef = [dim var_Items3]
		TemplateDef = var_Items3
		Template = [var_Items3.ToString = "Font"]
	endwith
	// var_Items.Add("Undo","edit_undo.png").Items.ToString = "Undo"
	var_Items4 = var_Items.Add("Undo","edit_undo.png").Items
	with (oRadialMenu)
		TemplateDef = [dim var_Items4]
		TemplateDef = var_Items4
		Template = [var_Items4.ToString = "Undo"]
	endwith
	// var_Items.Add("Redo","edit_redo.png").Items.ToString = "Redo"
	var_Items5 = var_Items.Add("Redo","edit_redo.png").Items
	with (oRadialMenu)
		TemplateDef = [dim var_Items5]
		TemplateDef = var_Items5
		Template = [var_Items5.ToString = "Redo"]
	endwith
	// var_Items.Add("Copy","edit_copy.png").Items.ToString = "Copy"
	var_Items6 = var_Items.Add("Copy","edit_copy.png").Items
	with (oRadialMenu)
		TemplateDef = [dim var_Items6]
		TemplateDef = var_Items6
		Template = [var_Items6.ToString = "Copy"]
	endwith
	// var_Items.Add("List","fileview_text.png").Items.ToString = "List"
	var_Items7 = var_Items.Add("List","fileview_text.png").Items
	with (oRadialMenu)
		TemplateDef = [dim var_Items7]
		TemplateDef = var_Items7
		Template = [var_Items7.ToString = "List"]
	endwith
	// var_Items.Add("Tag","checkmark_korganizer.png").Items.ToString = "Tag"
	var_Items8 = var_Items.Add("Tag","checkmark_korganizer.png").Items
	with (oRadialMenu)
		TemplateDef = [dim var_Items8]
		TemplateDef = var_Items8
		Template = [var_Items8.ToString = "Tag"]
	endwith
oRadialMenu.EndUpdate()

local oRadialMenu,var_Items,var_Items1

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.BeginUpdate()
oRadialMenu.MinVisibleCount = 3
oRadialMenu.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oRadialMenu.Template = [HTMLPicture("remove") = "remove.png"] // oRadialMenu.HTMLPicture("remove") = "remove.png"
oRadialMenu.Template = [HTMLPicture("refresh") = "refresh.png"] // oRadialMenu.HTMLPicture("refresh") = "refresh.png"
oRadialMenu.Template = [HTMLPicture("preview") = "preview.png"] // oRadialMenu.HTMLPicture("preview") = "preview.png"
oRadialMenu.Template = [HTMLPicture("search") = "search.png"] // oRadialMenu.HTMLPicture("search") = "search.png"
var_Items = oRadialMenu.Items
	var_Items1 = var_Items.Add("Search","search").Items
		var_Items1.ToString = "Search A,Search B,Search C"
	var_Items.Add("Refresh","refresh")
	var_Items.Add("Preview","preview")
	var_Items.Add("Remove","remove")
oRadialMenu.Expanded = true
oRadialMenu.EndUpdate()

local oRadialMenu

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
? "Version:" 
? oRadialMenu.Version 

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

local oRadialMenu

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.AllowToggleExpand = false
oRadialMenu.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
oRadialMenu.Template = [SelectedIndex(3) = 0] // oRadialMenu.SelectedIndex(3) = 0

local oRadialMenu,var_Item,var_Items,var_Items1

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.BeginUpdate()
oRadialMenu.Expanded = true
oRadialMenu.MinVisibleCount = 6
oRadialMenu.Font.Size = "14.25"
var_Items = oRadialMenu.Items
	var_Item = var_Items.Add("Item 1")
		var_Item.Name = "<fgcolor FF0000>Item</fgcolor> 1"
		var_Items1 = var_Item.Items
			var_Items1.Add("SubItem 1")
			var_Items1.Add("SubItem 2")
	var_Items.Add("Item 2")
	var_Items.Add("Item 3")
	var_Items.Add("Item 4")
	var_Items.Add("Item 5")
	var_Items.Add("Item 6")
oRadialMenu.EndUpdate()

local oRadialMenu,var_Item,var_Items,var_Items1

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.BeginUpdate()
oRadialMenu.Expanded = true
oRadialMenu.MinVisibleCount = 6
oRadialMenu.Font.Size = "14.25"
var_Items = oRadialMenu.Items
	var_Item = var_Items.Add("Item 1")
		// var_Item.ForeColor(1) = 0xff
		with (oRadialMenu)
			TemplateDef = [dim var_Item]
			TemplateDef = var_Item
			Template = [var_Item.ForeColor(1) = 255]
		endwith
		var_Items1 = var_Item.Items
			var_Items1.Add("SubItem 1")
			var_Items1.Add("SubItem 2")
	var_Items.Add("Item 2")
	var_Items.Add("Item 3")
	var_Items.Add("Item 4")
	var_Items.Add("Item 5")
	var_Items.Add("Item 6")
oRadialMenu.EndUpdate()

local oRadialMenu,var_Items,var_Items1

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.BeginUpdate()
oRadialMenu.Expanded = true
oRadialMenu.MinVisibleCount = 6
oRadialMenu.Font.Size = "14.25"
oRadialMenu.ForeColor = 0xff
var_Items = oRadialMenu.Items
	var_Items1 = var_Items.Add("Item 1").Items
		var_Items1.Add("SubItem 1")
		var_Items1.Add("SubItem 2")
	var_Items.Add("Item 2")
	var_Items.Add("Item 3")
	var_Items.Add("Item 4")
	var_Items.Add("Item 5")
	var_Items.Add("Item 6")
oRadialMenu.EndUpdate()

local oRadialMenu,var_Items,var_Items1

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.BeginUpdate()
oRadialMenu.Expanded = true
var_Items = oRadialMenu.Items
	var_Items1 = var_Items.Add("Item 1").Items
		var_Items1.Add("SubItem 1")
		var_Items1.Add("SubItem 2")
	var_Items.Add("Item 2")
	var_Items.Add("Item 3")
	var_Items.Add("Item 4")
	var_Items.Add("Item 5")
	var_Items.Add("Item 6")
	var_Items.Add("Item 7")
	var_Items.Add("Item 8")
oRadialMenu.EndUpdate()

local oRadialMenu

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.BeginUpdate()
oRadialMenu.Expanded = true
oRadialMenu.ToString = "Item 1(SubItem 1,SubItem 2),Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
oRadialMenu.EndUpdate()

local oRadialMenu

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.BeginUpdate()
oRadialMenu.AllowToggleExpand = false
oRadialMenu.MinVisibleCount = 4
oRadialMenu.ToString = "Item 1,Item 2,Item 3,Item 4"
oRadialMenu.Items.Item(0).Name = "<font ;14>Item 1"
oRadialMenu.EndUpdate()

local oRadialMenu

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.BeginUpdate()
oRadialMenu.AllowToggleExpand = false
oRadialMenu.MinVisibleCount = 4
oRadialMenu.ToString = "Item 1,Item 2,Item 3,Item 4"
oRadialMenu.Font.Size = "14.25"
oRadialMenu.EndUpdate()

local oRadialMenu

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.AllowToggleExpand = false

local oRadialMenu

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.Expanded = true

local oRadialMenu

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.Expanded = true
oRadialMenu.MinVisibleCount = 3

local oRadialMenu

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.BeginUpdate()
oRadialMenu.AllowToggleExpand = false
oRadialMenu.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
oRadialMenu.Template = [Caption(0) = "Cant expand/collapse the radial menu"] // oRadialMenu.Caption(0) = "Cant expand/collapse the radial menu"
oRadialMenu.Template = [Caption(3) = 0] // oRadialMenu.Caption(3) = 0
oRadialMenu.Template = [Caption(4) = "width-twidth"] // oRadialMenu.Caption(4) = "width-twidth"
oRadialMenu.Template = [Caption(5) = "height-theight"] // oRadialMenu.Caption(5) = "height-theight"
oRadialMenu.EndUpdate()

local oRadialMenu

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.AllowToggleExpand = false
oRadialMenu.ToString = "<c><b>Item 1<b><br><c>no flick<br>,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
oRadialMenu.Items.Item(0).BrowseType = -1 /*0xfffffffc | exBrowseItemCustom | exBrowseItemChild*/

local oRadialMenu,var_Items

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.Expanded = true
oRadialMenu.Template = [RadialLineSize(11) = FormatABC(SubItemsSize)] // oRadialMenu.RadialLineSize(11) = oRadialMenu.FormatABC(oRadialMenu.SubItemsSize)
oRadialMenu.Template = [RadialLineColor(11) = -2147483635] // oRadialMenu.RadialLineColor(11) = 0x8000000d
oRadialMenu.Template = [RadialLineAlpha(11) = 64] // oRadialMenu.RadialLineAlpha(11) = 64
var_Items = oRadialMenu.Items
	var_Items.Add("Item A")
	var_Items.Add("Item B")
	var_Items.Add("Item C")

local oRadialMenu,var_Items

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.Expanded = true
oRadialMenu.Template = [RadialLineSize(11) = 0] // oRadialMenu.RadialLineSize(11) = 0
oRadialMenu.Template = [RadialLineSize(10) = -1] // oRadialMenu.RadialLineSize(10) = -1
oRadialMenu.Template = [RadialLineColor(10) = -2147483635] // oRadialMenu.RadialLineColor(10) = 0x8000000d
oRadialMenu.Template = [RadialLineAlpha(10) = 64] // oRadialMenu.RadialLineAlpha(10) = 64
var_Items = oRadialMenu.Items
	var_Items.Add("Item A")
	var_Items.Add("Item B")
	var_Items.Add("Item C")

local oRadialMenu,var_Items

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.Expanded = true
oRadialMenu.Template = [RadialLineSize(11) = -1] // oRadialMenu.RadialLineSize(11) = -1
oRadialMenu.Template = [RadialLineColor(11) = -2147483635] // oRadialMenu.RadialLineColor(11) = 0x8000000d
oRadialMenu.Template = [RadialLineAlpha(11) = 64] // oRadialMenu.RadialLineAlpha(11) = 64
var_Items = oRadialMenu.Items
	var_Items.Add("Item A")
	var_Items.Add("Item B")
	var_Items.Add("Item C")

local oRadialMenu,var_Items

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.AllowToggleExpand = false
oRadialMenu.Template = [RadialLineSize(11) = 0] // oRadialMenu.RadialLineSize(11) = 0
var_Items = oRadialMenu.Items
	var_Items.Add("Item A")
	var_Items.Add("Item B")
	var_Items.Add("Item C")

local oRadialMenu

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.Expanded = true
oRadialMenu.ShadowColor = -1

local oRadialMenu

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.BackColor = 0xf9f0f0