|
95
|
The control shows no icons. What can be the problem (32-bit, alpha channel vs 4-bit icons problem)
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
|
|
94
|
ImageSize property on 32 (specifies the size of control' icons/images)
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
|
|
93
|
ImageSize property on 16 (specifies the size of control' icons/images)
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
|
|
92
|
How can I displays items rotated (exDisplayRadialRotated90)
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
|
|
91
|
How can I displays items rotated (exDisplayRadialRotated270)
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
|
|
90
|
How can I displays items rotated (exDisplayRadialRotated180)
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
|
|
89
|
How can I displays items rotated (exDisplayRadialRotated)
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
|
|
88
|
How do I load images to sub-items zone
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
|
|
87
|
How can I display the control directly on the screen
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
|
|
86
|
How do I add a radial-slider control
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
|
|
85
|
How can I display a slider directly on the radial menu, with no items...
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
|
|
84
|
How can I programatically browses for a new item
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
|
|
83
|
How can I display the items rotated
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
|
|
82
|
Is it possible to display the arrow into the items section, and how I can change the default position
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
|
|
81
|
Can I display the arrow into the items section
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
|
|
80
|
How can I know if the cursor is hovering the center ring ( parent zone )
' MouseMove event - Occurs when the user moves the mouse.
Private Sub RadialMenu1_MouseMove(ByVal Button As Integer,ByVal Shift As Integer,ByVal X As Long,ByVal Y As Long)
With RadialMenu1
Debug.Print( "ParentOnPoint " )
Debug.Print( .ParentOnPoint(-1,-1) )
End With
End Sub
With RadialMenu1
.Expanded = True
End With
|
|
79
|
How can I specify the size to display the images/pictures into the items
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
|
|
78
|
By default, the parent image is 32-pixels wide. Can I display it larger
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
|
|
77
|
Is it possible to specify where to display the item's caption
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
|
|
76
|
How can I disable browsing the items, or prevent displaying its children
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
|
|
75
|
How do I get the item from the point
' MouseMove event - Occurs when the user moves the mouse.
Private Sub RadialMenu1_MouseMove(ByVal Button As Integer,ByVal Shift As Integer,ByVal X As Long,ByVal Y As Long)
With RadialMenu1
Debug.Print( "Full-Item: " )
Debug.Print( .ItemFromPoint(3,-1,-1).Caption(1) )
Debug.Print( "Item: " )
Debug.Print( .ItemFromPoint(1,-1,-1).Caption(1) )
Debug.Print( "SubItem: " )
Debug.Print( .ItemFromPoint(2,-1,-1).Caption(2) )
End With
End Sub
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
|
|
74
|
How do I get the index of the pie from the point
' MouseMove event - Occurs when the user moves the mouse.
Private Sub RadialMenu1_MouseMove(ByVal Button As Integer,ByVal Shift As Integer,ByVal X As Long,ByVal Y As Long)
With RadialMenu1
Debug.Print( "Full-Index: " )
Debug.Print( .IndexFromPoint(3,-1,-1) )
Debug.Print( "Index: " )
Debug.Print( .IndexFromPoint(1,-1,-1) )
Debug.Print( "Sub-Index: " )
Debug.Print( .IndexFromPoint(2,-1,-1) )
End With
End Sub
With RadialMenu1
.Expanded = True
End With
|
|
73
|
How can I select an item
' SelectItem event - Notifies once the user selects an item.
Private Sub RadialMenu1_SelectItem(ByVal Item As Object)
' SelectedIndex(3) = Item.Index
End Sub
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
|
|
72
|
How can I use the sub-items zone only
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
|
|
71
|
Is it possible to display all items with a different rotation angle
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
|
|
70
|
How can I programatically advance / browse for the parent item (method 2)
' RClick event - Occurs once the user right clicks the control.
Private Sub RadialMenu1_RClick()
With RadialMenu1
.BrowseItem = .BrowseItem.Parent
End With
End Sub
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
|
|
69
|
How can I programatically advance / browse for the parent item (method 1)
' RClick event - Occurs once the user right clicks the control.
Private Sub RadialMenu1_RClick()
With RadialMenu1
.GoBack
End With
End Sub
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
|
|
68
|
Can I display the pointer with a different angle
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
|
|
67
|
How can I use the pointer (select sample)
' SelectItem event - Notifies once the user selects an item.
Private Sub RadialMenu1_SelectItem(ByVal Item As Object)
' PointerIndex = Item.Index
With RadialMenu1
.SelectedIndex(3) = .PointerIndex
End With
End Sub
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
|
|
66
|
How can I use the pointer (hot sample)
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
|
|
65
|
Is it possible to apply the control's background picture on the parent zone too
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
|
|
64
|
Can I display the picture on the parent zone, a bit larger
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
|
|
63
|
Is it possible to assign a different background picture when displaying a slider/custom data
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
|
|
62
|
How can I customize the custom part of the control, the inside ring/circle
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
|
|
61
|
How do I prevent expanding / collapsing the radial menu
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
|
|
60
|
Is it possible to change the parent's picture/image when expanding collapsing the radial menu
' BrowseItem event - Notifies once the user browses for a new item.
Private Sub RadialMenu1_BrowseItem(ByVal Item As Object)
With RadialMenu1
Debug.Print( "Current State: " )
Debug.Print( .State )
End With
End Sub
' SelectParent event - Occurs once the user clicks the parent of the item.
Private Sub RadialMenu1_SelectParent()
With RadialMenu1
Debug.Print( "Current State: " )
Debug.Print( .State )
End With
End Sub
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
|
|
59
|
Is it possible to assign a different picture on the parent zone (center ring)
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
|
|
58
|
Is it possible to assign a different picture on the items zone (inner ring)
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
|
|
57
|
How can I change the control's background picture
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
|
|
56
|
How can I hide the line being shown around the item form the cursor
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
|
|
55
|
Is it possible to highlight items with children, with a different background color, for those arrow picture is shown (items, inner ring)
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
|
|
54
|
Is it possible to highlight items with children, with a different background color, for those arrow picture is shown (subitems, outer ring)
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
|
|
53
|
Is it possible to highlight the entire item, when cursor hovers it
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
|
|
52
|
How can I change the border around the subitems zone, when cursor hovers it ( outer ring )
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
|
|
51
|
How can I change the border around the subitems zone, when cursor hovers it ( outer ring )
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
|
|
50
|
How can I change the border around the items zone, when cursor hovers it ( inner ring )
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
|
|
49
|
How can I change the border around the parent zone, when cursor hovers it ( center ring )
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
|
|
48
|
How can I change the border around the items zone ( inner ring )
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
|
|
47
|
How can I change the border around the parent zone ( center ring )
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
|
|
46
|
How can I change the grid lines in the items zone ( inner ring )
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
|
|
45
|
How can I change the border around the slider / custom part of the control
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
|
|
44
|
How can I change the grid lines in the subitems zone ( outer ring )
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
|
|
43
|
How can I change the border around the subitems (exRadialSubItemsBorder)
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
|
|
42
|
How can I change the border around the radial menu (exRadialBorder)
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
|
|
41
|
How can I customize the parent part of the control, the center ring/circle
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
|
|
40
|
How can I prevent showing the arrow in the outer ring
With RadialMenu1
.Expanded = True
.ArrowImage = ""
.Items.ToString = "Child(SubChild)"
End With
|
|
39
|
Is it possible to change the default arrow, that items with children display (method 2)
With RadialMenu1
.Expanded = True
.HTMLPicture("pic1") = "gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0iIEOZCJJUBEjBB8BBkRERAJzKRHIQAVzODjpjpnIJNIMKWKPBb8MIFiIJOBILJzhQLCdHCYBACaTgYiKHJJEI" & _
"JULBHMYYAqjMAURiCKJAAogA6lA4EGgAeJnEC2ALzdAMICWf6HMS6HYCbJyvF6eSfIC8CqJJ5zI6gLbuA7ERhAHgNFRGKZHMCzDgGNDukqWYYAZocSIIYiEFiHAJsRyg" & _
"XCccABcTDIBMZByDBAOwEFDkVACICOOCAGCJAQgI54IaYrlesAwBQGGpgMEKcpDGoqB6RSpriIAJJFJxEVxCMCCgI"
.ArrowImage = "pic1"
.Items.ToString = "Child(SubChild)"
End With
|
|
38
|
Is it possible to change the default arrow, that items with children display (method 1)
With RadialMenu1
.HTMLPicture("arrow") = "gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0iIEOZCJJUBEjBB8BBkRERAJzKRHIQAVzODjpjpnIJNIMKWKPBb8MIFiIJOBILJzhQLCdHCYBACaTgYiJfJJEI" & _
"JULBHdrOYIJQAwCBEaK1FQbeaoYwGVjLWR0EgJRAEBpICwPf7BY4cQgdAYAcCjUCWfD0G6rHrlHziPTcPrEUjuY5zZpHHgdZ41DYxVTSYJSaojXT0PrTVZBar+P5aaoW" & _
"T8KfiWbIBZQ1ErVPbDPyYiIAJJFJxEVxCMCCgIA=="
.Expanded = True
.Items.ToString = "Child(SubChild)"
End With
|
|
37
|
How can I change the logo image
With RadialMenu1
.HTMLPicture("logo") = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images\favorites.png"
End With
|
|
36
|
How can I customize the items part of the control, the inside ring/circle
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
|
|
35
|
How can I customize the subitems part of the control, the outside ring/circle
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
|
|
34
|
Can I expand/shrink the radial menu relative to its border/shadow
With RadialMenu1
.Expanded = True
.Items.ToString = "Item 1,Item 2,Item 3,Item 4"
.InflateRadialMenu = "-6*dpi"
End With
|
|
33
|
Is it possible to remove/hive the control's shadow
With RadialMenu1
.Expanded = True
.ShadowColor = -1
.Items.ToString = "Item 1,Item 2,Item 3,Item 4"
End With
|
|
32
|
How do I change the color of the control's shadow
With RadialMenu1
.Expanded = True
.ShadowColor = RGB(255,0,0)
.Items.ToString = "Item 1,Item 2,Item 3,Item 4"
End With
|
|
31
|
How can I evaluate/format an expression using the control
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
|
|
30
|
Is it possible to display some extra captions on the control's background
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
|
|
29
|
What events the control supports
' Event event - Notifies the application once the control fires an event.
Private Sub RadialMenu1_Event(ByVal EventID As Long)
With RadialMenu1
Debug.Print( .EventParam(-2) )
End With
End Sub
With RadialMenu1
.BeginUpdate
.Expanded = True
.Items.ToString = "Item 1,Item 2,Item 3,Item 4"
.EndUpdate
End With
|
|
28
|
How can I use/load images/pictures
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
|
|
27
|
Does your control supports tooltips (method 2)
' MouseMove event - Occurs when the user moves the mouse.
Private Sub RadialMenu1_MouseMove(ByVal Button As Integer,ByVal Shift As Integer,ByVal X As Long,ByVal Y As Long)
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 Sub
With RadialMenu1
.BeginUpdate
.DisplayAngle = -45
.Expanded = True
With .Items
.ToString = "Item 0"
.Add "Item 1"
.Add "Item 2"
End With
.EndUpdate
End With
|
|
26
|
Can I change the visual appearance of the control's tooltip
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
|
|
25
|
Does your control supports tooltips (method 1)
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
|
|
24
|
How can I use/load icons
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
|
|
23
|
How can I load items /images to the control, in sub-items zone
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
|
|
22
|
How can I load items /images to the control
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
|
|
21
|
How can I load items to the control
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
|
|
20
|
How do I get the version of the control I am running
With RadialMenu1
Debug.Print( "Version:" )
Debug.Print( .Version )
End With
|
|
19
|
How do I select an item
' SelectItem event - Notifies once the user selects an item.
Private Sub RadialMenu1_SelectItem(ByVal Item As Object)
' SelectedIndex(3) = Item.Index
With RadialMenu1
Debug.Print( "selection changed" )
End With
End Sub
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
|
|
18
|
How can I change the item's foreground color (sample 3)
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
|
|
17
|
How can I change the item's foreground color (sample 2)
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
|
|
16
|
How can I change the item's foreground color (sample 1)
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
|
|
15
|
How can I add new items / childrend to the control (method 2)
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
|
|
14
|
How can I add new items / childrend to the control (method 1)
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
|
|
13
|
How do I enlarge the font (method 2)
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
|
|
12
|
How do I enlarge the font (method 1)
With RadialMenu1
.BeginUpdate
.AllowToggleExpand = False
.MinVisibleCount = 4
.ToString = "Item 1,Item 2,Item 3,Item 4"
.Font.Size = "14.25"
.EndUpdate
End With
|
|
11
|
How can I expand the control (method 2)
With RadialMenu1
.AllowToggleExpand = False
End With
|
|
10
|
How can I expand the control (method 1)
With RadialMenu1
.Expanded = True
End With
|
|
9
|
By default, the control displays 8-pies. How can I change that
With RadialMenu1
.Expanded = True
.MinVisibleCount = 3
End With
|
|
8
|
How can I prevents expanding / collapsing the radial menu
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
|
|
7
|
How can I prevent flickering the item, when user selects it
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
|
|
6
|
How do I highlight the sub-item zone when cursor hovers it (method 2)
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
|
|
5
|
How do I highlight the sub-item zone when cursor hovers it (method 1)
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
|
|
4
|
Is it possible to highlight the entire item when cursor hovers the item
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
|
|
3
|
How can I hide the hot line when hovering the cursor
With RadialMenu1
.AllowToggleExpand = False
.RadialLineSize(11) = 0
With .Items
.Add "Item A"
.Add "Item B"
.Add "Item C"
End With
End With
|
|
2
|
How can I hide the control's shadow
With RadialMenu1
.Expanded = True
.ShadowColor = -1
End With
|
|
1
|
How do I change the control's background color
With RadialMenu1
.BackColor = RGB(240,240,249)
End With
|