|
95
|
The control shows no icons. What can be the problem (32-bit, alpha channel vs 4-bit icons problem)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.BeginUpdate
.Expanded = True
.ImageSize = 32
.Images "gBJJgBggAAQAAgAEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbmiAQD/jL/r1fYFlsFctFptVrtltt0qsdgrz/srAs8NsNxut3t99v1/wGBwQAuNhwlks17veGjFiueLweRyWTymVm+FxsTw90xOdu2Ks2Mht60OW02n1Gp" & _
"rWYiUTh+b0Gfz2c2W1u+30l21W73m93021mu4UO2Gz2O05HHyF4xu5vm/6HR6WB4PD61yxG25XG7na0vMhvL6fj8nlqXV6/p4ve9nX7ft5eO7PP831+33rtzsPp/mvx7" & _
"uuS77bus97kLy/T8QTBUFpM9D+we7D3QA47RQC9rRQZDMNQTCEOs0/UQK/AkJxJC7Gw3FEUvLD0HsKh7Fv8r7NxG+EStvFUcRy3sWOs50YIdH8DRDCUattDEdSRJLIx4" & _
"h64rizUXtDKLdSmsEYwjGkLRvJUuS6v0WRch0nyq1sgzNKUgNDIcsyPL03TerMWv1KsxuJMk7zTKk8ytPbWs3GbXxPOFB0Iqjrx9ND5NdM89QNPFHT7QK8QQ8FC0tS6k" & _
"tdJy5yhPc6uvMtE0ZPlIQNQVMVRVNM0/T8g1a2c2UfUc/VPVVbVuobcU4186V24VQts61gVJWda1xY9kKDB6903EVeU8udPonWdJPpZNr2wm1F1g4bW2bRVh2/YUyWNb" & _
"NzXOl1QSqvdY0jd0ttbX9y3Rel6pNAdn1M8F1Xe+KVXhe2A4FdMK4IzLhyDNuB4XhilXxeVK4biWJqXgGKYvjGM41jeOY7jycIqHyVZEjqPpCjKSJIkyDpxSWP5fmCZI" & _
"C"
.Images "gBJJgBggAAQAAgAEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbmiAkEar0gYFjrlls1ntFptVrllhjFeAFjYFtuFytl3vF5vV7vkmt1+sVku12lduwl9xGJxWLxk3v8Zh9vwNzweCy1zwt1smNzmdz2frePjGRyIAzWUy9x" & _
"1OVzEqw2b0Gx2Wz2k10USf+43Wmyeq1G/33B1nBzO92vH5HJxO30kO3Wl0/C1fT4HDw8p6/K7Xb7lS5nO5u58OS6XV1Pj63U4kf6Pd93v+E57/i8H1+n38np82tlPo9T" & _
"stu+MBQHAjJK+yD7OfBLxt5BTcv08qWQg7MCwrC0KvHDMFwTBsOrg/z9wjCbYQvEsTPfDT8RS3ivucwjnQ8kEQRE/8SRPG8cNrFcVte4CJOJFzNrhBsZxG/kcyRJLOR3" & _
"BK3Lc0sgsxKLRwezcYSHD8EwhJUuS6xEmNyv7nSfKcfxfKspTRKjiSxGUtRtL04zks8eSHKcyNzM0rTVPU0yBPkrq/LM8znQtDKy8cez/FjdTPRdHUhPdFsBQ9K0sqTI" & _
"ydQc1rtPEHU5SVIz9UVL1LUyo09T1HVU8831HUNYT9U9Z1op9PT7RkGSmu1dUBXz11rYNhKRFdOrhW872PTbI1JH9h2faCg2ZVr8R/TSQTFNVr0/XFo29b6cV7CMZ27M" & _
"sYJVBlwXVdabShPl0Q5c133Zel6qxclz3tfV9qvdN+X/gGA4FgeCYLg2D4RhLFoqHyVYajqPpCjKSJIkyD3C+1CJYiaX44lx/nhfKVn+cAf41kZgAfk90EAAeVv60aXn" & _
"8jAfpefiMA+l58IwA6XngjAHpecGcaFoiXaGAGc6PoyW6RpWm6YlmnaLpOqD/q2fIxq6XZuAGtpbruvpZsOZIRl6TH+RgD7OjSHbXjp/mftkEZFeG6pSgIA=="
With .Items
.Add "Icon 32-bit<br><c><img>1</img>"
.Add "Icon 4-bit<br><c><img>2</img>"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
94
|
ImageSize property on 32 (specifies the size of control' icons/images)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.BeginUpdate
.Expanded = True
.ImageSize = 32
.Images "gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m0mf8ZnMYncNnU/nlAn1BolDo09pFCpNFpdGm9PqE0f6Aq" & _
"k9qNXrFZrVbrldr1fsFXidjslls1ntFptVroVht1UQFNptuul1u13vF5vViidKpVqv1MwFMwMSh9tvc0uFynV9nmLxORyWTr1VnWLYGZq2Uzk8tef0Gh0VnxGdAGQwme" & _
"h+ZYD/1mM02x2WmyFV19KzGa2d5seFuVm31/su+wdOxOoo+N1ea1/FqeW3fR6WV6E+23M7Gt3HX7XTrej8Hh8XDot15G/5et5sPkEN9uu7Ow73z+kx8997nw9Xx29M3L" & _
"uvqmTetS5LVLI4jQODA0BuMrTzuEhzXvWhz3vez0FtIx7qwDDjpvu4b8wk/kRwApD/s3DrDPHFcWLY8qbwewT0v0scKwuiSiIcz0Tv7AsUx+zkPrQ064xE/cjxpI0kt0" & _
"/z8q0+UoQVH0owJKkVQZK0sJnGKjonJSzPenLDsPHD3OhHUrwzMy4yBNq7yEtkQxJJckSVJSlR6m8Wz3PjyTTPjSoxLikS8+K1S+wyJObG6dzRCk5RLQM3Umq84NDIk6" & _
"UzCaxztOceufIsmJhLUqudBEhyrCFCT9KDgVTJtQyRQ9DLTREywHR0XTXFFKV6mFLPBTFOzrUVVrJYcaMvDcBT7ZtAQxZ9dp1ZDFrNL9a1otE71vTj4sLX1wJXYDx0xa" & _
"1PW8plkU+qNSSm5UD1fLtWVVV0/z3d65SVHjNVnSN4qRa8I2zNVQV5cNw2cw7LYWuNzWJh9NXRBqpYTirxWUuLF40quN4zjmPzZf8pSzjuC5LasZ03h1kwJg+XXs8TIR" & _
"nROGLPdVz38p921becZM/kd6xpfeIX06sx5PkGTaS86qUTMcdSxgObYHoLkZfXsW6HMWBO1mea5Xm+cz1i2yNEy7H7Q920qntcbYno6QOfM257lutladqG8zIhuVLLqW" & _
"wWLSWrx/mOkr7mfEa5rac6/v058EmOd3pnt3WhNHK3ly9c0ZRvO85taXbhumm7tDW8cXK/J8Vvtj6pymDcG+rRZlR+G8TZPbtvr02KrlfIVHsvg11tm1eL4nj7d5EXpb" & _
"0XS7pvXT810nSWnflsVl6+WR92MUrX2mhd7p/ccUw3dfJ29MXLvfYcix3MWNyVS9f1UTaX8NUYnscxbv8XoyyvhQr2FtOuXgtJ7iASztaMMyh88DXxwPfNA8n7Rl2PCg" & _
"swRFjv1ftGdI9B8Tmm/uOgE1OEaYGkrfgOd5GrhnxGvgYaR3JuoYtdfI8srEF4cQFSy0FJ8HXUQffqyFmEIXWwlLKyVZDGH2QpMowUicL4IxQgJBCGUDoIwaS2/Zj0W2" & _
"lRcaRF6LUXYxRficiuLDzIfOndS6Zup53WLdiMWSJDj2RRMPnEE3qM4XuHdW9ZA8M3FrrQcpBiKSGtNhfArGQqmVBqnLmgKNL/UsNQem3GSsQo4I0LVHNiBvmrR2UoWu" & _
"F0LG9Sji4759ENinvJlY22VzxpWywle8qWUtUWxnefD9vUIFiyUktL+AzMIntJiSlWT8oGXSZjfAuML5TNMlOAzOVSMHPrcmq5ua02ZsTbc9NpRqFl/w8eYeE3yn4PTn" & _
"f2hqLkxUpzHmRAeGEfTWyoitFU9EOityxlpPufU/ZZz+lsmGM0046vbjcxJ/5PJ2FyndO+hyqpnM5njFRsUKDpw5ow5ovbAD4xkoWduIVD6RE2PkSt+EAXUUEPrGSlkY" & _
"aWxgphGOlyyy3tGkQtudtNKR07ibAB9alJDs4YLTdOdQWiTPp0XijknZjVJp5U+i8uD6UAn5P+q1Aar1VeMcemzgVYRLqhWGsReEwzXm7Nys1aZvVqUdOAzlDKnVjrlX" & _
"MvNVK7VZrvVivVYC7sFrpXQioPiVWCI6R8kJGSSEkJMAIqDe6/2PshZGA5AQ="
With .Items
.ToString = "Icon 0[img=0]"
.Add "Icon 1",1
.Add "Icon Inside <img>3</img>"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
93
|
ImageSize property on 16 (specifies the size of control' icons/images)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.BeginUpdate
.Expanded = True
.ImageSize = 16
.Images "gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUHAgEP50nD/N87f58nz/Q1Bf5rolDoqJpD/PFLoxrf5sqD/IVTf" & _
"8zqwAAtZBAHriOD9ffgJsQJq9ls1ntEtAYgEB/GgwGB+rlctNpCt3QDCvT/RF9f7DwETf6Fwj/P+HwTPxT/QmNf60yF8v11mgEA4KBYLPgjFAneSQTCPf5y0j/CoUCp5" & _
"ymr1mrEQzGa9MamU2MPZ7f5PJxOfg73yBuYH1stCXFPa+5GDwqA5mCQ/Pf6O6T/bPVf7G7D/5iAwSM71Vmc1ywKsSBEIkEj8PCLQT/YLGZL/Z6VT7/cTebL/EQlEr88S" & _
"EOHAMBI0GYXBcXpUlyXKlFqWp/m2aZpn+WZZFkf44Qwf7dt43wdkCA0QAMmcRIxEgARNExBFdFbtOa27cHFGJ/j9Gh/lvG7BGBHUWu4XcfH+RsgvAlTggVIxAg9JJ+Do" & _
"PA7vkZZmH+ag/D+v4Dge8Btn+bhwnixhCDyf7igkP0BzM1YVTSXpnGUZTBDKURRH8ZEdzbNxxzwf5bT2nSeCxP5/htQQnAZQoHo0IFEnzDA4HyNNHnywhCny0g5H4O9M" & _
"H+SNNn+TFPQvDLDyqN1SH+S1Tn+aFVKUphK1cf5A1jIYEghWo9ySD0lpy6r8ombpbGKf55gScCHA8Ch/iiBBJn+Igsn2f51HVCT+BG/zxTPbKWxCAwU28XZi3CwRznwf" & _
"B/DiVBUH+bpkviXcFOUQp/zsf5rXsf7aNqKd9n+GN/B6jTvEYf5O4Kf6kESwRr4WwzDn9BUFonWJAn+SmLH/CsLE6TxPH+c50HQf5RFGUZ/nfk5/kflR/hWFYXn0LguC" & _
"8f903UwSHn0fR+Ska5x3mZxyH+cpQEof5sEDgYEguhx4nkh0aDpMTizLbWqo0CesDyY+tsEf2vH8dR7nvZpQFAf5UmcZx/m8ahqH+WGSH+NqimGYhiH/u27vEQyWO2f5" & _
"L8BHj3GCYJ/mbw/BY5jp88Zhsq8Jwp/H6fp/jINo2n+aJyaCaxznPKRynLWFOCQJAdH+HwfCUf4wjCOB/DKMo4n+55IH+NA0Dqf4jCMHJ/isLohn+IYpisf5lmwau1m5" & _
"0R4niectm5LQQ+pa6a6tbQB+1KubocfdoFiyIoGr5QUGWZZ/jMWZZn+WMIn+cxuG5o3zn+XV4AAgg9pZUR/1cJVwQ24BHXOy35nI+jBMTccvUb43x/haLgP8TIQQgj/E" & _
"+Ep1Yozdj/E4E8J4/wesAF82UFw/1HgtVACof4JwTgjcqGQiQ/2liwFe7pkiDh6D1HqyYd45n4Dmh8RMO0Qx/mZAWHp7C2TxG4e6HpCrNEcBwHcO4f4X3Nj/CyN0brLF" & _
"2vpfWhNhg3YBgGJqIR/hiBFRpH+phJxEy9DCjWplRg/1yj4gWHsn4qjkhtLEP8X5GB/jAkALuQAmiMD5I0E0JoABaI3Ia6UhoeokEPAmP9BoYR/gNAaQ0VQqjaw6js55" & _
"z7oXRDylMP9zbQSxjzAFK1AESTWljSq16Swvxfj/CKMgZA/xfLiD/FMf4S4GwPHCOF9LoR/hbHAsUEbdlmmIAekYPr/Dmi4XgnEUR1BtDaH+OFGQoZwL4FOKcwQoxSCk" & _
"H/J0VQ/2xNjCivwVQrxXmCDuT4eBGQGEsCIEQDg+TnwxAgP8XovWKBQCg7o6Qg2RCibNKZpzIGQjrokP8dlFYeDvH+qQNw/wMUdEbLA4ZYw8iuk6X9+oVIBD+GBLZ+A9" & _
"B6MYHaO0pTIENIyC9RMMT8khiDIyQYlYgxJrMG3TEf41XPD/GKwwZM20pRAH+NOZAwBojRqfFcbNExdv1DAo8f4gjoDHcQIQpA7yXg7klDECo/12hshAD0EpRg5TsbGP" & _
"+Wg/2QOfoqOxtY3hvN4mcyRkoWrBD/K+B8flIEBAGADK0QAnqSjNIeMSL4jZlsEGYlGW0txZIxH8Igh4U4r2KAC1Ql0HYPipX4KkKoVVOhDeEJmfY/oLurFAEsJbKQdO" & _
"nE0EUIo/7a23E9BsQAXQuj/D6IOhQm7lD/Dzc2e6JQH3RCip4ERDwU0CoJA8LQOh/TnIbcgA8cQvj/Tw6JPDQW8j/nAKGKoX7xvUBCPxrAEw9PaAGA6xC2Q/B1d1A4hw" & _
"zHGisMWIF+oUqmCAnkP4PB0xR2VAYVy0hLZDAAHyLiQ4tJDiwIwPwYkgBjkEOvIAZL2sQkNGRIAYcgBMhUCo2cWIsR/j5ZyYMoNz0TupB8p0TC8rkB5HQZkDov19hlSA" & _
"I0JA/40kNNIQ1y5ThYCwFoP8MGUz9AiBEPy6IDzgFzvzSAAkrQhguN2M4GppB/AkAcA4QwcbkDyFfjMPLjSMiWAqiAN1iwBAKRGRlFAHgUAoEELt94vX3i3cQLRNo/xc" & _
"Np0VowWriBjL3GsOkdKW5gB5OfjZEwCyMnCIwAIjWfwTj9QqMC9QoRbj/EkJK9jrZMZWyvlnLZdMu61Jjp4k4BwO5pECHNTA/QCIgB+mYIR/A9iyvcP8U9gxQ4sb/Bhf" & _
"FgxTBZCzerZwlXeD/FHQZmgUgpJACOEceGoETlWo6BgPQY91D/kkbgE27x5AR3kHxEOuNbb3QGSRbQQiMB/GLIAXkgBdSDkALngvAuCEN4MQ3DpDRJkY3GiUq19gEgd4" & _
"sPzeQERHIhARvjfBFQfEr5CR0j5ISMkk30RkQBdSH8e5cgIgI"
With .Items
.ToString = "Icon 0[img=0]"
.Add "Icon 1",1
.Add "Icon Inside <img>3</img>"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
92
|
How can I displays items rotated (exDisplayRadialRotated90)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.BeginUpdate
.Expanded = True
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.HTMLPicture("arrow") = "arrow.png"
.SubItemsBackColor = RGB(190,190,190)
.ShadowColor = .SubItemsBackColor
.RadialLineColor(6) = .SubItemsBackColor
.RadialLineColor(5) = -1
With .Items
.Add("Foreground","color_line.png").Items.ToString = "Foreground"
.Add("Background","color_fill.png").Items.ToString = "Background"
.Add("Font","format_font_size_less.png").Items.ToString = "Font"
.Add("Undo","edit_undo.png").Items.ToString = "Undo"
.Add("Redo","edit_redo.png").Items.ToString = "Redo"
.Add("Copy","edit_copy.png").Items.ToString = "Copy"
.Add("List","fileview_text.png").Items.ToString = "List"
.Add("Tag","checkmark_korganizer.png").Items.ToString = "Tag"
End With
.DisplayRadial(1) = 4
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
91
|
How can I displays items rotated (exDisplayRadialRotated270)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.BeginUpdate
.Expanded = True
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.HTMLPicture("arrow") = "arrow.png"
.SubItemsBackColor = RGB(190,190,190)
.ShadowColor = .SubItemsBackColor
.RadialLineColor(6) = .SubItemsBackColor
.RadialLineColor(5) = -1
With .Items
.Add("Foreground","color_line.png").Items.ToString = "Foreground"
.Add("Background","color_fill.png").Items.ToString = "Background"
.Add("Font","format_font_size_less.png").Items.ToString = "Font"
.Add("Undo","edit_undo.png").Items.ToString = "Undo"
.Add("Redo","edit_redo.png").Items.ToString = "Redo"
.Add("Copy","edit_copy.png").Items.ToString = "Copy"
.Add("List","fileview_text.png").Items.ToString = "List"
.Add("Tag","checkmark_korganizer.png").Items.ToString = "Tag"
End With
.DisplayRadial(1) = 3
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
90
|
How can I displays items rotated (exDisplayRadialRotated180)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.BeginUpdate
.Expanded = True
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.HTMLPicture("arrow") = "arrow.png"
.SubItemsBackColor = RGB(190,190,190)
.ShadowColor = .SubItemsBackColor
.RadialLineColor(6) = .SubItemsBackColor
.RadialLineColor(5) = -1
With .Items
.Add("Foreground","color_line.png").Items.ToString = "Foreground"
.Add("Background","color_fill.png").Items.ToString = "Background"
.Add("Font","format_font_size_less.png").Items.ToString = "Font"
.Add("Undo","edit_undo.png").Items.ToString = "Undo"
.Add("Redo","edit_redo.png").Items.ToString = "Redo"
.Add("Copy","edit_copy.png").Items.ToString = "Copy"
.Add("List","fileview_text.png").Items.ToString = "List"
.Add("Tag","checkmark_korganizer.png").Items.ToString = "Tag"
End With
.DisplayRadial(1) = 2
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
89
|
How can I displays items rotated (exDisplayRadialRotated)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.BeginUpdate
.Expanded = True
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.HTMLPicture("arrow") = "arrow.png"
.SubItemsBackColor = RGB(190,190,190)
.ShadowColor = .SubItemsBackColor
.RadialLineColor(6) = .SubItemsBackColor
.RadialLineColor(5) = -1
With .Items
.Add("Foreground","color_line.png").Items.ToString = "Foreground"
.Add("Background","color_fill.png").Items.ToString = "Background"
.Add("Font","format_font_size_less.png").Items.ToString = "Font"
.Add("Undo","edit_undo.png").Items.ToString = "Undo"
.Add("Redo","edit_redo.png").Items.ToString = "Redo"
.Add("Copy","edit_copy.png").Items.ToString = "Copy"
.Add("List","fileview_text.png").Items.ToString = "List"
.Add("Tag","checkmark_korganizer.png").Items.ToString = "Tag"
End With
.DisplayRadial(1) = 1
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
88
|
How do I load images to sub-items zone
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.Expanded = True
.SubItemsSize = "48*dpi"
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.RadialLineColor(9) = RGB(128,128,128)
.RadialLineColor(10) = RGB(128,128,128)
.RadialLineColor(11) = -1
With .Items
With .Add("")
.Image(1) = "favorites.png"
.Image(2) = "download.png"
End With
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
87
|
How can I display the control directly on the screen
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.BeginUpdate
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.HTMLPicture("arrow") = "stock_mail_filters_apply.png"
.HTMLPicture("settings") = "settings.png"
.HTMLPicture("hard") = "download.png"
.HTMLPicture("favorites") = "favorites.png"
.HTMLPicture("remove") = "remove.png"
.HTMLPicture("refresh") = "refresh.png"
.HTMLPicture("synchronize") = "synchronize.png"
.HTMLPicture("preview") = "preview.png"
.HTMLPicture("search") = "search.png"
.ToString = "Save[img=hard],Settings[img=settings][browse=2][custom=16],Favorites[img=favorites](1,2),Refresh[img=refresh],<c>Quit<br><c>App" & _
"lication[img=remove],Synchronize[img=synchronize],Search[img=search](1,2),Preview[img=preview](1,2)"
.Expanded = True
.DisplayRadial(1) = 3
.BackgroundPicture = "Background\frontc.png"
.SubItemsBackColor = -1
.SubItemsSize = "18 * dpi"
.EndUpdate
.Float = True ' True
End With
End Function
</SCRIPT>
</BODY>
|
|
86
|
How do I add a radial-slider control
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.Expanded = True
.ShadowColor = -1
.InflateItems = "-8*dpi"
.InflateCustom = .InflateItems
.ItemsBackColor = RGB(240,240,240)
.RadialLineColor(4) = RGB(0,0,0)
.RadialLineStyle(4) = 2
.RadialLineSize(4) = 3
With .Items
With .Add("Slider")
.BrowseType = 2
.BrowseCustomType = 16
.BrowseCustom(9) = 35
End With
End With
.BrowseItem = .Items.Item("Slider")
End With
End Function
</SCRIPT>
</BODY>
|
|
85
|
How can I display a slider directly on the radial menu, with no items...
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.BeginUpdate
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.Expanded = True
.InflateCustom = "-4 * dpi"
.RadialLineColor(4) = RGB(0,0,0)
.RadialLineSize(4) = 3
.RadialLineAlpha(4) = 128
.CustomPicture = "Background\frame.png"
With .Root
.BrowseType = 2
.BrowseCustomType = 16
.BrowseCustom(9) = 25
End With
.Refresh
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
84
|
How can I programatically browses for a new item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.Expanded = True
.ShadowColor = -1
.InflateItems = "-8*dpi"
.InflateCustom = .InflateItems
.ItemsBackColor = RGB(240,240,240)
.RadialLineColor(4) = RGB(0,0,0)
.RadialLineStyle(4) = 2
.RadialLineSize(4) = 3
With .Items
With .Add("Slider")
.BrowseType = 2
.BrowseCustomType = 16
End With
End With
.BrowseItem = .Items.Item("Slider")
End With
End Function
</SCRIPT>
</BODY>
|
|
83
|
How can I display the items rotated
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.BeginUpdate
.Expanded = True
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.HTMLPicture("arrow") = "arrow.png"
.Expanded = True
.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)"
.DisplayRadial(1) = 1
.DisplayCenter(1) = 0.05
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
82
|
Is it possible to display the arrow into the items section, and how I can change the default position
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.BeginUpdate
.Expanded = True
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.HTMLPicture("arrow") = "arrowu.png"
.DisplayArrow = 1
.DisplayCenterArrow(1) = 0
.Expanded = True
.Items.ToString = "Item 1(1,2),Item 2(1,2),Item 3(1,2),Item 4(1,2),Item 5(1,2),Item 6(1,2),Item 7(1,2),Item 8(1,2)"
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
81
|
Can I display the arrow into the items section
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.BeginUpdate
.Expanded = True
.DisplayArrow = 1
.Expanded = True
.Items.ToString = "Item 1(1,2),Item 2(1,2),Item 3(1,2),Item 4(1,2),Item 5(1,2),Item 6(1,2),Item 7(1,2),Item 8(1,2)"
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
80
|
How can I know if the cursor is hovering the center ring ( parent zone )
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function RadialMenu1_MouseMove(Button,Shift,X,Y)
With RadialMenu1
alert( "ParentOnPoint " )
alert( .ParentOnPoint(-1,-1) )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.Expanded = True
End With
End Function
</SCRIPT>
</BODY>
|
|
79
|
How can I specify the size to display the images/pictures into the items
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.BeginUpdate
.AllowToggleExpand = False
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.ItemsImageHeight(1) = "64*dpi"
.ItemsImageWidth(1) = "64*dpi"
With .Items
.Add "","color_line.png"
.Add "","color_fill.png"
.Add "","format_font_size_less.png"
.Add "","edit_undo.png"
.Add "","edit_redo.png"
.Add "","edit_copy.png"
.Add "","fileview_text.png"
.Add "","checkmark_korganizer.png"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
78
|
By default, the parent image is 32-pixels wide. Can I display it larger
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.BeginUpdate
.AllowToggleExpand = False
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.HTMLPicture("logo") = "settings.png"
.ParentSize = "96 * dpi"
.ParentImageWidth(-1) = "64*dpi"
.ParentImageHeight(-1) = "64*dpi"
.ParentCaption(-1) = "<font ;14><c>System Settings</font><br><c>Surround"
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
77
|
Is it possible to specify where to display the item's caption
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.BeginUpdate
.Expanded = True
.Items.ToString = "Item 1(1,2),Item 2(1,2),Item 3(1,2),Item 4(1,2),Item 5(1,2),Item 6(1,2),Item 7(1,2),Item 8(1,2)"
.Items.Item(0).BackColor(3) = RGB(240,240,240)
.DisplayCenter(1) = 0.85
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
76
|
How can I disable browsing the items, or prevent displaying its children
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.BeginUpdate
.Expanded = True
.AllowBrowseItem = False
.Items.ToString = "Item 1(1,2),Item 2(1,2),Item 3(1,2),Item 4(1,2),Item 5(1,2),Item 6(1,2),Item 7(1,2),Item 8(1,2)"
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
75
|
How do I get the item from the point
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function RadialMenu1_MouseMove(Button,Shift,X,Y)
With RadialMenu1
alert( "Full-Item: " )
alert( .ItemFromPoint(3,-1,-1).Caption(1) )
alert( "Item: " )
alert( .ItemFromPoint(1,-1,-1).Caption(1) )
alert( "SubItem: " )
alert( .ItemFromPoint(2,-1,-1).Caption(2) )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.Expanded = True
.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]"
End With
End Function
</SCRIPT>
</BODY>
|
|
74
|
How do I get the index of the pie from the point
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function RadialMenu1_MouseMove(Button,Shift,X,Y)
With RadialMenu1
alert( "Full-Index: " )
alert( .IndexFromPoint(3,-1,-1) )
alert( "Index: " )
alert( .IndexFromPoint(1,-1,-1) )
alert( "Sub-Index: " )
alert( .IndexFromPoint(2,-1,-1) )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.Expanded = True
End With
End Function
</SCRIPT>
</BODY>
|
|
73
|
How can I select an item
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function RadialMenu1_SelectItem(Item)
' SelectedIndex(3) = Item.Index
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.BeginUpdate
.SelBackAlpha(1) = 32
.SelBackAlpha(2) = 128
.SelForeColor(3) = RGB(0,0,0)
.RadialLineSize(8) = -1
.RadialLineAlpha(8) = 32
.RadialLineColor(11) = -1
.Expanded = True
.Items.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
.SelectedIndex(3) = 0
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
72
|
How can I use the sub-items zone only
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.BeginUpdate
.AllowToggleExpand = False
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.HTMLPicture("logo") = "settings.png"
.RadialLineColor(6) = .SubItemsBackColor
.RadialLineColor(5) = -1
.SubItemsSize = "64 * dpi"
.ParentSize = "value - 66 * dpi"
.ParentImageWidth(-1) = "64*dpi"
.ParentImageHeight(-1) = "64*dpi"
.ParentCaption(-1) = "<font ;14><c>System Settings</font><br><c>Surround"
.RadialLineSize(11) = 0
.RadialLineSize(10) = -1
.RadialLineColor(10) = &H8000000d
.RadialLineAlpha(10) = 128
.ItemsBackColor = .SubItemsBackColor
With .Items
.Add "","color_line.png",2
.Add "","color_fill.png",2
.Add "","format_font_size_less.png",2
.Add "","edit_undo.png",2
.Add "","edit_redo.png",2
.Add "","edit_copy.png",2
.Add "","fileview_text.png",2
.Add "","checkmark_korganizer.png",2
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
71
|
Is it possible to display all items with a different rotation angle
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.BeginUpdate
.Expanded = True
.DisplayAngle = -7.5
.DisplayArrow = 1
.DisplayRadial(1) = 1
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.ParentSize = "48 * dpi"
.ParentPicture = "Background\frontb.png"
.ArrowImage = "arrow.png"
.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
.InflateParentPicture = "72 * dpi"
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
70
|
How can I programatically advance / browse for the parent item (method 2)
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function RadialMenu1_RClick()
With RadialMenu1
.BrowseItem = .BrowseItem.Parent
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.Expanded = True
.DisplayArrow = 1
With .Items
With .Add("Volume")
.Caption(2) = "slider"
.BrowseType = 2
.BrowseCustomType = 16
End With
With .Add("Item").Items
.Add "Child 1"
.Add "Child 2"
End With
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
69
|
How can I programatically advance / browse for the parent item (method 1)
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function RadialMenu1_RClick()
With RadialMenu1
.GoBack
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.Expanded = True
.DisplayArrow = 1
With .Items
With .Add("Volume")
.Caption(2) = "slider"
.BrowseType = 2
.BrowseCustomType = 16
End With
With .Add("Item").Items
.Add "Child 1"
.Add "Child 2"
End With
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
68
|
Can I display the pointer with a different angle
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.BeginUpdate
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.PointerPicture = "pointer.png"
.PointerPictureY = "y + (height-pheight)/2- 21*dpi"
.PointerPictureX = "x + (width-pwidth)/2 + 1 * dpi"
.AllowHotPointer = False
.ParentSize = "36*dpi"
.ParentImageHeight(-1) = "48*dpi"
.ParentImageWidth(-1) = "48*dpi"
.RadialLineSize(8) = -1
.RadialLineAlpha(8) = 32
.RadialLineColor(11) = -1
.Expanded = True
.Items.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
.PointerAngle = 12
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
67
|
How can I use the pointer (select sample)
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function RadialMenu1_SelectItem(Item)
' PointerIndex = Item.Index
With RadialMenu1
.SelectedIndex(3) = .PointerIndex
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.BeginUpdate
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.PointerPicture = "pointer.png"
.SelBackAlpha(1) = 32
.SelBackAlpha(2) = 128
.PointerPictureY = "y + (height-pheight)/2- 21*dpi"
.PointerPictureX = "x + (width-pwidth)/2 + 1 * dpi"
.AllowHotPointer = False
.SelForeColor(3) = RGB(0,0,0)
.ParentSize = "36*dpi"
.ParentImageHeight(-1) = "48*dpi"
.ParentImageWidth(-1) = "48*dpi"
.RadialLineSize(8) = -1
.RadialLineAlpha(8) = 32
.RadialLineColor(11) = -1
.Expanded = True
.Items.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
.PointerIndex = 0
.SelectedIndex(3) = .PointerIndex
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
66
|
How can I use the pointer (hot sample)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.BeginUpdate
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.PointerPicture = "pointer.png"
.PointerIndex = -1
.PointerPictureY = "y + (height-pheight)/2- 21*dpi"
.PointerPictureX = "x + (width-pwidth)/2 + 1 * dpi"
.AllowHotPointer = True
.SelBackAlpha(3) = 128
.SelForeColor(3) = RGB(0,0,0)
.ParentSize = "36*dpi"
.ParentImageHeight(-1) = "48*dpi"
.ParentImageWidth(-1) = "48*dpi"
.RadialLineSize(8) = -1
.RadialLineAlpha(8) = 32
.RadialLineColor(11) = -1
.Expanded = True
.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
65
|
Is it possible to apply the control's background picture on the parent zone too
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.BeginUpdate
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.BackgroundPicture = "Background\fronte.png"
.ForeColor = RGB(255,255,255)
.Expanded = True
.ParentSize = "48 * dpi"
.DisplayRadial(1) = 1
.DisplayCenter(1) = 0.23
.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
.ParentBackColor = -1
.ExcludeParentFromItems = True
.RadialLineColor(6) = RGB(0,0,0)
.RadialLineAlpha(6) = 128
.RadialLineStyle(5) = 2
.RadialLineAlpha(5) = 128
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
64
|
Can I display the picture on the parent zone, a bit larger
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.BeginUpdate
.Expanded = True
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.ParentSize = "48 * dpi"
.ParentPicture = "Background\frontb.png"
.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
.InflateParentPicture = "64 * dpi"
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
63
|
Is it possible to assign a different background picture when displaying a slider/custom data
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.Expanded = True
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.DisplayArrow = 1
.Items.ToString = "[scap=Item 1],[scap=Item 2],[scap=Item 3],[scap=Item 4]"
.InflateRadialMenu = "-4*dpi"
.InflateCustom = "-4*dpi"
.CustomPicture = "Background\frontb.png"
.Items.ToString = "Item 1(Sub Child 1,Sub Child 2),Item 2[scap=slider],Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
With .Items.Item("Item 2")
.BrowseType = 2
.BrowseCustomType = 16
End With
.BrowseItem = .Items.Item("Item 2")
End With
End Function
</SCRIPT>
</BODY>
|
|
62
|
How can I customize the custom part of the control, the inside ring/circle
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.Expanded = True
.DisplayArrow = 1
.Items.ToString = "[scap=Item 1],[scap=Item 2],[scap=Item 3],[scap=Item 4]"
.InflateRadialMenu = "-4*dpi"
.InflateCustom = "-4*dpi"
.CustomBackColor = RGB(128,128,128)
.CustomBackAlpha = 128
.Items.ToString = "Item 1(Sub Child 1,Sub Child 2),Item 2[scap=slider],Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
With .Items.Item("Item 2")
.BrowseType = 2
.BrowseCustomType = 16
End With
.BrowseItem = .Items.Item("Item 2")
End With
End Function
</SCRIPT>
</BODY>
|
|
61
|
How do I prevent expanding / collapsing the radial menu
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.AllowToggleExpand = False
.Items.ToString = "Item 1(Sub Child 1,Sub Child 2),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
With .Items.Item("Item 2")
.BrowseType = 2
.BrowseCustomType = 16
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
60
|
Is it possible to change the parent's picture/image when expanding collapsing the radial menu
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function RadialMenu1_BrowseItem(Item)
With RadialMenu1
alert( "Current State: " )
alert( .State )
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function RadialMenu1_SelectParent()
With RadialMenu1
alert( "Current State: " )
alert( .State )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.Items.ToString = "Item 1(Sub Child 1,Sub Child 2),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
With .Items.Item("Item 2")
.BrowseType = 2
.BrowseCustomType = 16
End With
.ParentImage(0) = "format_font_size_less.png"
.ParentImage(1) = "fileview_text.png"
.ParentImage(2) = "edit_undo.png"
End With
End Function
</SCRIPT>
</BODY>
|
|
59
|
Is it possible to assign a different picture on the parent zone (center ring)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.Expanded = True
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.ParentSize = "48 * dpi"
.ParentPicture = "Background\frontb.png"
.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
End With
End Function
</SCRIPT>
</BODY>
|
|
58
|
Is it possible to assign a different picture on the items zone (inner ring)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.Expanded = True
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.ItemsPicture = "Background\frontc.png"
.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
End With
End Function
</SCRIPT>
</BODY>
|
|
57
|
How can I change the control's background picture
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.Expanded = True
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.BackgroundPicture = "Background\fronta.png"
.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
End With
End Function
</SCRIPT>
</BODY>
|
|
56
|
How can I hide the line being shown around the item form the cursor
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.Expanded = True
.ShadowColor = -1
.InflateItems = "-8*dpi"
.ItemsBackColor = RGB(240,240,240)
.RadialLineSize(11) = 0
.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
End With
End Function
</SCRIPT>
</BODY>
|
|
55
|
Is it possible to highlight items with children, with a different background color, for those arrow picture is shown (items, inner ring)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.Expanded = True
.ShadowColor = -1
.InflateItems = "-8*dpi"
.ItemsBackColor = RGB(240,240,240)
.RadialLineColor(13) = RGB(0,0,0)
.RadialLineAlpha(13) = 64
.RadialLineSize(13) = -1
.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
End With
End Function
</SCRIPT>
</BODY>
|
|
54
|
Is it possible to highlight items with children, with a different background color, for those arrow picture is shown (subitems, outer ring)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.Expanded = True
.ShadowColor = -1
.InflateItems = "-8*dpi"
.ItemsBackColor = RGB(240,240,240)
.RadialLineColor(12) = RGB(0,0,0)
.RadialLineAlpha(12) = 64
.RadialLineSize(12) = -1
.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
End With
End Function
</SCRIPT>
</BODY>
|
|
53
|
Is it possible to highlight the entire item, when cursor hovers it
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.Expanded = True
.ShadowColor = -1
.InflateItems = "-8*dpi"
.ItemsBackColor = RGB(240,240,240)
.RadialLineColor(11) = RGB(0,0,0)
.RadialLineAlpha(11) = 64
.RadialLineSize(11) = -1
.Items.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
End With
End Function
</SCRIPT>
</BODY>
|
|
52
|
How can I change the border around the subitems zone, when cursor hovers it ( outer ring )
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.Expanded = True
.ShadowColor = -1
.InflateItems = "-8*dpi"
.ItemsBackColor = RGB(240,240,240)
.RadialLineColor(11) = RGB(0,0,0)
.RadialLineStyle(11) = 2
.RadialLineSize(11) = 3
.Items.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
End With
End Function
</SCRIPT>
</BODY>
|
|
51
|
How can I change the border around the subitems zone, when cursor hovers it ( outer ring )
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.Expanded = True
.ShadowColor = -1
.InflateItems = "-8*dpi"
.ItemsBackColor = RGB(240,240,240)
.RadialLineColor(10) = RGB(0,0,0)
.RadialLineStyle(10) = 2
.RadialLineSize(10) = 3
.Items.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
End With
End Function
</SCRIPT>
</BODY>
|
|
50
|
How can I change the border around the items zone, when cursor hovers it ( inner ring )
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.Expanded = True
.ShadowColor = -1
.InflateItems = "-8*dpi"
.ItemsBackColor = RGB(240,240,240)
.RadialLineColor(9) = RGB(0,0,0)
.RadialLineStyle(9) = 2
.RadialLineSize(9) = 3
.Items.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
End With
End Function
</SCRIPT>
</BODY>
|
|
49
|
How can I change the border around the parent zone, when cursor hovers it ( center ring )
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.Expanded = True
.ShadowColor = -1
.InflateItems = "-8*dpi"
.ItemsBackColor = RGB(240,240,240)
.RadialLineColor(8) = RGB(0,0,0)
.RadialLineStyle(8) = 2
.RadialLineSize(8) = 3
End With
End Function
</SCRIPT>
</BODY>
|
|
48
|
How can I change the border around the items zone ( inner ring )
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.Expanded = True
.ShadowColor = -1
.InflateItems = "-8*dpi"
.ItemsBackColor = RGB(240,240,240)
.RadialLineColor(7) = RGB(0,0,0)
.RadialLineStyle(7) = 2
.RadialLineSize(7) = 3
End With
End Function
</SCRIPT>
</BODY>
|
|
47
|
How can I change the border around the parent zone ( center ring )
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.Expanded = True
.ShadowColor = -1
.InflateItems = "-8*dpi"
.ItemsBackColor = RGB(240,240,240)
.RadialLineColor(6) = RGB(0,0,0)
.RadialLineStyle(6) = 2
.RadialLineSize(6) = 3
End With
End Function
</SCRIPT>
</BODY>
|
|
46
|
How can I change the grid lines in the items zone ( inner ring )
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.Expanded = True
.ShadowColor = -1
.InflateItems = "-8*dpi"
.ItemsBackColor = RGB(240,240,240)
.RadialLineColor(5) = RGB(0,0,0)
.RadialLineStyle(5) = 2
.RadialLineSize(5) = 3
End With
End Function
</SCRIPT>
</BODY>
|
|
45
|
How can I change the border around the slider / custom part of the control
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.Expanded = True
.ShadowColor = -1
.InflateItems = "-8*dpi"
.InflateCustom = .InflateItems
.ItemsBackColor = RGB(240,240,240)
.RadialLineColor(4) = RGB(0,0,0)
.RadialLineStyle(4) = 2
.RadialLineSize(4) = 3
With .Items
With .Add("Slider")
.BrowseType = 2
.BrowseCustomType = 16
End With
End With
.BrowseItem = .Items.Item("Slider")
End With
End Function
</SCRIPT>
</BODY>
|
|
44
|
How can I change the grid lines in the subitems zone ( outer ring )
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.Expanded = True
.ShadowColor = -1
.InflateItems = "-8*dpi"
.ItemsBackColor = RGB(240,240,240)
.RadialLineColor(3) = RGB(0,0,0)
.RadialLineStyle(3) = 2
.RadialLineSize(3) = 3
End With
End Function
</SCRIPT>
</BODY>
|
|
43
|
How can I change the border around the subitems (exRadialSubItemsBorder)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.Expanded = True
.ShadowColor = -1
.InflateItems = "-8*dpi"
.ItemsBackColor = RGB(240,240,240)
.RadialLineColor(2) = RGB(0,0,0)
.RadialLineStyle(2) = 2
.RadialLineSize(2) = 3
End With
End Function
</SCRIPT>
</BODY>
|
|
42
|
How can I change the border around the radial menu (exRadialBorder)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.Expanded = True
.ShadowColor = -1
.InflateItems = "-8*dpi"
.ItemsBackColor = RGB(240,240,240)
.RadialLineColor(1) = RGB(0,0,0)
.RadialLineStyle(1) = 2
.RadialLineSize(1) = 3
End With
End Function
</SCRIPT>
</BODY>
|
|
41
|
How can I customize the parent part of the control, the center ring/circle
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.Expanded = True
.Items.ToString = "Item 1[scap=Item 1],Item 2[scap=Item 2],Item 3[scap=Item 3],Item 4[scap=Item 4]"
.ParentSize = "48 * dpi"
.ParentImageHeight(-1) = "78 * dpi"
.ParentImageWidth(-1) = "78 * dpi"
.ParentBackColor = RGB(0,255,0)
.ParentBackAlpha = 128
.ExcludeParentFromItems = True
End With
End Function
</SCRIPT>
</BODY>
|
|
40
|
How can I prevent showing the arrow in the outer ring
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.Expanded = True
.ArrowImage = ""
.Items.ToString = "Child(SubChild)"
End With
End Function
</SCRIPT>
</BODY>
|
|
39
|
Is it possible to change the default arrow, that items with children display (method 2)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.Expanded = True
.HTMLPicture("pic1") = "gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0iIEOZCJJUBEjBB8BBkRERAJzKRHIQAVzODjpjpnIJNIMKWKPBb8MIFiIJOBILJzhQLCdHCYBACaTgYiKHJJEI" & _
"JULBHMYYAqjMAURiCKJAAogA6lA4EGgAeJnEC2ALzdAMICWf6HMS6HYCbJyvF6eSfIC8CqJJ5zI6gLbuA7ERhAHgNFRGKZHMCzDgGNDukqWYYAZocSIIYiEFiHAJsRyg" & _
"XCccABcTDIBMZByDBAOwEFDkVACICOOCAGCJAQgI54IaYrlesAwBQGGpgMEKcpDGoqB6RSpriIAJJFJxEVxCMCCgI"
.ArrowImage = "pic1"
.Items.ToString = "Child(SubChild)"
End With
End Function
</SCRIPT>
</BODY>
|
|
38
|
Is it possible to change the default arrow, that items with children display (method 1)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.HTMLPicture("arrow") = "gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0iIEOZCJJUBEjBB8BBkRERAJzKRHIQAVzODjpjpnIJNIMKWKPBb8MIFiIJOBILJzhQLCdHCYBACaTgYiJfJJEI" & _
"JULBHdrOYIJQAwCBEaK1FQbeaoYwGVjLWR0EgJRAEBpICwPf7BY4cQgdAYAcCjUCWfD0G6rHrlHziPTcPrEUjuY5zZpHHgdZ41DYxVTSYJSaojXT0PrTVZBar+P5aaoW" & _
"T8KfiWbIBZQ1ErVPbDPyYiIAJJFJxEVxCMCCgIA=="
.Expanded = True
.Items.ToString = "Child(SubChild)"
End With
End Function
</SCRIPT>
</BODY>
|
|
37
|
How can I change the logo image
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.HTMLPicture("logo") = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images\favorites.png"
End With
End Function
</SCRIPT>
</BODY>
|
|
36
|
How can I customize the items part of the control, the inside ring/circle
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.DisplayRadial(3) = 1
.Expanded = True
.Items.ToString = "Item 1[scap=Item 1],Item 2[scap=Item 2],Item 3[scap=Item 3],Item 4[scap=Item 4]"
.InflateRadialMenu = "-4*dpi"
.InflateItems = "-4*dpi"
.ItemsBackColor = RGB(0,255,0)
.ItemsBackAlpha = 128
End With
End Function
</SCRIPT>
</BODY>
|
|
35
|
How can I customize the subitems part of the control, the outside ring/circle
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.Expanded = True
.Items.ToString = "[scap=Item 1],[scap=Item 2],[scap=Item 3],[scap=Item 4]"
.InflateRadialMenu = "-4*dpi"
.SubItemsSize = "48 * dpi"
.SubItemsBackColor = RGB(0,255,0)
.SubItemsBackAlpha = 128
End With
End Function
</SCRIPT>
</BODY>
|
|
34
|
Can I expand/shrink the radial menu relative to its border/shadow
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.Expanded = True
.Items.ToString = "Item 1,Item 2,Item 3,Item 4"
.InflateRadialMenu = "-6*dpi"
End With
End Function
</SCRIPT>
</BODY>
|
|
33
|
Is it possible to remove/hive the control's shadow
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.Expanded = True
.ShadowColor = -1
.Items.ToString = "Item 1,Item 2,Item 3,Item 4"
End With
End Function
</SCRIPT>
</BODY>
|
|
32
|
How do I change the color of the control's shadow
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.Expanded = True
.ShadowColor = RGB(255,0,0)
.Items.ToString = "Item 1,Item 2,Item 3,Item 4"
End With
End Function
</SCRIPT>
</BODY>
|
|
31
|
How can I evaluate/format an expression using the control
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.AllowToggleExpand = False
.DisplayAngle = -66
.Items.ToString = "Item 1,Item 2,Item 3,Item 4"
.Caption(0) = .FormatABC("`The number of items is: <b>` + value",.Items.Count)
End With
End Function
</SCRIPT>
</BODY>
|
|
30
|
Is it possible to display some extra captions on the control's background
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.BeginUpdate
.Expanded = True
.MinVisibleCount = 6
.Items.ToString = "Item 1,Item 2,Item 3,Item 4"
.Caption(0) = "This is a caption to be displayed on the control's background."
.ExtraCaption("extra",0) = "This is an extra caption to be displayed on the control's background."
.ExtraCaption("extra",3) = 2
.ExtraCaption("extra",8) = True
.ExtraCaption("extralogo",0) = "<img>logo:64</img>"
.ExtraCaption("extralogo",3) = 4
.ExtraCaption("extralogo",4) = "width-twidth"
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
29
|
What events the control supports
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function RadialMenu1_Event(EventID)
With RadialMenu1
alert( .EventParam(-2) )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.BeginUpdate
.Expanded = True
.Items.ToString = "Item 1,Item 2,Item 3,Item 4"
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
28
|
How can I use/load images/pictures
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.BeginUpdate
.Expanded = True
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.HTMLPicture("relative") = "settings.png"
.HTMLPicture("absolute") = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images\favorites.png"
.HTMLPicture("encoded") = "gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0iIEOZCJJUBEjBB8BBkRERBJwJBZOcKAZ2mB2AJ9aqCZkRDJ0IpYOhTN5mOh3MJyMoAO9JFxpNxrOZjMJwMouN" & _
"5yM6bdw8DUKAjoJJEIJULCFYqXLpsChVCjHf4zTo7XZjXazUJQUgCWoNCqWYp+ZS2vDyEqSGz6UjUA4tRIkAysGyRC6fPogEyaCCjYI3Dw0YyETDiQbRA5TSJ+aQWUKL" & _
"cAubrdNTaOi7XBYbRlO67brOXpzPrATrdOpmRZGFInHLJfo4GbnG7ncbeRjAHLHYYUeKhPQHEBlAynJ6fbRcXyxeQLTZsNZJEwTETnAAhEirGQBSIyOYZQhISAkARRCh" & _
"QnWHQUGqUA0goTRbAYJpplAKIGm0WQ7DeVg0jARggksBJRkYBx/AiTp2nYdw/DuHQHjANpsjGT53jabprl0MwmhSAggjwEAvlWdY9Cieg7HobJYmWUYvgENBkgGcAdE8" & _
"FIXBcYJ5SiAY4k8SJpBqUoQEkeg6DMNwACIUZfguVojCCORnBiCcmPmFhSimLBWkcRBjnGYxsAAMBKFaDRAGcTACgALYMnAMQ/h+bwdnqHwAHAUYHh+IAujaRpSm6dJH" & _
"h+zJvj8M4tD+UJegaE5dm+Gw+DKYgcAOFBpmCHIXlQH5+DwCInGqAJijcI53kKBYCnaRwOnaYh9FkOooA6EpDFcF4tkOMYjh2BoNmMOgZkAVwzlSfwXFiLAGB+b5cECQ" & _
"Z9nucZgF8XoMAyXZGDoHQ2jSVZVBUXRdicYB0joDBtOAARVFUDQbCYW5ECAUzGjoMA0AQUQUFAUJfAcHZPjUAhSg0IwjGOBRtBuPZNFgYZykEKY6jAQ5lkKMwnimbwfF" & _
"GKwAFYGBgGgUoljwIgoigK4pkGXRNA0ZAZGCYB4CgII9iCCB4GUSIHBwKoKg6I4dIqIQfEAKoFDQAJADgHBGEyOAMD2LYtjCW5tiiKQpEEHpdjsEIIAYMR3GcTpBAgCu" & _
"/nQPh6hqHgvCiMJtH2K4U3aDYBhCCR1DUNZGlqQx9D0JApAjjgjgWAQoCUKJe40SgpWwOoFGYQxdFccZlHwKpsDaGxcFsNoamsboXAuMghDgfJlCeFY7EcSp5j2FJQZo" & _
"cwbQUQxICYExYjOa43GwMhNlid2xmgbBoEAfJ8h2TBNE0WQ6DkOpuEWC4vj0DIbhOARzAeWZVACVYRA4e49BCBMAQtw9i7BSDIHY3A3AQd+NUHYbhug5GGEMdA7g9ATH" & _
"6IMQY5hkAUB0AkOYRRpg0CYAQE4QAyAJB7CkdAgQsgIBCPAfI/Q0BvDWIMKgZBeAKX4BoSIWxbjwGsPEcY+BfC3Au6ZzQdhPj9EmKMfAZhwAmBwOcVAqhWDEFsK0bYAB" & _
"FhTG0Oce4IQ5ArEEEAEAgB2iuHaMYfQ+AagvDsDcG4AQACaB6B4Lguw/AdEaPUeoOQADZAoOQLoRhdCeG6PAfY/RIAJGCKEQYhxYB5GmcId4BxlDLGWHEdwqw5wwD6Pc" & _
"EAMwABeBeJ4P47gIB0C6McSYbgbguHsPdiYthrDYF+O8MolAuBMDEDYCQxhtC1FKNgeA6BDCCGOO4UwjRNigXsGYYQMwsBcC4IRiCdBxiIG8I4UQbxQAPAEAQOAcBmBG" & _
"DMJEJAJAoTWDYPg+Y5ALDGDICgAgSRJDgDSPQcgRRihKE0HcGwYw8BkAQMEKAABag1DrKANAOw+AYBaLsLYDBNj+GCAEfg4paBpFOMccgKw9gZHKHQYI5A3iTkaEEMoV" & _
"RqiKD6M4HIRwqtVAQJEGA+Q1gIE4HMAgQywhvFSEYEVOB6CJBaNUBEJA5C6BQAsEAZBhDeqoMYZ4nB8gUUavEEICABDuG8L0PY3wECIFEAimqrwjgsAsIMaY6QiA8A8M" & _
"8PYTgKBFBwBwBwxAxAxAAMAZIkx3jgH4PkV4hR+AUH4HUNQARgDCsgIoJwcxCgxEM+IPIYw3D1BYGMFgbwegXBcK8AwchtjwCCEoVwFwBhABMDIconAlgWHsP8XYKA7D" & _
"FFwAwOQfxmh6FPcEd4Ww6D/CqCMSICAMBjD6KYBAzBmjNF6HEew7BsjPCoFUNoTQTCTCKAAUAKAFDsDsDuu4sQODbDYDYJAkgCBKBSNIdINBLX1EgEoUt9xShMDHfAMg" & _
"WQzCpCoGoMAYQwjhHqIwL4YRajyC8EgDw+hvjxE+BUNgPAgjmBkBsfpEQABJCKE4IgrghBgEEQEA="
.BackgroundPicture = "Background\frame.png"
With .Items
.Add "Relative 1","relative"
.Add("Relative 1").Image(1) = "settings.png"
.Add "Aboslute 1","absolute"
.Add "Aboslute 2","favorites.png"
.Add "Encoded 1","encoded"
.Add("Encoded 2").Image(1) = "gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0iIEOZCJJUBEjBB8BBkRERBJwJBZOcKAZ2mB2AJ9aqCZkRDJ0IpYOhTN5mOh3MJyMoAO9JFxpNxrOZjMJwMouN" & _
"5yM6bdw8DUKAjoJJEIJULCFYqXLpsChVCjHf4zTo7XZjXazUJQUgCWoNCqWYp+ZS2vDyEqSGz6UjUA4tRIkAysGyRC6fPogEyaCCjYI3Dw0YyETDiQbRA5TSJ+aQWUKL" & _
"cAubrdNTaOi7XBYbRlO67brOXpzPrATrdOpmRZGFInHLJfo4GbnG7ncbeRjAHLHYYUeKhPQHEBlAynJ6fbRcXyxeQLTZsNZJEwTETnAAhEirGQBSIyOYZQhISAkARRCh" & _
"QnWHQUGqUA0goTRbAYJpplAKIGm0WQ7DeVg0jARggksBJRkYBx/AiTp2nYdw/DuHQHjANpsjGT53jabprl0MwmhSAggjwEAvlWdY9Cieg7HobJYmWUYvgENBkgGcAdE8" & _
"FIXBcYJ5SiAY4k8SJpBqUoQEkeg6DMNwACIUZfguVojCCORnBiCcmPmFhSimLBWkcRBjnGYxsAAMBKFaDRAGcTACgALYMnAMQ/h+bwdnqHwAHAUYHh+IAujaRpSm6dJH" & _
"h+zJvj8M4tD+UJegaE5dm+Gw+DKYgcAOFBpmCHIXlQH5+DwCInGqAJijcI53kKBYCnaRwOnaYh9FkOooA6EpDFcF4tkOMYjh2BoNmMOgZkAVwzlSfwXFiLAGB+b5cECQ" & _
"Z9nucZgF8XoMAyXZGDoHQ2jSVZVBUXRdicYB0joDBtOAARVFUDQbCYW5ECAUzGjoMA0AQUQUFAUJfAcHZPjUAhSg0IwjGOBRtBuPZNFgYZykEKY6jAQ5lkKMwnimbwfF" & _
"GKwAFYGBgGgUoljwIgoigK4pkGXRNA0ZAZGCYB4CgII9iCCB4GUSIHBwKoKg6I4dIqIQfEAKoFDQAJADgHBGEyOAMD2LYtjCW5tiiKQpEEHpdjsEIIAYMR3GcTpBAgCu" & _
"/nQPh6hqHgvCiMJtH2K4U3aDYBhCCR1DUNZGlqQx9D0JApAjjgjgWAQoCUKJe40SgpWwOoFGYQxdFccZlHwKpsDaGxcFsNoamsboXAuMghDgfJlCeFY7EcSp5j2FJQZo" & _
"cwbQUQxICYExYjOa43GwMhNlid2xmgbBoEAfJ8h2TBNE0WQ6DkOpuEWC4vj0DIbhOARzAeWZVACVYRA4e49BCBMAQtw9i7BSDIHY3A3AQd+NUHYbhug5GGEMdA7g9ATH" & _
"6IMQY5hkAUB0AkOYRRpg0CYAQE4QAyAJB7CkdAgQsgIBCPAfI/Q0BvDWIMKgZBeAKX4BoSIWxbjwGsPEcY+BfC3Au6ZzQdhPj9EmKMfAZhwAmBwOcVAqhWDEFsK0bYAB" & _
"FhTG0Oce4IQ5ArEEEAEAgB2iuHaMYfQ+AagvDsDcG4AQACaB6B4Lguw/AdEaPUeoOQADZAoOQLoRhdCeG6PAfY/RIAJGCKEQYhxYB5GmcId4BxlDLGWHEdwqw5wwD6Pc" & _
"EAMwABeBeJ4P47gIB0C6McSYbgbguHsPdiYthrDYF+O8MolAuBMDEDYCQxhtC1FKNgeA6BDCCGOO4UwjRNigXsGYYQMwsBcC4IRiCdBxiIG8I4UQbxQAPAEAQOAcBmBG" & _
"DMJEJAJAoTWDYPg+Y5ALDGDICgAgSRJDgDSPQcgRRihKE0HcGwYw8BkAQMEKAABag1DrKANAOw+AYBaLsLYDBNj+GCAEfg4paBpFOMccgKw9gZHKHQYI5A3iTkaEEMoV" & _
"RqiKD6M4HIRwqtVAQJEGA+Q1gIE4HMAgQywhvFSEYEVOB6CJBaNUBEJA5C6BQAsEAZBhDeqoMYZ4nB8gUUavEEICABDuG8L0PY3wECIFEAimqrwjgsAsIMaY6QiA8A8M" & _
"8PYTgKBFBwBwBwxAxAxAAMAZIkx3jgH4PkV4hR+AUH4HUNQARgDCsgIoJwcxCgxEM+IPIYw3D1BYGMFgbwegXBcK8AwchtjwCCEoVwFwBhABMDIconAlgWHsP8XYKA7D" & _
"FFwAwOQfxmh6FPcEd4Ww6D/CqCMSICAMBjD6KYBAzBmjNF6HEew7BsjPCoFUNoTQTCTCKAAUAKAFDsDsDuu4sQODbDYDYJAkgCBKBSNIdINBLX1EgEoUt9xShMDHfAMg" & _
"WQzCpCoGoMAYQwjhHqIwL4YRajyC8EgDw+hvjxE+BUNgPAgjmBkBsfpEQABJCKE4IgrghBgEEQEA="
.Add "<c><img>relative</img><br><c>Relative 3"
.Add "<c>Relative 4<br><c><img>relative</img>","relative"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
27
|
Does your control supports tooltips (method 2)
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function RadialMenu1_MouseMove(Button,Shift,X,Y)
With RadialMenu1
.ShowToolTip .FormatABC("`Index of the pie from the cursor: ` + (value >= 0 ? value : `<fgcolor=808080>none` )",.IndexFromPoint(3,-1,-1)),"Info",0,"8","8"
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.BeginUpdate
.DisplayAngle = -45
.Expanded = True
With .Items
.ToString = "Item 0"
.Add "Item 1"
.Add "Item 2"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
26
|
Can I change the visual appearance of the control's tooltip
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.BeginUpdate
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
.Background(64) = &H1000000
.DisplayAngle = -45
.Expanded = True
With .Items
.ToString = "Item 0[ttp=tooltip's item][sttp=tooltip's subitem]"
.Add("Item 1").Tooltip(1) = "This is a bit of text that shown when user <b>hovers</b> the item"
With .Add("Item 2")
.Tooltip(1) = "This is a bit of text that shown when user hovers the item"
.Tooltip(2) = "This is a bit of text that shown when user hovers the sub-item"
End With
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
25
|
Does your control supports tooltips (method 1)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.DisplayAngle = -45
.Expanded = True
With .Items
.ToString = "Item 0[ttp=tooltip's item][sttp=tooltip's subitem]"
.Add("Item 1").Tooltip(1) = "This is a bit of text that shown when user <b>hovers</b> the item"
With .Add("Item 2")
.Tooltip(1) = "This is a bit of text that shown when user hovers the item"
.Tooltip(2) = "This is a bit of text that shown when user hovers the sub-item"
End With
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
24
|
How can I use/load icons
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.BeginUpdate
.Expanded = True
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images\Icons"
.Images "copy.ico"
.Images "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images\Icons\dvd.ico"
.Images "gBJJgBggAAQAAgACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUnOktd54mD/lp0f5wmz/Ns5f5qnj/NE/f5noT/M1FolGopmo9KpNLpxfqDvldTq" & _
"lVq1XrFZrVbrldr1fjKPsT/ftlf72er0s71er/e72e1ut9ye90uz3vF3vN4ut8u1NsGBwWDwmFw2DUWJf9peb/UyXSj/Yq+Xj/Y7BX7/ZLDYL/ZTFYeeYrEf7LY2kZbH" & _
"Yul1T/arTaT/Kq4Kb/G7IGz/cD5cD/Ne/f+H4XD4nF41UWvJxb0xq4Viqf66V6sf68WKvf69WSw7KzWL/Xy0WXg8T/X/l8/jbzcbb/MDAL/uanxcb7cb/Pv54PH/n9/z" & _
"/qsY8BOWxq0LUtC2reuK8QWvcHL7B67HAeTem2er2n0fx9H+SEOv3AEQRDETDl/Ep3mWZJkH+ZhlGUf5mmWZcXmZGUaRkZRkmSf5kQG0bSGEYTOmBErsl4ypdFyXJ/lu" & _
"W5bH+WkoH+TEpqlEcrSvLCsKEM5Am6bT2n4eq6zDMcxH/MkzzMfZ6LifR5rafB4wKd54H+eR1HWf52nIcp/nKbhun+SpJEkf4aUOQMs0VRdFAbRwImfSJ/nyeS1TQclA" & _
"H+fR7Lqc52PuGBVBgf4klaIx/mMYRbs8XEnGZIc9T4f5vmua5/j3XB/gPXYI0ZX1fwAgiCD/YhPnIcJxTSup+nyfZ/nceh2n+HRYh4f4HFCCNr2zaZYh2f51ngdB/nwe" & _
"a1T3PpbFk8Yn3aT9hJJYF5Xm4V4A1e4Q0iZ9J0rZ54HSf4glqIh/gwU4OH+FxahxhOF4Lg5/iAWYhH+chzG8f5znAcJ/ksSpKn+CORBDeF6ZNk6wXheA5ZYR5gmUYWIl" & _
"kIp/g+VgTH+Gxc4oJRiiyf4jmGKuc53mubn+HBVB8f5MlETR/itqJH5VYWUatq6r6pqgQkeE5nhSWIYn/sGxbIf4wmmOp/imZQybHsO37LuGua9rWVaxvG8ozu2+a0GZ" & _
"bh6f48nCSKgmsPh/7/wO+8Zqu9cfq3G8aFBaYYL5tEIf4omgOJ/8phnJcZyHR5N0O+gqVgUn+Fhgisf4TF4JZ/9R1XTb50ncWB227AiUgQ5D33gd/3vf93rXc+RRaKh8" & _
"lfmI6j6Q72AF4oyQDBIf5N6IC"
.HTMLPicture("icon") = "download.ico"
With .Items
.ToString = "Icon 0[img=0]"
.Add "Icon 1",1
.Add "Icon 2","print.ico"
.Add("Icon 3").Image(2) = "icon"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
23
|
How can I load items /images to the control, in sub-items zone
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.BeginUpdate
.AllowToggleExpand = False
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.HTMLPicture("logo") = "settings.png"
.RadialLineColor(6) = .SubItemsBackColor
.RadialLineColor(5) = -1
.SubItemsSize = "64 * dpi"
.ParentSize = "value - 66 * dpi"
.ParentImageWidth(-1) = "64*dpi"
.ParentImageHeight(-1) = "64*dpi"
.ParentCaption(-1) = "<font ;14><c>System Settings</font><br><c>Surround"
.RadialLineSize(11) = 0
.RadialLineSize(10) = -1
.RadialLineColor(10) = &H8000000d
.RadialLineAlpha(10) = 128
.ItemsBackColor = .SubItemsBackColor
With .Items
.Add "","color_line.png",2
.Add "","color_fill.png",2
.Add "","format_font_size_less.png",2
.Add "","edit_undo.png",2
.Add "","edit_redo.png",2
.Add "","edit_copy.png",2
.Add "","fileview_text.png",2
.Add "","checkmark_korganizer.png",2
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
22
|
How can I load items /images to the control
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.BeginUpdate
.Expanded = True
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.HTMLPicture("arrow") = "arrow.png"
.SubItemsBackColor = RGB(190,190,190)
.ShadowColor = .SubItemsBackColor
.RadialLineColor(6) = .SubItemsBackColor
.RadialLineColor(5) = -1
With .Items
.Add("Foreground-Color","color_line.png").Items.ToString = "Foreground"
.Add("Background-Color","color_fill.png").Items.ToString = "Background"
.Add("Font","format_font_size_less.png").Items.ToString = "Font"
.Add("Undo","edit_undo.png").Items.ToString = "Undo"
.Add("Redo","edit_redo.png").Items.ToString = "Redo"
.Add("Copy","edit_copy.png").Items.ToString = "Copy"
.Add("List","fileview_text.png").Items.ToString = "List"
.Add("Tag","checkmark_korganizer.png").Items.ToString = "Tag"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
21
|
How can I load items to the control
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.BeginUpdate
.MinVisibleCount = 3
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.HTMLPicture("remove") = "remove.png"
.HTMLPicture("refresh") = "refresh.png"
.HTMLPicture("preview") = "preview.png"
.HTMLPicture("search") = "search.png"
With .Items
With .Add("Search","search").Items
.ToString = "Search A,Search B,Search C"
End With
.Add "Refresh","refresh"
.Add "Preview","preview"
.Add "Remove","remove"
End With
.Expanded = True
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
20
|
How do I get the version of the control I am running
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
alert( "Version:" )
alert( .Version )
End With
End Function
</SCRIPT>
</BODY>
|
|
19
|
How do I select an item
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function RadialMenu1_SelectItem(Item)
' SelectedIndex(3) = Item.Index
With RadialMenu1
alert( "selection changed" )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.AllowToggleExpand = False
.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
.SelectedIndex(3) = 0
End With
End Function
</SCRIPT>
</BODY>
|
|
18
|
How can I change the item's foreground color (sample 3)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.BeginUpdate
.Expanded = True
.MinVisibleCount = 6
.Font.Size = "14.25"
With .Items
With .Add("Item 1")
.Name = "<fgcolor FF0000>Item</fgcolor> 1"
With .Items
.Add "SubItem 1"
.Add "SubItem 2"
End With
End With
.Add "Item 2"
.Add "Item 3"
.Add "Item 4"
.Add "Item 5"
.Add "Item 6"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
17
|
How can I change the item's foreground color (sample 2)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.BeginUpdate
.Expanded = True
.MinVisibleCount = 6
.Font.Size = "14.25"
With .Items
With .Add("Item 1")
.ForeColor(1) = RGB(255,0,0)
With .Items
.Add "SubItem 1"
.Add "SubItem 2"
End With
End With
.Add "Item 2"
.Add "Item 3"
.Add "Item 4"
.Add "Item 5"
.Add "Item 6"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
16
|
How can I change the item's foreground color (sample 1)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.BeginUpdate
.Expanded = True
.MinVisibleCount = 6
.Font.Size = "14.25"
.ForeColor = RGB(255,0,0)
With .Items
With .Add("Item 1").Items
.Add "SubItem 1"
.Add "SubItem 2"
End With
.Add "Item 2"
.Add "Item 3"
.Add "Item 4"
.Add "Item 5"
.Add "Item 6"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
15
|
How can I add new items / childrend to the control (method 2)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.BeginUpdate
.Expanded = True
With .Items
With .Add("Item 1").Items
.Add "SubItem 1"
.Add "SubItem 2"
End With
.Add "Item 2"
.Add "Item 3"
.Add "Item 4"
.Add "Item 5"
.Add "Item 6"
.Add "Item 7"
.Add "Item 8"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
14
|
How can I add new items / childrend to the control (method 1)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.BeginUpdate
.Expanded = True
.ToString = "Item 1(SubItem 1,SubItem 2),Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
13
|
How do I enlarge the font (method 2)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.BeginUpdate
.AllowToggleExpand = False
.MinVisibleCount = 4
.ToString = "Item 1,Item 2,Item 3,Item 4"
.Items.Item(0).Name = "<font ;14>Item 1"
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
12
|
How do I enlarge the font (method 1)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.BeginUpdate
.AllowToggleExpand = False
.MinVisibleCount = 4
.ToString = "Item 1,Item 2,Item 3,Item 4"
.Font.Size = "14.25"
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
11
|
How can I expand the control (method 2)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.AllowToggleExpand = False
End With
End Function
</SCRIPT>
</BODY>
|
|
10
|
How can I expand the control (method 1)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.Expanded = True
End With
End Function
</SCRIPT>
</BODY>
|
|
9
|
By default, the control displays 8-pies. How can I change that
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.Expanded = True
.MinVisibleCount = 3
End With
End Function
</SCRIPT>
</BODY>
|
|
8
|
How can I prevents expanding / collapsing the radial menu
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.BeginUpdate
.AllowToggleExpand = False
.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
.Caption(0) = "Cant expand/collapse the radial menu"
.Caption(3) = 0
.Caption(4) = "width-twidth"
.Caption(5) = "height-theight"
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
7
|
How can I prevent flickering the item, when user selects it
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.AllowToggleExpand = False
.ToString = "<c><b>Item 1<b><br><c>no flick<br>,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
.Items.Item(0).BrowseType = -1 ' &Hfffffffc Or BrowseItemEnum.exBrowseItemCustom Or BrowseItemEnum.exBrowseItemChild
End With
End Function
</SCRIPT>
</BODY>
|
|
6
|
How do I highlight the sub-item zone when cursor hovers it (method 2)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.Expanded = True
.RadialLineSize(11) = .FormatABC(.SubItemsSize)
.RadialLineColor(11) = &H8000000d
.RadialLineAlpha(11) = 64
With .Items
.Add "Item A"
.Add "Item B"
.Add "Item C"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
5
|
How do I highlight the sub-item zone when cursor hovers it (method 1)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.Expanded = True
.RadialLineSize(11) = 0
.RadialLineSize(10) = -1
.RadialLineColor(10) = &H8000000d
.RadialLineAlpha(10) = 64
With .Items
.Add "Item A"
.Add "Item B"
.Add "Item C"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
4
|
Is it possible to highlight the entire item when cursor hovers the item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.Expanded = True
.RadialLineSize(11) = -1
.RadialLineColor(11) = &H8000000d
.RadialLineAlpha(11) = 64
With .Items
.Add "Item A"
.Add "Item B"
.Add "Item C"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
3
|
How can I hide the hot line when hovering the cursor
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.AllowToggleExpand = False
.RadialLineSize(11) = 0
With .Items
.Add "Item A"
.Add "Item B"
.Add "Item C"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
2
|
How can I hide the control's shadow
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.Expanded = True
.ShadowColor = -1
End With
End Function
</SCRIPT>
</BODY>
|
|
1
|
How do I change the control's background color
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.BackColor = RGB(240,240,249)
End With
End Function
</SCRIPT>
</BODY>
|