|
95
|
The control shows no icons. What can be the problem (32-bit, alpha channel vs 4-bit icons problem)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComExpanded to True
Set ComImageSize to 32
Send ComImages "gBJJgBggAAQAAgAEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbmiAQD/jL/r1fYFlsFctFptVrtltt0qsdgrz/srAs8NsNxut3t99v1/wGBwQAuNhwlks17veGjFiueLweRyWTymVm+FxsTw90xOdu2Ks2Mht60OW02n1GprWYiUTh+b0Gfz2c2W1u+30l21W73m93021mu4UO2Gz2O05HHyF4xu5vm/6HR6WB4PD61yxG25XG7na0vMhvL6fj8nlqXV6/p4ve9nX7ft5eO7PP831+33rtzsPp/mvx7uuS77bus97kLy/T8QTBUFpM9D+we7D3QA47RQC9rRQZDMNQTCEOs0/UQK/AkJxJC7Gw3FEUvLD0HsKh7Fv8r7NxG+EStvFUcRy3sWOs50YIdH8DRDCUattDEdSRJLIx4h64rizUXtDKLdSmsEYwjGkLRvJUuS6v0WRch0nyq1sgzNKUgNDIcsyPL03TerMWv1KsxuJMk7zTKk8ytPbWs3GbXxPOFB0Iqjrx9ND5NdM89QNPFHT7QK8QQ8FC0tS6ktdJy5yhPc6uvMtE0ZPlIQNQVMVRVNM0/T8g1a2c2UfUc/VPVVbVuobcU4186V24VQts61gVJWda1xY9kKDB6903EVeU8udPonWdJPpZNr2wm1F1g4bW2bRVh2/YUyWNbNzXOl1QSqvdY0jd0ttbX9y3Rel6pNAdn1M8F1Xe+KVXhe2A4FdMK4IzLhyDNuB4XhilXxeVK4biWJqXgGKYvjGM41jeOY7jycIqHyVZEjqPpCjKSJIkyDpxSWP5fmCZIC"
Send ComImages "gBJJgBggAAQAAgAEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbmiAkEar0gYFjrlls1ntFptVrllhjFeAFjYFtuFytl3vF5vV7vkmt1+sVku12lduwl9xGJxWLxk3v8Zh9vwNzweCy1zwt1smNzmdz2frePjGRyIAzWUy9x1OVzEqw2b0Gx2Wz2k10USf+43Wmyeq1G/33B1nBzO92vH5HJxO30kO3Wl0/C1fT4HDw8p6/K7Xb7lS5nO5u58OS6XV1Pj63U4kf6Pd93v+E57/i8H1+n38np82tlPo9Tstu+MBQHAjJK+yD7OfBLxt5BTcv08qWQg7MCwrC0KvHDMFwTBsOrg/z9wjCbYQvEsTPfDT8RS3ivucwjnQ8kEQRE/8SRPG8cNrFcVte4CJOJFzNrhBsZxG/kcyRJLOR3BK3Lc0sgsxKLRwezcYSHD8EwhJUuS6xEmNyv7nSfKcfxfKspTRKjiSxGUtRtL04zks8eSHKcyNzM0rTVPU0yBPkrq/LM8znQtDKy8cez/FjdTPRdHUhPdFsBQ9K0sqTIydQc1rtPEHU5SVIz9UVL1LUyo09T1HVU8831HUNYT9U9Z1op9PT7RkGSmu1dUBXz11rYNhKRFdOrhW872PTbI1JH9h2faCg2ZVr8R/TSQTFNVr0/XFo29b6cV7CMZ27MsYJVBlwXVdabShPl0Q5c133Zel6qxclz3tfV9qvdN+X/gGA4FgeCYLg2D4RhLFoqHyVYajqPpCjKSJIkyD3C+1CJYiaX44lx/nhfKVn+cAf41kZgAfk90EAAeVv60aXn8jAfpefiMA+l58IwA6XngjAHpecGcaFoiXaGAGc6PoyW6RpWm6YlmnaLpOqD/q2fIxq6XZuAGtpbruvpZsOZIRl6TH+RgD7OjSHbXjp/mftkEZFeG6pSgIA=="
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAdd of hoItems "Icon 32-bit<br><c><img>1</img>" Nothing Nothing to Nothing
Get ComAdd of hoItems "Icon 4-bit<br><c><img>2</img>" Nothing Nothing to Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
94
|
ImageSize property on 32 (specifies the size of control' icons/images)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComExpanded to True
Set ComImageSize to 32
Send ComImages "gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m0mf8ZnMYncNnU/nlAn1BolDo09pFCpNFpdGm9PqE0f6Aqk9qNXrFZrVbrldr1fsFXidjslls1ntFptVroVht1UQFNptuul1u13vF5vViidKpVqv1MwFMwMSh9tvc0uFynV9nmLxORyWTr1VnWLYGZq2Uzk8tef0Gh0VnxGdAGQwmeh+ZYD/1mM02x2WmyFV19KzGa2d5seFuVm31/su+wdOxOoo+N1ea1/FqeW3fR6WV6E+23M7Gt3HX7XTrej8Hh8XDot15G/5et5sPkEN9uu7Ow73z+kx8997nw9Xx29M3LuvqmTetS5LVLI4jQODA0BuMrTzuEhzXvWhz3vez0FtIx7qwDDjpvu4b8wk/kRwApD/s3DrDPHFcWLY8qbwewT0v0scKwuiSiIcz0Tv7AsUx+zkPrQ064xE/cjxpI0kt0/z8q0+UoQVH0owJKkVQZK0sJnGKjonJSzPenLDsPHD3OhHUrwzMy4yBNq7yEtkQxJJckSVJSlR6m8Wz3PjyTTPjSoxLikS8+K1S+wyJObG6dzRCk5RLQM3Umq84NDIk6UzCaxztOceufIsmJhLUqudBEhyrCFCT9KDgVTJtQyRQ9DLTREywHR0XTXFFKV6mFLPBTFOzrUVVrJYcaMvDcBT7ZtAQxZ9dp1ZDFrNL9a1otE71vTj4sLX1wJXYDx0xa1PW8plkU+qNSSm5UD1fLtWVVV0/z3d65SVHjNVnSN4qRa8I2zNVQV5cNw2cw7LYWuNzWJh9NXRBqpYTirxWUuLF40quN4zjmPzZf8pSzjuC5LasZ03h1kwJg+XXs8TIRnROGLPdVz38p921becZM/kd6xpfeIX06sx5PkGTaS86qUTMcdSxgObYHoLkZfXsW6HMWBO1mea5Xm+cz1i2yNEy7H7Q920qntcbYno6QOfM257lutladqG8zIhuVLLqWwWLSWrx/mOkr7mfEa5rac6/v058EmOd3pnt3WhNHK3ly9c0ZRvO85taXbhumm7tDW8cXK/J8Vvtj6pymDcG+rRZlR+G8TZPbtvr02KrlfIVHsvg11tm1eL4nj7d5EXpb0XS7pvXT810nSWnflsVl6+WR92MUrX2mhd7p/ccUw3dfJ29MXLvfYcix3MWNyVS9f1UTaX8NUYnscxbv8XoyyvhQr2FtOuXgtJ7iASztaMMyh88DXxwPfNA8n7Rl2PCgswRFjv1ftGdI9B8Tmm/uOgE1OEaYGkrfgOd5GrhnxGvgYaR3JuoYtdfI8srEF4cQFSy0FJ8HXUQffqyFmEIXWwlLKyVZDGH2QpMowUicL4IxQgJBCGUDoIwaS2/Zj0W2lRcaRF6LUXYxRficiuLDzIfOndS6Zup53WLdiMWSJDj2RRMPnEE3qM4XuHdW9ZA8M3FrrQcpBiKSGtNhfArGQqmVBqnLmgKNL/UsNQem3GSsQo4I0LVHNiBvmrR2UoWuF0LG9Sji4759ENinvJlY22VzxpWywle8qWUtUWxnefD9vUIFiyUktL+AzMIntJiSlWT8oGXSZjfAuML5TNMlOAzOVSMHPrcmq5ua02ZsTbc9NpRqFl/w8eYeE3yn4PTnf2hqLkxUpzHmRAeGEfTWyoitFU9EOityxlpPufU/ZZz+lsmGM0046vbjcxJ/5PJ2FyndO+hyqpnM5njFRsUKDpw5ow5ovbAD4xkoWduIVD6RE2PkSt+EAXUUEPrGSlkYaWxgphGOlyyy3tGkQtudtNKR07ibAB9alJDs4YLTdOdQWiTPp0XijknZjVJp5U+i8uD6UAn5P+q1Aar1VeMcemzgVYRLqhWGsReEwzXm7Nys1aZvVqUdOAzlDKnVjrlXMvNVK7VZrvVivVYC7sFrpXQioPiVWCI6R8kJGSSEkJMAIqDe6/2PshZGA5AQ="
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Icon 0[img=0]"
Get ComAdd of hoItems "Icon 1" 1 Nothing to Nothing
Get ComAdd of hoItems "Icon Inside <img>3</img>" Nothing Nothing to Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
93
|
ImageSize property on 16 (specifies the size of control' icons/images)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComExpanded to True
Set ComImageSize to 16
Send ComImages ("gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUHAgEP50nD/N87f58nz/Q1Bf5rolDoqJpD/PFLoxrf5sqD/IVTf8zqwAAtZBAHriOD9ffgJsQJq9ls1ntEtAYgEB/GgwGB+rlctNpCt3QDCvT/RF9f7DwETf6Fwj/P+HwTPxT/QmNf60yF8v11mgEA4KBYLPgjFAneSQTCPf5y0j/CoUCp5ymr1mrEQzGa9MamU2MPZ7f5PJxOfg73yBuYH1stCXFPa+5GDwqA5mCQ/Pf6O6T/bPVf7G7D/5iAwSM71Vmc1ywKsSBEIkEj8PCLQT/YLGZL/Z6VT7/cTebL/EQlEr88SEOHAMBI0GYXBcXpUlyXKlFqWp/m2aZpn+WZZFkf44Qwf7dt43wdkCA0QAMmcRIxEgARNExBFdFbtOa27cHFGJ/j9Gh/lvG7BGBHUWu4XcfH+RsgvAlTggVIxAg9JJ+DoPA7vkZZmH+ag/D+v4Dge8Btn+bhwnixhCDyf7igkP0BzM1YVTSXpnGUZTBDKURRH8ZEdzbNxxzwf5bT2nSeCxP5/htQQnAZQoHo0IFEnzDA4HyNNHnywhCny0g5H4O9MH+SNNn+TFPQvDLDyqN1SH+S1Tn+aFVKUphK1cf5A1jIYEghWo9ySD0lpy6r8ombpbGKf55gScCHA8Ch/iiBBJn+Igsn2f51HVCT+BG/zxTPbKWxCAwU28XZi3CwRznwfB/DiVBUH+bpkviXcFOUQp/zsf5rXsf7aNqKd9n+GN/B6jTvEYf5O4Kf6kESwRr4WwzDn9BUFonWJAn+SmLH/CsLE6TxPH+c50HQf5RFGUZ/nfk5/kflR/hWFYXn0LguC8f903UwSHn0fR+Ska5x3mZxyH+cpQEof5sEDgYEguhx4nkh0aDpMTizLbWqo0CesDyY+tsEf2vH8dR7nvZpQFAf5UmcZx/m8ahqH+WGSH+NqimGYhiH/u27vEQyWO2f5L8BHj3GCYJ/mbw/BY5jp88Zhsq8Jwp/H6fp/jINo2n+aJyaCaxznPKRynLWFOCQJAdH+HwfCUf4wjCOB/DKMo4n+55IH+NA0Dqf4jCMHJ/isLohn+IYpisf5lmwau1m50R4niectm5LQQ+pa6a6tbQB+1KubocfdoFiyIoGr5QUGWZZ/jMWZZn+WMIn+cxuG5o3zn+XV4AAgg9pZUR/1cJVwQ24BHXOy35nI+jBMTccvUb43x/haLgP8TIQQgj/E+Ep1Yozdj/E4E8J4/wesAF82UFw/1HgtVACof4JwTgjcqGQiQ/2liwFe7pkiDh6D1HqyYd45n4Dmh8RMO0Qx/mZAWHp7C2TxG4e6HpCrNEcBwHcO4f4X3Nj/CyN0brLF2vpfWhNhg3YBgGJqIR/hiBFRpH+phJxEy9DCjWplRg/1yj4gWHsn4qjkhtLEP8X5GB/jAkALuQAmiMD5I0E0JoABaI3Ia6UhoeokEPAmP9BoYR/gNAaQ0VQqjaw6js55z7oXRDylMP9zbQSxjzAFK1AESTWljSq16Swvxfj/CKMgZA/xfLiD/FMf4S4GwPHCOF9LoR/hbHAsUEbdlmmIAekYPr/Dmi4XgnEUR1BtDaH+OFGQoZwL4FOKcwQoxSCkH/J0VQ/2xNjCivwVQrxXmCDuT4eBGQGEsCIEQDg+TnwxAgP8XovWKBQCg7o6Qg2RCibNKZpzIGQjrokP8dlFYeDvH+qQNw/wMUdEbLA4ZYw8iuk6X9+oVIBD+GBLZ+A9B6MYHaO0pTIENIyC9RMMT8khiDIyQYlYgxJrMG3TEf41XPD/GKwwZM20pRAH+NOZAwBojRqfFcbNExdv1DAo8f4gjoDHcQIQpA7yXg7klDECo/12hshAD0EpRg5TsbGP+Wg/2QOfoqOxtY3hvN4mcyRkoWrBD/K+B8flIEBAGADK0QAnqSjNIeMSL4jZlsEGYlGW0txZIxH8Igh4U4r2KAC1Ql0HYPipX4KkKoVVOhDeEJmfY/oLurFAEsJbKQdO" + ;
"nE0EUIo/7a23E9BsQAXQuj/D6IOhQm7lD/Dzc2e6JQH3RCip4ERDwU0CoJA8LQOh/TnIbcgA8cQvj/Tw6JPDQW8j/nAKGKoX7xvUBCPxrAEw9PaAGA6xC2Q/B1d1A4hwzHGisMWIF+oUqmCAnkP4PB0xR2VAYVy0hLZDAAHyLiQ4tJDiwIwPwYkgBjkEOvIAZL2sQkNGRIAYcgBMhUCo2cWIsR/j5ZyYMoNz0TupB8p0TC8rkB5HQZkDov19hlSAI0JA/40kNNIQ1y5ThYCwFoP8MGUz9AiBEPy6IDzgFzvzSAAkrQhguN2M4GppB/AkAcA4QwcbkDyFfjMPLjSMiWAqiAN1iwBAKRGRlFAHgUAoEELt94vX3i3cQLRNo/xcNp0VowWriBjL3GsOkdKW5gB5OfjZEwCyMnCIwAIjWfwTj9QqMC9QoRbj/EkJK9jrZMZWyvlnLZdMu61Jjp4k4BwO5pECHNTA/QCIgB+mYIR/A9iyvcP8U9gxQ4sb/BhfFgxTBZCzerZwlXeD/FHQZmgUgpJACOEceGoETlWo6BgPQY91D/kkbgE27x5AR3kHxEOuNbb3QGSRbQQiMB/GLIAXkgBdSDkALngvAuCEN4MQ3DpDRJkY3GiUq19gEgd4sPzeQERHIhARvjfBFQfEr5CR0j5ISMkk30RkQBdSH8e5cgIgI")
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Icon 0[img=0]"
Get ComAdd of hoItems "Icon 1" 1 Nothing to Nothing
Get ComAdd of hoItems "Icon Inside <img>3</img>" Nothing Nothing to Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
92
|
How can I displays items rotated (exDisplayRadialRotated90)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComExpanded to True
Set ComPicturesPath to "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
Set ComHTMLPicture "arrow" to "arrow.png"
Set ComSubItemsBackColor to (RGB(190,190,190))
Set ComShadowColor to (ComSubItemsBackColor(Self))
Set ComRadialLineColor OLEexRadialParentBorder to (ComSubItemsBackColor(Self))
Set ComRadialLineColor OLEexRadialItemsGridLines to -1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voItem
Get ComAdd of hoItems "Foreground" "color_line.png" Nothing to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Variant voItems1
Get ComItems of hoItem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComToString of hoItems1 to "Foreground"
Send Destroy to hoItems1
Send Destroy to hoItem
Variant voItem1
Get ComAdd of hoItems "Background" "color_fill.png" Nothing to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Variant voItems2
Get ComItems of hoItem1 to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Set ComToString of hoItems2 to "Background"
Send Destroy to hoItems2
Send Destroy to hoItem1
Variant voItem2
Get ComAdd of hoItems "Font" "format_font_size_less.png" Nothing to voItem2
Handle hoItem2
Get Create (RefClass(cComItem)) to hoItem2
Set pvComObject of hoItem2 to voItem2
Variant voItems3
Get ComItems of hoItem2 to voItems3
Handle hoItems3
Get Create (RefClass(cComItems)) to hoItems3
Set pvComObject of hoItems3 to voItems3
Set ComToString of hoItems3 to "Font"
Send Destroy to hoItems3
Send Destroy to hoItem2
Variant voItem3
Get ComAdd of hoItems "Undo" "edit_undo.png" Nothing to voItem3
Handle hoItem3
Get Create (RefClass(cComItem)) to hoItem3
Set pvComObject of hoItem3 to voItem3
Variant voItems4
Get ComItems of hoItem3 to voItems4
Handle hoItems4
Get Create (RefClass(cComItems)) to hoItems4
Set pvComObject of hoItems4 to voItems4
Set ComToString of hoItems4 to "Undo"
Send Destroy to hoItems4
Send Destroy to hoItem3
Variant voItem4
Get ComAdd of hoItems "Redo" "edit_redo.png" Nothing to voItem4
Handle hoItem4
Get Create (RefClass(cComItem)) to hoItem4
Set pvComObject of hoItem4 to voItem4
Variant voItems5
Get ComItems of hoItem4 to voItems5
Handle hoItems5
Get Create (RefClass(cComItems)) to hoItems5
Set pvComObject of hoItems5 to voItems5
Set ComToString of hoItems5 to "Redo"
Send Destroy to hoItems5
Send Destroy to hoItem4
Variant voItem5
Get ComAdd of hoItems "Copy" "edit_copy.png" Nothing to voItem5
Handle hoItem5
Get Create (RefClass(cComItem)) to hoItem5
Set pvComObject of hoItem5 to voItem5
Variant voItems6
Get ComItems of hoItem5 to voItems6
Handle hoItems6
Get Create (RefClass(cComItems)) to hoItems6
Set pvComObject of hoItems6 to voItems6
Set ComToString of hoItems6 to "Copy"
Send Destroy to hoItems6
Send Destroy to hoItem5
Variant voItem6
Get ComAdd of hoItems "List" "fileview_text.png" Nothing to voItem6
Handle hoItem6
Get Create (RefClass(cComItem)) to hoItem6
Set pvComObject of hoItem6 to voItem6
Variant voItems7
Get ComItems of hoItem6 to voItems7
Handle hoItems7
Get Create (RefClass(cComItems)) to hoItems7
Set pvComObject of hoItems7 to voItems7
Set ComToString of hoItems7 to "List"
Send Destroy to hoItems7
Send Destroy to hoItem6
Variant voItem7
Get ComAdd of hoItems "Tag" "checkmark_korganizer.png" Nothing to voItem7
Handle hoItem7
Get Create (RefClass(cComItem)) to hoItem7
Set pvComObject of hoItem7 to voItem7
Variant voItems8
Get ComItems of hoItem7 to voItems8
Handle hoItems8
Get Create (RefClass(cComItems)) to hoItems8
Set pvComObject of hoItems8 to voItems8
Set ComToString of hoItems8 to "Tag"
Send Destroy to hoItems8
Send Destroy to hoItem7
Send Destroy to hoItems
Set ComDisplayRadial OLEexRadialItems to OLEexDisplayRadialRotated90
Send ComEndUpdate
End_Procedure
|
|
91
|
How can I displays items rotated (exDisplayRadialRotated270)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComExpanded to True
Set ComPicturesPath to "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
Set ComHTMLPicture "arrow" to "arrow.png"
Set ComSubItemsBackColor to (RGB(190,190,190))
Set ComShadowColor to (ComSubItemsBackColor(Self))
Set ComRadialLineColor OLEexRadialParentBorder to (ComSubItemsBackColor(Self))
Set ComRadialLineColor OLEexRadialItemsGridLines to -1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voItem
Get ComAdd of hoItems "Foreground" "color_line.png" Nothing to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Variant voItems1
Get ComItems of hoItem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComToString of hoItems1 to "Foreground"
Send Destroy to hoItems1
Send Destroy to hoItem
Variant voItem1
Get ComAdd of hoItems "Background" "color_fill.png" Nothing to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Variant voItems2
Get ComItems of hoItem1 to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Set ComToString of hoItems2 to "Background"
Send Destroy to hoItems2
Send Destroy to hoItem1
Variant voItem2
Get ComAdd of hoItems "Font" "format_font_size_less.png" Nothing to voItem2
Handle hoItem2
Get Create (RefClass(cComItem)) to hoItem2
Set pvComObject of hoItem2 to voItem2
Variant voItems3
Get ComItems of hoItem2 to voItems3
Handle hoItems3
Get Create (RefClass(cComItems)) to hoItems3
Set pvComObject of hoItems3 to voItems3
Set ComToString of hoItems3 to "Font"
Send Destroy to hoItems3
Send Destroy to hoItem2
Variant voItem3
Get ComAdd of hoItems "Undo" "edit_undo.png" Nothing to voItem3
Handle hoItem3
Get Create (RefClass(cComItem)) to hoItem3
Set pvComObject of hoItem3 to voItem3
Variant voItems4
Get ComItems of hoItem3 to voItems4
Handle hoItems4
Get Create (RefClass(cComItems)) to hoItems4
Set pvComObject of hoItems4 to voItems4
Set ComToString of hoItems4 to "Undo"
Send Destroy to hoItems4
Send Destroy to hoItem3
Variant voItem4
Get ComAdd of hoItems "Redo" "edit_redo.png" Nothing to voItem4
Handle hoItem4
Get Create (RefClass(cComItem)) to hoItem4
Set pvComObject of hoItem4 to voItem4
Variant voItems5
Get ComItems of hoItem4 to voItems5
Handle hoItems5
Get Create (RefClass(cComItems)) to hoItems5
Set pvComObject of hoItems5 to voItems5
Set ComToString of hoItems5 to "Redo"
Send Destroy to hoItems5
Send Destroy to hoItem4
Variant voItem5
Get ComAdd of hoItems "Copy" "edit_copy.png" Nothing to voItem5
Handle hoItem5
Get Create (RefClass(cComItem)) to hoItem5
Set pvComObject of hoItem5 to voItem5
Variant voItems6
Get ComItems of hoItem5 to voItems6
Handle hoItems6
Get Create (RefClass(cComItems)) to hoItems6
Set pvComObject of hoItems6 to voItems6
Set ComToString of hoItems6 to "Copy"
Send Destroy to hoItems6
Send Destroy to hoItem5
Variant voItem6
Get ComAdd of hoItems "List" "fileview_text.png" Nothing to voItem6
Handle hoItem6
Get Create (RefClass(cComItem)) to hoItem6
Set pvComObject of hoItem6 to voItem6
Variant voItems7
Get ComItems of hoItem6 to voItems7
Handle hoItems7
Get Create (RefClass(cComItems)) to hoItems7
Set pvComObject of hoItems7 to voItems7
Set ComToString of hoItems7 to "List"
Send Destroy to hoItems7
Send Destroy to hoItem6
Variant voItem7
Get ComAdd of hoItems "Tag" "checkmark_korganizer.png" Nothing to voItem7
Handle hoItem7
Get Create (RefClass(cComItem)) to hoItem7
Set pvComObject of hoItem7 to voItem7
Variant voItems8
Get ComItems of hoItem7 to voItems8
Handle hoItems8
Get Create (RefClass(cComItems)) to hoItems8
Set pvComObject of hoItems8 to voItems8
Set ComToString of hoItems8 to "Tag"
Send Destroy to hoItems8
Send Destroy to hoItem7
Send Destroy to hoItems
Set ComDisplayRadial OLEexRadialItems to OLEexDisplayRadialRotated270
Send ComEndUpdate
End_Procedure
|
|
90
|
How can I displays items rotated (exDisplayRadialRotated180)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComExpanded to True
Set ComPicturesPath to "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
Set ComHTMLPicture "arrow" to "arrow.png"
Set ComSubItemsBackColor to (RGB(190,190,190))
Set ComShadowColor to (ComSubItemsBackColor(Self))
Set ComRadialLineColor OLEexRadialParentBorder to (ComSubItemsBackColor(Self))
Set ComRadialLineColor OLEexRadialItemsGridLines to -1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voItem
Get ComAdd of hoItems "Foreground" "color_line.png" Nothing to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Variant voItems1
Get ComItems of hoItem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComToString of hoItems1 to "Foreground"
Send Destroy to hoItems1
Send Destroy to hoItem
Variant voItem1
Get ComAdd of hoItems "Background" "color_fill.png" Nothing to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Variant voItems2
Get ComItems of hoItem1 to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Set ComToString of hoItems2 to "Background"
Send Destroy to hoItems2
Send Destroy to hoItem1
Variant voItem2
Get ComAdd of hoItems "Font" "format_font_size_less.png" Nothing to voItem2
Handle hoItem2
Get Create (RefClass(cComItem)) to hoItem2
Set pvComObject of hoItem2 to voItem2
Variant voItems3
Get ComItems of hoItem2 to voItems3
Handle hoItems3
Get Create (RefClass(cComItems)) to hoItems3
Set pvComObject of hoItems3 to voItems3
Set ComToString of hoItems3 to "Font"
Send Destroy to hoItems3
Send Destroy to hoItem2
Variant voItem3
Get ComAdd of hoItems "Undo" "edit_undo.png" Nothing to voItem3
Handle hoItem3
Get Create (RefClass(cComItem)) to hoItem3
Set pvComObject of hoItem3 to voItem3
Variant voItems4
Get ComItems of hoItem3 to voItems4
Handle hoItems4
Get Create (RefClass(cComItems)) to hoItems4
Set pvComObject of hoItems4 to voItems4
Set ComToString of hoItems4 to "Undo"
Send Destroy to hoItems4
Send Destroy to hoItem3
Variant voItem4
Get ComAdd of hoItems "Redo" "edit_redo.png" Nothing to voItem4
Handle hoItem4
Get Create (RefClass(cComItem)) to hoItem4
Set pvComObject of hoItem4 to voItem4
Variant voItems5
Get ComItems of hoItem4 to voItems5
Handle hoItems5
Get Create (RefClass(cComItems)) to hoItems5
Set pvComObject of hoItems5 to voItems5
Set ComToString of hoItems5 to "Redo"
Send Destroy to hoItems5
Send Destroy to hoItem4
Variant voItem5
Get ComAdd of hoItems "Copy" "edit_copy.png" Nothing to voItem5
Handle hoItem5
Get Create (RefClass(cComItem)) to hoItem5
Set pvComObject of hoItem5 to voItem5
Variant voItems6
Get ComItems of hoItem5 to voItems6
Handle hoItems6
Get Create (RefClass(cComItems)) to hoItems6
Set pvComObject of hoItems6 to voItems6
Set ComToString of hoItems6 to "Copy"
Send Destroy to hoItems6
Send Destroy to hoItem5
Variant voItem6
Get ComAdd of hoItems "List" "fileview_text.png" Nothing to voItem6
Handle hoItem6
Get Create (RefClass(cComItem)) to hoItem6
Set pvComObject of hoItem6 to voItem6
Variant voItems7
Get ComItems of hoItem6 to voItems7
Handle hoItems7
Get Create (RefClass(cComItems)) to hoItems7
Set pvComObject of hoItems7 to voItems7
Set ComToString of hoItems7 to "List"
Send Destroy to hoItems7
Send Destroy to hoItem6
Variant voItem7
Get ComAdd of hoItems "Tag" "checkmark_korganizer.png" Nothing to voItem7
Handle hoItem7
Get Create (RefClass(cComItem)) to hoItem7
Set pvComObject of hoItem7 to voItem7
Variant voItems8
Get ComItems of hoItem7 to voItems8
Handle hoItems8
Get Create (RefClass(cComItems)) to hoItems8
Set pvComObject of hoItems8 to voItems8
Set ComToString of hoItems8 to "Tag"
Send Destroy to hoItems8
Send Destroy to hoItem7
Send Destroy to hoItems
Set ComDisplayRadial OLEexRadialItems to OLEexDisplayRadialRotated180
Send ComEndUpdate
End_Procedure
|
|
89
|
How can I displays items rotated (exDisplayRadialRotated)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComExpanded to True
Set ComPicturesPath to "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
Set ComHTMLPicture "arrow" to "arrow.png"
Set ComSubItemsBackColor to (RGB(190,190,190))
Set ComShadowColor to (ComSubItemsBackColor(Self))
Set ComRadialLineColor OLEexRadialParentBorder to (ComSubItemsBackColor(Self))
Set ComRadialLineColor OLEexRadialItemsGridLines to -1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voItem
Get ComAdd of hoItems "Foreground" "color_line.png" Nothing to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Variant voItems1
Get ComItems of hoItem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComToString of hoItems1 to "Foreground"
Send Destroy to hoItems1
Send Destroy to hoItem
Variant voItem1
Get ComAdd of hoItems "Background" "color_fill.png" Nothing to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Variant voItems2
Get ComItems of hoItem1 to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Set ComToString of hoItems2 to "Background"
Send Destroy to hoItems2
Send Destroy to hoItem1
Variant voItem2
Get ComAdd of hoItems "Font" "format_font_size_less.png" Nothing to voItem2
Handle hoItem2
Get Create (RefClass(cComItem)) to hoItem2
Set pvComObject of hoItem2 to voItem2
Variant voItems3
Get ComItems of hoItem2 to voItems3
Handle hoItems3
Get Create (RefClass(cComItems)) to hoItems3
Set pvComObject of hoItems3 to voItems3
Set ComToString of hoItems3 to "Font"
Send Destroy to hoItems3
Send Destroy to hoItem2
Variant voItem3
Get ComAdd of hoItems "Undo" "edit_undo.png" Nothing to voItem3
Handle hoItem3
Get Create (RefClass(cComItem)) to hoItem3
Set pvComObject of hoItem3 to voItem3
Variant voItems4
Get ComItems of hoItem3 to voItems4
Handle hoItems4
Get Create (RefClass(cComItems)) to hoItems4
Set pvComObject of hoItems4 to voItems4
Set ComToString of hoItems4 to "Undo"
Send Destroy to hoItems4
Send Destroy to hoItem3
Variant voItem4
Get ComAdd of hoItems "Redo" "edit_redo.png" Nothing to voItem4
Handle hoItem4
Get Create (RefClass(cComItem)) to hoItem4
Set pvComObject of hoItem4 to voItem4
Variant voItems5
Get ComItems of hoItem4 to voItems5
Handle hoItems5
Get Create (RefClass(cComItems)) to hoItems5
Set pvComObject of hoItems5 to voItems5
Set ComToString of hoItems5 to "Redo"
Send Destroy to hoItems5
Send Destroy to hoItem4
Variant voItem5
Get ComAdd of hoItems "Copy" "edit_copy.png" Nothing to voItem5
Handle hoItem5
Get Create (RefClass(cComItem)) to hoItem5
Set pvComObject of hoItem5 to voItem5
Variant voItems6
Get ComItems of hoItem5 to voItems6
Handle hoItems6
Get Create (RefClass(cComItems)) to hoItems6
Set pvComObject of hoItems6 to voItems6
Set ComToString of hoItems6 to "Copy"
Send Destroy to hoItems6
Send Destroy to hoItem5
Variant voItem6
Get ComAdd of hoItems "List" "fileview_text.png" Nothing to voItem6
Handle hoItem6
Get Create (RefClass(cComItem)) to hoItem6
Set pvComObject of hoItem6 to voItem6
Variant voItems7
Get ComItems of hoItem6 to voItems7
Handle hoItems7
Get Create (RefClass(cComItems)) to hoItems7
Set pvComObject of hoItems7 to voItems7
Set ComToString of hoItems7 to "List"
Send Destroy to hoItems7
Send Destroy to hoItem6
Variant voItem7
Get ComAdd of hoItems "Tag" "checkmark_korganizer.png" Nothing to voItem7
Handle hoItem7
Get Create (RefClass(cComItem)) to hoItem7
Set pvComObject of hoItem7 to voItem7
Variant voItems8
Get ComItems of hoItem7 to voItems8
Handle hoItems8
Get Create (RefClass(cComItems)) to hoItems8
Set pvComObject of hoItems8 to voItems8
Set ComToString of hoItems8 to "Tag"
Send Destroy to hoItems8
Send Destroy to hoItem7
Send Destroy to hoItems
Set ComDisplayRadial OLEexRadialItems to OLEexDisplayRadialRotated
Send ComEndUpdate
End_Procedure
|
|
88
|
How do I load images to sub-items zone
Procedure OnCreate
Forward Send OnCreate
Set ComExpanded to True
Set ComSubItemsSize to "48*dpi"
Set ComPicturesPath to "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
Set ComRadialLineColor OLEexRadialHotItem to (RGB(128,128,128))
Set ComRadialLineColor OLEexRadialHotSubItem to (RGB(128,128,128))
Set ComRadialLineColor OLEexRadialHotFullItem to -1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voItem
Get ComAdd of hoItems "" Nothing Nothing to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComImage of hoItem OLEexRadialItems to "favorites.png"
Set ComImage of hoItem OLEexRadialSubItems to "download.png"
Send Destroy to hoItem
Send Destroy to hoItems
End_Procedure
|
|
87
|
How can I display the control directly on the screen
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComPicturesPath to "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
Set ComHTMLPicture "arrow" to "stock_mail_filters_apply.png"
Set ComHTMLPicture "settings" to "settings.png"
Set ComHTMLPicture "hard" to "download.png"
Set ComHTMLPicture "favorites" to "favorites.png"
Set ComHTMLPicture "remove" to "remove.png"
Set ComHTMLPicture "refresh" to "refresh.png"
Set ComHTMLPicture "synchronize" to "synchronize.png"
Set ComHTMLPicture "preview" to "preview.png"
Set ComHTMLPicture "search" to "search.png"
Set ComToString to "Save[img=hard],Settings[img=settings][browse=2][custom=16],Favorites[img=favorites](1,2),Refresh[img=refresh],<c>Quit<br><c>Application[img=remove],Synchronize[img=synchronize],Search[img=search](1,2),Preview[img=preview](1,2)"
Set ComExpanded to True
Set ComDisplayRadial OLEexRadialItems to OLEexDisplayRadialRotated270
Set ComBackgroundPicture to "Background\frontc.png"
Set ComSubItemsBackColor to -1
Set ComSubItemsSize to "18 * dpi"
Send ComEndUpdate
Set ComFloat to True
End_Procedure
|
|
86
|
How do I add a radial-slider control
Procedure OnCreate
Forward Send OnCreate
Set ComExpanded to True
Set ComShadowColor to -1
Set ComInflateItems to "-8*dpi"
Set ComInflateCustom to (ComInflateItems(Self))
Set ComItemsBackColor to (RGB(240,240,240))
Set ComRadialLineColor OLEexRadialCustomBorder to (RGB(0,0,0))
Set ComRadialLineStyle OLEexRadialCustomBorder to OLEexRadialLineDot
Set ComRadialLineSize OLEexRadialCustomBorder to 3
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voItem
Get ComAdd of hoItems "Slider" Nothing Nothing to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComBrowseType of hoItem to OLEexBrowseItemCustom
Set ComBrowseCustomType of hoItem to OLEexRadialCustomSlider
Set ComBrowseCustom of hoItem OLEexRadialCustomSliderValue to 35
Send Destroy to hoItem
Send Destroy to hoItems
Variant v
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComItem of hoItems1 "Slider" to v
Send Destroy to hoItems1
Set ComBrowseItem to v
End_Procedure
|
|
85
|
How can I display a slider directly on the radial menu, with no items...
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComPicturesPath to "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
Set ComExpanded to True
Set ComInflateCustom to "-4 * dpi"
Set ComRadialLineColor OLEexRadialCustomBorder to (RGB(0,0,0))
Set ComRadialLineSize OLEexRadialCustomBorder to 3
Set ComRadialLineAlpha OLEexRadialCustomBorder to 128
Set ComCustomPicture to "Background\frame.png"
Variant voItem
Get ComRoot to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComBrowseType of hoItem to OLEexBrowseItemCustom
Set ComBrowseCustomType of hoItem to OLEexRadialCustomSlider
Set ComBrowseCustom of hoItem OLEexRadialCustomSliderValue to 25
Send Destroy to hoItem
Send ComRefresh
Send ComEndUpdate
End_Procedure
|
|
84
|
How can I programatically browses for a new item
Procedure OnCreate
Forward Send OnCreate
Set ComExpanded to True
Set ComShadowColor to -1
Set ComInflateItems to "-8*dpi"
Set ComInflateCustom to (ComInflateItems(Self))
Set ComItemsBackColor to (RGB(240,240,240))
Set ComRadialLineColor OLEexRadialCustomBorder to (RGB(0,0,0))
Set ComRadialLineStyle OLEexRadialCustomBorder to OLEexRadialLineDot
Set ComRadialLineSize OLEexRadialCustomBorder to 3
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voItem
Get ComAdd of hoItems "Slider" Nothing Nothing to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComBrowseType of hoItem to OLEexBrowseItemCustom
Set ComBrowseCustomType of hoItem to OLEexRadialCustomSlider
Send Destroy to hoItem
Send Destroy to hoItems
Variant v
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComItem of hoItems1 "Slider" to v
Send Destroy to hoItems1
Set ComBrowseItem to v
End_Procedure
|
|
83
|
How can I display the items rotated
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComExpanded to True
Set ComPicturesPath to "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
Set ComHTMLPicture "arrow" to "arrow.png"
Set ComExpanded to True
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Item 1(1,2),Item 2(1,2),Item 3(1,2),Item 4(1,2),Item 5(1,2),Item 6(1,2),Item 7(1,2),Item 8(1,2)"
Send Destroy to hoItems
Set ComDisplayRadial OLEexRadialItems to OLEexDisplayRadialRotated
Set ComDisplayCenter OLEexRadialItems to 0.05
Send ComEndUpdate
End_Procedure
|
|
82
|
Is it possible to display the arrow into the items section, and how I can change the default position
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComExpanded to True
Set ComPicturesPath to "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
Set ComHTMLPicture "arrow" to "arrowu.png"
Set ComDisplayArrow to OLEexRadialItems
Set ComDisplayCenterArrow OLEexRadialItems to 0
Set ComExpanded to True
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Item 1(1,2),Item 2(1,2),Item 3(1,2),Item 4(1,2),Item 5(1,2),Item 6(1,2),Item 7(1,2),Item 8(1,2)"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
81
|
Can I display the arrow into the items section
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComExpanded to True
Set ComDisplayArrow to OLEexRadialItems
Set ComExpanded to True
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Item 1(1,2),Item 2(1,2),Item 3(1,2),Item 4(1,2),Item 5(1,2),Item 6(1,2),Item 7(1,2),Item 8(1,2)"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
80
|
How can I know if the cursor is hovering the center ring ( parent zone )
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY
Forward Send OnComMouseMove llButton llShift llX llY
Showln "ParentOnPoint " (ComParentOnPoint(Self,-1,-1))
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComExpanded to True
End_Procedure
|
|
79
|
How can I specify the size to display the images/pictures into the items
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAllowToggleExpand to False
Set ComPicturesPath to "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
Set ComItemsImageHeight OLEexRadialItems to "64*dpi"
Set ComItemsImageWidth OLEexRadialItems to "64*dpi"
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAdd of hoItems "" "color_line.png" Nothing to Nothing
Get ComAdd of hoItems "" "color_fill.png" Nothing to Nothing
Get ComAdd of hoItems "" "format_font_size_less.png" Nothing to Nothing
Get ComAdd of hoItems "" "edit_undo.png" Nothing to Nothing
Get ComAdd of hoItems "" "edit_redo.png" Nothing to Nothing
Get ComAdd of hoItems "" "edit_copy.png" Nothing to Nothing
Get ComAdd of hoItems "" "fileview_text.png" Nothing to Nothing
Get ComAdd of hoItems "" "checkmark_korganizer.png" Nothing to Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
78
|
By default, the parent image is 32-pixels wide. Can I display it larger
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAllowToggleExpand to False
Set ComPicturesPath to "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
Set ComHTMLPicture "logo" to "settings.png"
Set ComParentSize to "96 * dpi"
Set ComParentImageWidth OLEexRadialMenuStateAll to "64*dpi"
Set ComParentImageHeight OLEexRadialMenuStateAll to "64*dpi"
Set ComParentCaption OLEexRadialMenuStateAll to "<font ;14><c>System Settings</font><br><c>Surround"
Send ComEndUpdate
End_Procedure
|
|
77
|
Is it possible to specify where to display the item's caption
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComExpanded to True
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Item 1(1,2),Item 2(1,2),Item 3(1,2),Item 4(1,2),Item 5(1,2),Item 6(1,2),Item 7(1,2),Item 8(1,2)"
Send Destroy to hoItems
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant voItem
Get ComItem of hoItems1 0 to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComBackColor of hoItem OLEexRadialFullItems to (RGB(240,240,240))
Send Destroy to hoItem
Send Destroy to hoItems1
Set ComDisplayCenter OLEexRadialItems to 0.85
Send ComEndUpdate
End_Procedure
|
|
76
|
How can I disable browsing the items, or prevent displaying its children
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComExpanded to True
Set ComAllowBrowseItem to False
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Item 1(1,2),Item 2(1,2),Item 3(1,2),Item 4(1,2),Item 5(1,2),Item 6(1,2),Item 7(1,2),Item 8(1,2)"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
75
|
How do I get the item from the point
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY
Forward Send OnComMouseMove llButton llShift llX llY
Variant v
Variant voItem
Get ComItemFromPoint OLEexRadialFullItems -1 -1 to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Get ComCaption of hoItem OLEexLayerCaptionBackColor to v
Send Destroy to hoItem
Showln "Full-Item: " v
Variant v1
Variant voItem1
Get ComItemFromPoint OLEexRadialItems -1 -1 to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Get ComCaption of hoItem1 OLEexLayerCaptionBackColor to v1
Send Destroy to hoItem1
Showln "Item: " v1
Variant v2
Variant voItem2
Get ComItemFromPoint OLEexRadialSubItems -1 -1 to voItem2
Handle hoItem2
Get Create (RefClass(cComItem)) to hoItem2
Set pvComObject of hoItem2 to voItem2
Get ComCaption of hoItem2 OLEexLayerCaptionForeColor to v2
Send Destroy to hoItem2
Showln "SubItem: " v2
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComExpanded to True
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Item 1[scap=sub item 1],Item 2[scap=sub item 2],Item 3[scap=sub item 3],Item 4[scap=sub item 4],Item 5[scap=sub item 5],Item 6[scap=sub item 6],Item 7[scap=sub item 7],Item 8[scap=sub item 8]"
Send Destroy to hoItems
End_Procedure
|
|
74
|
How do I get the index of the pie from the point
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY
Forward Send OnComMouseMove llButton llShift llX llY
Showln "Full-Index: " (ComIndexFromPoint(Self,OLEexRadialFullItems,-1,-1))
Showln "Index: " (ComIndexFromPoint(Self,OLEexRadialItems,-1,-1))
Showln "Sub-Index: " (ComIndexFromPoint(Self,OLEexRadialSubItems,-1,-1))
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComExpanded to True
End_Procedure
|
|
73
|
How can I select an item
// Notifies once the user selects an item.
Procedure OnComSelectItem Variant llItem
Forward Send OnComSelectItem llItem
// SelectedIndex(3) = Item.Index
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComSelBackAlpha OLEexRadialItems to 32
Set ComSelBackAlpha OLEexRadialSubItems to 128
Set ComSelForeColor OLEexRadialFullItems to (RGB(0,0,0))
Set ComRadialLineSize OLEexRadialHotParent to -1
Set ComRadialLineAlpha OLEexRadialHotParent to 32
Set ComRadialLineColor OLEexRadialHotFullItem to -1
Set ComExpanded to True
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
Send Destroy to hoItems
Set ComSelectedIndex OLEexRadialFullItems to 0
Send ComEndUpdate
End_Procedure
|
|
72
|
How can I use the sub-items zone only
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAllowToggleExpand to False
Set ComPicturesPath to "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
Set ComHTMLPicture "logo" to "settings.png"
Set ComRadialLineColor OLEexRadialParentBorder to (ComSubItemsBackColor(Self))
Set ComRadialLineColor OLEexRadialItemsGridLines to -1
Set ComSubItemsSize to "64 * dpi"
Set ComParentSize to "value - 66 * dpi"
Set ComParentImageWidth OLEexRadialMenuStateAll to "64*dpi"
Set ComParentImageHeight OLEexRadialMenuStateAll to "64*dpi"
Set ComParentCaption OLEexRadialMenuStateAll to "<font ;14><c>System Settings</font><br><c>Surround"
Set ComRadialLineSize OLEexRadialHotFullItem to 0
Set ComRadialLineSize OLEexRadialHotSubItem to -1
Set ComRadialLineColor OLEexRadialHotSubItem to |CI$8000000d
Set ComRadialLineAlpha OLEexRadialHotSubItem to 128
Set ComItemsBackColor to (ComSubItemsBackColor(Self))
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAdd of hoItems "" "color_line.png" 2 to Nothing
Get ComAdd of hoItems "" "color_fill.png" 2 to Nothing
Get ComAdd of hoItems "" "format_font_size_less.png" 2 to Nothing
Get ComAdd of hoItems "" "edit_undo.png" 2 to Nothing
Get ComAdd of hoItems "" "edit_redo.png" 2 to Nothing
Get ComAdd of hoItems "" "edit_copy.png" 2 to Nothing
Get ComAdd of hoItems "" "fileview_text.png" 2 to Nothing
Get ComAdd of hoItems "" "checkmark_korganizer.png" 2 to Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
71
|
Is it possible to display all items with a different rotation angle
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComExpanded to True
Set ComDisplayAngle to -7.5
Set ComDisplayArrow to OLEexRadialItems
Set ComDisplayRadial OLEexRadialItems to OLEexDisplayRadialRotated
Set ComPicturesPath to "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
Set ComParentSize to "48 * dpi"
Set ComParentPicture to "Background\frontb.png"
Set ComArrowImage to "arrow.png"
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
Send Destroy to hoItems
Set ComInflateParentPicture to "72 * dpi"
Send ComEndUpdate
End_Procedure
|
|
70
|
How can I programatically advance / browse for the parent item (method 2)
// Occurs once the user right clicks the control.
Procedure OnComRClick
Forward Send OnComRClick
Variant v
Variant voItem
Get ComBrowseItem to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Get ComParent of hoItem to v
Send Destroy to hoItem
Set ComBrowseItem to v
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComExpanded to True
Set ComDisplayArrow to OLEexRadialItems
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voItem1
Get ComAdd of hoItems "Volume" Nothing Nothing to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Set ComCaption of hoItem1 OLEexRadialSubItems to "slider"
Set ComBrowseType of hoItem1 to OLEexBrowseItemCustom
Set ComBrowseCustomType of hoItem1 to OLEexRadialCustomSlider
Send Destroy to hoItem1
Variant voItem2
Get ComAdd of hoItems "Item" Nothing Nothing to voItem2
Handle hoItem2
Get Create (RefClass(cComItem)) to hoItem2
Set pvComObject of hoItem2 to voItem2
Variant voItems1
Get ComItems of hoItem2 to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAdd of hoItems1 "Child 1" Nothing Nothing to Nothing
Get ComAdd of hoItems1 "Child 2" Nothing Nothing to Nothing
Send Destroy to hoItems1
Send Destroy to hoItem2
Send Destroy to hoItems
End_Procedure
|
|
69
|
How can I programatically advance / browse for the parent item (method 1)
// Occurs once the user right clicks the control.
Procedure OnComRClick
Forward Send OnComRClick
Send ComGoBack
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComExpanded to True
Set ComDisplayArrow to OLEexRadialItems
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voItem
Get ComAdd of hoItems "Volume" Nothing Nothing to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComCaption of hoItem OLEexRadialSubItems to "slider"
Set ComBrowseType of hoItem to OLEexBrowseItemCustom
Set ComBrowseCustomType of hoItem to OLEexRadialCustomSlider
Send Destroy to hoItem
Variant voItem1
Get ComAdd of hoItems "Item" Nothing Nothing to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Variant voItems1
Get ComItems of hoItem1 to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAdd of hoItems1 "Child 1" Nothing Nothing to Nothing
Get ComAdd of hoItems1 "Child 2" Nothing Nothing to Nothing
Send Destroy to hoItems1
Send Destroy to hoItem1
Send Destroy to hoItems
End_Procedure
|
|
68
|
Can I display the pointer with a different angle
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComPicturesPath to "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
Set ComPointerPicture to "pointer.png"
Set ComPointerPictureY to "y + (height-pheight)/2- 21*dpi"
Set ComPointerPictureX to "x + (width-pwidth)/2 + 1 * dpi"
Set ComAllowHotPointer to False
Set ComParentSize to "36*dpi"
Set ComParentImageHeight OLEexRadialMenuStateAll to "48*dpi"
Set ComParentImageWidth OLEexRadialMenuStateAll to "48*dpi"
Set ComRadialLineSize OLEexRadialHotParent to -1
Set ComRadialLineAlpha OLEexRadialHotParent to 32
Set ComRadialLineColor OLEexRadialHotFullItem to -1
Set ComExpanded to True
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
Send Destroy to hoItems
Set ComPointerAngle to 12
Send ComEndUpdate
End_Procedure
|
|
67
|
How can I use the pointer (select sample)
// Notifies once the user selects an item.
Procedure OnComSelectItem Variant llItem
Forward Send OnComSelectItem llItem
// PointerIndex = Item.Index
Set ComSelectedIndex OLEexRadialFullItems to (ComPointerIndex(Self))
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComPicturesPath to "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
Set ComPointerPicture to "pointer.png"
Set ComSelBackAlpha OLEexRadialItems to 32
Set ComSelBackAlpha OLEexRadialSubItems to 128
Set ComPointerPictureY to "y + (height-pheight)/2- 21*dpi"
Set ComPointerPictureX to "x + (width-pwidth)/2 + 1 * dpi"
Set ComAllowHotPointer to False
Set ComSelForeColor OLEexRadialFullItems to (RGB(0,0,0))
Set ComParentSize to "36*dpi"
Set ComParentImageHeight OLEexRadialMenuStateAll to "48*dpi"
Set ComParentImageWidth OLEexRadialMenuStateAll to "48*dpi"
Set ComRadialLineSize OLEexRadialHotParent to -1
Set ComRadialLineAlpha OLEexRadialHotParent to 32
Set ComRadialLineColor OLEexRadialHotFullItem to -1
Set ComExpanded to True
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
Send Destroy to hoItems
Set ComPointerIndex to 0
Set ComSelectedIndex OLEexRadialFullItems to (ComPointerIndex(Self))
Send ComEndUpdate
End_Procedure
|
|
66
|
How can I use the pointer (hot sample)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComPicturesPath to "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
Set ComPointerPicture to "pointer.png"
Set ComPointerIndex to -1
Set ComPointerPictureY to "y + (height-pheight)/2- 21*dpi"
Set ComPointerPictureX to "x + (width-pwidth)/2 + 1 * dpi"
Set ComAllowHotPointer to True
Set ComSelBackAlpha OLEexRadialFullItems to 128
Set ComSelForeColor OLEexRadialFullItems to (RGB(0,0,0))
Set ComParentSize to "36*dpi"
Set ComParentImageHeight OLEexRadialMenuStateAll to "48*dpi"
Set ComParentImageWidth OLEexRadialMenuStateAll to "48*dpi"
Set ComRadialLineSize OLEexRadialHotParent to -1
Set ComRadialLineAlpha OLEexRadialHotParent to 32
Set ComRadialLineColor OLEexRadialHotFullItem to -1
Set ComExpanded to True
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
65
|
Is it possible to apply the control's background picture on the parent zone too
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComPicturesPath to "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
Set ComBackgroundPicture to "Background\fronte.png"
Set ComForeColor to (RGB(255,255,255))
Set ComExpanded to True
Set ComParentSize to "48 * dpi"
Set ComDisplayRadial OLEexRadialItems to OLEexDisplayRadialRotated
Set ComDisplayCenter OLEexRadialItems to 0.23
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
Send Destroy to hoItems
Set ComParentBackColor to -1
Set ComExcludeParentFromItems to True
Set ComRadialLineColor OLEexRadialParentBorder to (RGB(0,0,0))
Set ComRadialLineAlpha OLEexRadialParentBorder to 128
Set ComRadialLineStyle OLEexRadialItemsGridLines to OLEexRadialLineDot
Set ComRadialLineAlpha OLEexRadialItemsGridLines to 128
Send ComEndUpdate
End_Procedure
|
|
64
|
Can I display the picture on the parent zone, a bit larger
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComExpanded to True
Set ComPicturesPath to "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
Set ComParentSize to "48 * dpi"
Set ComParentPicture to "Background\frontb.png"
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
Send Destroy to hoItems
Set ComInflateParentPicture to "64 * dpi"
Send ComEndUpdate
End_Procedure
|
|
63
|
Is it possible to assign a different background picture when displaying a slider/custom data
Procedure OnCreate
Forward Send OnCreate
Set ComExpanded to True
Set ComPicturesPath to "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
Set ComDisplayArrow to OLEexRadialItems
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "[scap=Item 1],[scap=Item 2],[scap=Item 3],[scap=Item 4]"
Send Destroy to hoItems
Set ComInflateRadialMenu to "-4*dpi"
Set ComInflateCustom to "-4*dpi"
Set ComCustomPicture to "Background\frontb.png"
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComToString of hoItems1 to "Item 1(Sub Child 1,Sub Child 2),Item 2[scap=slider],Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
Send Destroy to hoItems1
Variant voItems2
Get ComItems to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Variant voItem
Get ComItem of hoItems2 "Item 2" to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComBrowseType of hoItem to OLEexBrowseItemCustom
Set ComBrowseCustomType of hoItem to OLEexRadialCustomSlider
Send Destroy to hoItem
Send Destroy to hoItems2
Variant v
Variant voItems3
Get ComItems to voItems3
Handle hoItems3
Get Create (RefClass(cComItems)) to hoItems3
Set pvComObject of hoItems3 to voItems3
Get ComItem of hoItems3 "Item 2" to v
Send Destroy to hoItems3
Set ComBrowseItem to v
End_Procedure
|
|
62
|
How can I customize the custom part of the control, the inside ring/circle
Procedure OnCreate
Forward Send OnCreate
Set ComExpanded to True
Set ComDisplayArrow to OLEexRadialItems
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "[scap=Item 1],[scap=Item 2],[scap=Item 3],[scap=Item 4]"
Send Destroy to hoItems
Set ComInflateRadialMenu to "-4*dpi"
Set ComInflateCustom to "-4*dpi"
Set ComCustomBackColor to (RGB(128,128,128))
Set ComCustomBackAlpha to 128
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComToString of hoItems1 to "Item 1(Sub Child 1,Sub Child 2),Item 2[scap=slider],Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
Send Destroy to hoItems1
Variant voItems2
Get ComItems to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Variant voItem
Get ComItem of hoItems2 "Item 2" to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComBrowseType of hoItem to OLEexBrowseItemCustom
Set ComBrowseCustomType of hoItem to OLEexRadialCustomSlider
Send Destroy to hoItem
Send Destroy to hoItems2
Variant v
Variant voItems3
Get ComItems to voItems3
Handle hoItems3
Get Create (RefClass(cComItems)) to hoItems3
Set pvComObject of hoItems3 to voItems3
Get ComItem of hoItems3 "Item 2" to v
Send Destroy to hoItems3
Set ComBrowseItem to v
End_Procedure
|
|
61
|
How do I prevent expanding / collapsing the radial menu
Procedure OnCreate
Forward Send OnCreate
Set ComAllowToggleExpand to False
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Item 1(Sub Child 1,Sub Child 2),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
Send Destroy to hoItems
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant voItem
Get ComItem of hoItems1 "Item 2" to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComBrowseType of hoItem to OLEexBrowseItemCustom
Set ComBrowseCustomType of hoItem to OLEexRadialCustomSlider
Send Destroy to hoItem
Send Destroy to hoItems1
End_Procedure
|
|
60
|
Is it possible to change the parent's picture/image when expanding collapsing the radial menu
// Notifies once the user browses for a new item.
Procedure OnComBrowseItem Variant llItem
Forward Send OnComBrowseItem llItem
Showln "Current State: " (ComState(Self))
End_Procedure
// Occurs once the user clicks the parent of the item.
Procedure OnComSelectParent
Forward Send OnComSelectParent
Showln "Current State: " (ComState(Self))
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComPicturesPath to "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Item 1(Sub Child 1,Sub Child 2),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
Send Destroy to hoItems
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant voItem
Get ComItem of hoItems1 "Item 2" to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComBrowseType of hoItem to OLEexBrowseItemCustom
Set ComBrowseCustomType of hoItem to OLEexRadialCustomSlider
Send Destroy to hoItem
Send Destroy to hoItems1
Set ComParentImage OLEexRadialMenuCollapsed to "format_font_size_less.png"
Set ComParentImage OLEexRadialMenuExpandedNoItems to "fileview_text.png"
Set ComParentImage OLEexRadialMenuExpandedRootItem to "edit_undo.png"
End_Procedure
|
|
59
|
Is it possible to assign a different picture on the parent zone (center ring)
Procedure OnCreate
Forward Send OnCreate
Set ComExpanded to True
Set ComPicturesPath to "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
Set ComParentSize to "48 * dpi"
Set ComParentPicture to "Background\frontb.png"
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
Send Destroy to hoItems
End_Procedure
|
|
58
|
Is it possible to assign a different picture on the items zone (inner ring)
Procedure OnCreate
Forward Send OnCreate
Set ComExpanded to True
Set ComPicturesPath to "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
Set ComItemsPicture to "Background\frontc.png"
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
Send Destroy to hoItems
End_Procedure
|
|
57
|
How can I change the control's background picture
Procedure OnCreate
Forward Send OnCreate
Set ComExpanded to True
Set ComPicturesPath to "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
Set ComBackgroundPicture to "Background\fronta.png"
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
Send Destroy to hoItems
End_Procedure
|
|
56
|
How can I hide the line being shown around the item form the cursor
Procedure OnCreate
Forward Send OnCreate
Set ComExpanded to True
Set ComShadowColor to -1
Set ComInflateItems to "-8*dpi"
Set ComItemsBackColor to (RGB(240,240,240))
Set ComRadialLineSize OLEexRadialHotFullItem to 0
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
Send Destroy to hoItems
End_Procedure
|
|
55
|
Is it possible to highlight items with children, with a different background color, for those arrow picture is shown (items, inner ring)
Procedure OnCreate
Forward Send OnCreate
Set ComExpanded to True
Set ComShadowColor to -1
Set ComInflateItems to "-8*dpi"
Set ComItemsBackColor to (RGB(240,240,240))
Set ComRadialLineColor OLEexRadialItemsChildren to (RGB(0,0,0))
Set ComRadialLineAlpha OLEexRadialItemsChildren to 64
Set ComRadialLineSize OLEexRadialItemsChildren to -1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
Send Destroy to hoItems
End_Procedure
|
|
54
|
Is it possible to highlight items with children, with a different background color, for those arrow picture is shown (subitems, outer ring)
Procedure OnCreate
Forward Send OnCreate
Set ComExpanded to True
Set ComShadowColor to -1
Set ComInflateItems to "-8*dpi"
Set ComItemsBackColor to (RGB(240,240,240))
Set ComRadialLineColor OLEexRadialSubItemsChildren to (RGB(0,0,0))
Set ComRadialLineAlpha OLEexRadialSubItemsChildren to 64
Set ComRadialLineSize OLEexRadialSubItemsChildren to -1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
Send Destroy to hoItems
End_Procedure
|
|
53
|
Is it possible to highlight the entire item, when cursor hovers it
Procedure OnCreate
Forward Send OnCreate
Set ComExpanded to True
Set ComShadowColor to -1
Set ComInflateItems to "-8*dpi"
Set ComItemsBackColor to (RGB(240,240,240))
Set ComRadialLineColor OLEexRadialHotFullItem to (RGB(0,0,0))
Set ComRadialLineAlpha OLEexRadialHotFullItem to 64
Set ComRadialLineSize OLEexRadialHotFullItem to -1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
Send Destroy to hoItems
End_Procedure
|
|
52
|
How can I change the border around the subitems zone, when cursor hovers it ( outer ring )
Procedure OnCreate
Forward Send OnCreate
Set ComExpanded to True
Set ComShadowColor to -1
Set ComInflateItems to "-8*dpi"
Set ComItemsBackColor to (RGB(240,240,240))
Set ComRadialLineColor OLEexRadialHotFullItem to (RGB(0,0,0))
Set ComRadialLineStyle OLEexRadialHotFullItem to OLEexRadialLineDot
Set ComRadialLineSize OLEexRadialHotFullItem to 3
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
Send Destroy to hoItems
End_Procedure
|
|
51
|
How can I change the border around the subitems zone, when cursor hovers it ( outer ring )
Procedure OnCreate
Forward Send OnCreate
Set ComExpanded to True
Set ComShadowColor to -1
Set ComInflateItems to "-8*dpi"
Set ComItemsBackColor to (RGB(240,240,240))
Set ComRadialLineColor OLEexRadialHotSubItem to (RGB(0,0,0))
Set ComRadialLineStyle OLEexRadialHotSubItem to OLEexRadialLineDot
Set ComRadialLineSize OLEexRadialHotSubItem to 3
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
Send Destroy to hoItems
End_Procedure
|
|
50
|
How can I change the border around the items zone, when cursor hovers it ( inner ring )
Procedure OnCreate
Forward Send OnCreate
Set ComExpanded to True
Set ComShadowColor to -1
Set ComInflateItems to "-8*dpi"
Set ComItemsBackColor to (RGB(240,240,240))
Set ComRadialLineColor OLEexRadialHotItem to (RGB(0,0,0))
Set ComRadialLineStyle OLEexRadialHotItem to OLEexRadialLineDot
Set ComRadialLineSize OLEexRadialHotItem to 3
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
Send Destroy to hoItems
End_Procedure
|
|
49
|
How can I change the border around the parent zone, when cursor hovers it ( center ring )
Procedure OnCreate
Forward Send OnCreate
Set ComExpanded to True
Set ComShadowColor to -1
Set ComInflateItems to "-8*dpi"
Set ComItemsBackColor to (RGB(240,240,240))
Set ComRadialLineColor OLEexRadialHotParent to (RGB(0,0,0))
Set ComRadialLineStyle OLEexRadialHotParent to OLEexRadialLineDot
Set ComRadialLineSize OLEexRadialHotParent to 3
End_Procedure
|
|
48
|
How can I change the border around the items zone ( inner ring )
Procedure OnCreate
Forward Send OnCreate
Set ComExpanded to True
Set ComShadowColor to -1
Set ComInflateItems to "-8*dpi"
Set ComItemsBackColor to (RGB(240,240,240))
Set ComRadialLineColor OLEexRadialItemsBorder to (RGB(0,0,0))
Set ComRadialLineStyle OLEexRadialItemsBorder to OLEexRadialLineDot
Set ComRadialLineSize OLEexRadialItemsBorder to 3
End_Procedure
|
|
47
|
How can I change the border around the parent zone ( center ring )
Procedure OnCreate
Forward Send OnCreate
Set ComExpanded to True
Set ComShadowColor to -1
Set ComInflateItems to "-8*dpi"
Set ComItemsBackColor to (RGB(240,240,240))
Set ComRadialLineColor OLEexRadialParentBorder to (RGB(0,0,0))
Set ComRadialLineStyle OLEexRadialParentBorder to OLEexRadialLineDot
Set ComRadialLineSize OLEexRadialParentBorder to 3
End_Procedure
|
|
46
|
How can I change the grid lines in the items zone ( inner ring )
Procedure OnCreate
Forward Send OnCreate
Set ComExpanded to True
Set ComShadowColor to -1
Set ComInflateItems to "-8*dpi"
Set ComItemsBackColor to (RGB(240,240,240))
Set ComRadialLineColor OLEexRadialItemsGridLines to (RGB(0,0,0))
Set ComRadialLineStyle OLEexRadialItemsGridLines to OLEexRadialLineDot
Set ComRadialLineSize OLEexRadialItemsGridLines to 3
End_Procedure
|
|
45
|
How can I change the border around the slider / custom part of the control
Procedure OnCreate
Forward Send OnCreate
Set ComExpanded to True
Set ComShadowColor to -1
Set ComInflateItems to "-8*dpi"
Set ComInflateCustom to (ComInflateItems(Self))
Set ComItemsBackColor to (RGB(240,240,240))
Set ComRadialLineColor OLEexRadialCustomBorder to (RGB(0,0,0))
Set ComRadialLineStyle OLEexRadialCustomBorder to OLEexRadialLineDot
Set ComRadialLineSize OLEexRadialCustomBorder to 3
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voItem
Get ComAdd of hoItems "Slider" Nothing Nothing to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComBrowseType of hoItem to OLEexBrowseItemCustom
Set ComBrowseCustomType of hoItem to OLEexRadialCustomSlider
Send Destroy to hoItem
Send Destroy to hoItems
Variant v
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComItem of hoItems1 "Slider" to v
Send Destroy to hoItems1
Set ComBrowseItem to v
End_Procedure
|
|
44
|
How can I change the grid lines in the subitems zone ( outer ring )
Procedure OnCreate
Forward Send OnCreate
Set ComExpanded to True
Set ComShadowColor to -1
Set ComInflateItems to "-8*dpi"
Set ComItemsBackColor to (RGB(240,240,240))
Set ComRadialLineColor OLEexRadialSubItemsGridLines to (RGB(0,0,0))
Set ComRadialLineStyle OLEexRadialSubItemsGridLines to OLEexRadialLineDot
Set ComRadialLineSize OLEexRadialSubItemsGridLines to 3
End_Procedure
|
|
43
|
How can I change the border around the subitems (exRadialSubItemsBorder)
Procedure OnCreate
Forward Send OnCreate
Set ComExpanded to True
Set ComShadowColor to -1
Set ComInflateItems to "-8*dpi"
Set ComItemsBackColor to (RGB(240,240,240))
Set ComRadialLineColor OLEexRadialSubItemsBorder to (RGB(0,0,0))
Set ComRadialLineStyle OLEexRadialSubItemsBorder to OLEexRadialLineDot
Set ComRadialLineSize OLEexRadialSubItemsBorder to 3
End_Procedure
|
|
42
|
How can I change the border around the radial menu (exRadialBorder)
Procedure OnCreate
Forward Send OnCreate
Set ComExpanded to True
Set ComShadowColor to -1
Set ComInflateItems to "-8*dpi"
Set ComItemsBackColor to (RGB(240,240,240))
Set ComRadialLineColor OLEexRadialBorder to (RGB(0,0,0))
Set ComRadialLineStyle OLEexRadialBorder to OLEexRadialLineDot
Set ComRadialLineSize OLEexRadialBorder to 3
End_Procedure
|
|
41
|
How can I customize the parent part of the control, the center ring/circle
Procedure OnCreate
Forward Send OnCreate
Set ComExpanded to True
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Item 1[scap=Item 1],Item 2[scap=Item 2],Item 3[scap=Item 3],Item 4[scap=Item 4]"
Send Destroy to hoItems
Set ComParentSize to "48 * dpi"
Set ComParentImageHeight OLEexRadialMenuStateAll to "78 * dpi"
Set ComParentImageWidth OLEexRadialMenuStateAll to "78 * dpi"
Set ComParentBackColor to (RGB(0,255,0))
Set ComParentBackAlpha to 128
Set ComExcludeParentFromItems to True
End_Procedure
|
|
40
|
How can I prevent showing the arrow in the outer ring
Procedure OnCreate
Forward Send OnCreate
Set ComExpanded to True
Set ComArrowImage to ""
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Child(SubChild)"
Send Destroy to hoItems
End_Procedure
|
|
39
|
Is it possible to change the default arrow, that items with children display (method 2)
Procedure OnCreate
Forward Send OnCreate
Set ComExpanded to True
Set ComHTMLPicture "pic1" to "gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0iIEOZCJJUBEjBB8BBkRERAJzKRHIQAVzODjpjpnIJNIMKWKPBb8MIFiIJOBILJzhQLCdHCYBACaTgYiKHJJEIJULBHMYYAqjMAURiCKJAAogA6lA4EGgAeJnEC2ALzdAMICWf6HMS6HYCbJyvF6eSfIC8CqJJ5zI6gLbuA7ERhAHgNFRGKZHMCzDgGNDukqWYYAZocSIIYiEFiHAJsRygXCccABcTDIBMZByDBAOwEFDkVACICOOCAGCJAQgI54IaYrlesAwBQGGpgMEKcpDGoqB6RSpriIAJJFJxEVxCMCCgI"
Set ComArrowImage to "pic1"
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Child(SubChild)"
Send Destroy to hoItems
End_Procedure
|
|
38
|
Is it possible to change the default arrow, that items with children display (method 1)
Procedure OnCreate
Forward Send OnCreate
Set ComHTMLPicture "arrow" to "gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0iIEOZCJJUBEjBB8BBkRERAJzKRHIQAVzODjpjpnIJNIMKWKPBb8MIFiIJOBILJzhQLCdHCYBACaTgYiJfJJEIJULBHdrOYIJQAwCBEaK1FQbeaoYwGVjLWR0EgJRAEBpICwPf7BY4cQgdAYAcCjUCWfD0G6rHrlHziPTcPrEUjuY5zZpHHgdZ41DYxVTSYJSaojXT0PrTVZBar+P5aaoWT8KfiWbIBZQ1ErVPbDPyYiIAJJFJxEVxCMCCgIA=="
Set ComExpanded to True
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Child(SubChild)"
Send Destroy to hoItems
End_Procedure
|
|
37
|
How can I change the logo image
Procedure OnCreate
Forward Send OnCreate
Set ComHTMLPicture "logo" to "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images\favorites.png"
End_Procedure
|
|
36
|
How can I customize the items part of the control, the inside ring/circle
Procedure OnCreate
Forward Send OnCreate
Set ComDisplayRadial OLEexRadialFullItems to OLEexDisplayRadialRotated
Set ComExpanded to True
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Item 1[scap=Item 1],Item 2[scap=Item 2],Item 3[scap=Item 3],Item 4[scap=Item 4]"
Send Destroy to hoItems
Set ComInflateRadialMenu to "-4*dpi"
Set ComInflateItems to "-4*dpi"
Set ComItemsBackColor to (RGB(0,255,0))
Set ComItemsBackAlpha to 128
End_Procedure
|
|
35
|
How can I customize the subitems part of the control, the outside ring/circle
Procedure OnCreate
Forward Send OnCreate
Set ComExpanded to True
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "[scap=Item 1],[scap=Item 2],[scap=Item 3],[scap=Item 4]"
Send Destroy to hoItems
Set ComInflateRadialMenu to "-4*dpi"
Set ComSubItemsSize to "48 * dpi"
Set ComSubItemsBackColor to (RGB(0,255,0))
Set ComSubItemsBackAlpha to 128
End_Procedure
|
|
34
|
Can I expand/shrink the radial menu relative to its border/shadow
Procedure OnCreate
Forward Send OnCreate
Set ComExpanded to True
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Item 1,Item 2,Item 3,Item 4"
Send Destroy to hoItems
Set ComInflateRadialMenu to "-6*dpi"
End_Procedure
|
|
33
|
Is it possible to remove/hive the control's shadow
Procedure OnCreate
Forward Send OnCreate
Set ComExpanded to True
Set ComShadowColor to -1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Item 1,Item 2,Item 3,Item 4"
Send Destroy to hoItems
End_Procedure
|
|
32
|
How do I change the color of the control's shadow
Procedure OnCreate
Forward Send OnCreate
Set ComExpanded to True
Set ComShadowColor to (RGB(255,0,0))
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Item 1,Item 2,Item 3,Item 4"
Send Destroy to hoItems
End_Procedure
|
|
31
|
How can I evaluate/format an expression using the control
Procedure OnCreate
Forward Send OnCreate
Set ComAllowToggleExpand to False
Set ComDisplayAngle to -66
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Item 1,Item 2,Item 3,Item 4"
Send Destroy to hoItems
Variant vA
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComCount of hoItems1 to vA
Send Destroy to hoItems1
Set ComCaption OLEexLayerCaption to (ComFormatABC(Self,"`The number of items is: <b>` + value",vA,Nothing,Nothing))
End_Procedure
|
|
30
|
Is it possible to display some extra captions on the control's background
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComExpanded to True
Set ComMinVisibleCount to 6
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Item 1,Item 2,Item 3,Item 4"
Send Destroy to hoItems
Set ComCaption OLEexLayerCaption to "This is a caption to be displayed on the control's background."
Set ComExtraCaption "extra" OLEexLayerCaption to "This is an extra caption to be displayed on the control's background."
Set ComExtraCaption "extra" OLEexLayerCaptionAnchor to 2
Set ComExtraCaption "extra" OLEexLayerCaptionWordWrap to True
Set ComExtraCaption "extralogo" OLEexLayerCaption to "<img>logo:64</img>"
Set ComExtraCaption "extralogo" OLEexLayerCaptionAnchor to 4
Set ComExtraCaption "extralogo" OLEexLayerCaptionLeft to "width-twidth"
Send ComEndUpdate
End_Procedure
|
|
29
|
What events the control supports
// Notifies the application once the control fires an event.
Procedure OnComEvent Integer llEventID
Forward Send OnComEvent llEventID
Showln (ComEventParam(Self,-2))
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComExpanded to True
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Item 1,Item 2,Item 3,Item 4"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
28
|
How can I use/load images/pictures
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComExpanded to True
Set ComPicturesPath to "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
Set ComHTMLPicture "relative" to "settings.png"
Set ComHTMLPicture "absolute" to "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images\favorites.png"
Set ComHTMLPicture "encoded" to ("gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0iIEOZCJJUBEjBB8BBkRERBJwJBZOcKAZ2mB2AJ9aqCZkRDJ0IpYOhTN5mOh3MJyMoAO9JFxpNxrOZjMJwMouN5yM6bdw8DUKAjoJJEIJULCFYqXLpsChVCjHf4zTo7XZjXazUJQUgCWoNCqWYp+ZS2vDyEqSGz6UjUA4tRIkAysGyRC6fPogEyaCCjYI3Dw0YyETDiQbRA5TSJ+aQWUKLcAubrdNTaOi7XBYbRlO67brOXpzPrATrdOpmRZGFInHLJfo4GbnG7ncbeRjAHLHYYUeKhPQHEBlAynJ6fbRcXyxeQLTZsNZJEwTETnAAhEirGQBSIyOYZQhISAkARRChQnWHQUGqUA0goTRbAYJpplAKIGm0WQ7DeVg0jARggksBJRkYBx/AiTp2nYdw/DuHQHjANpsjGT53jabprl0MwmhSAggjwEAvlWdY9Cieg7HobJYmWUYvgENBkgGcAdE8FIXBcYJ5SiAY4k8SJpBqUoQEkeg6DMNwACIUZfguVojCCORnBiCcmPmFhSimLBWkcRBjnGYxsAAMBKFaDRAGcTACgALYMnAMQ/h+bwdnqHwAHAUYHh+IAujaRpSm6dJHh+zJvj8M4tD+UJegaE5dm+Gw+DKYgcAOFBpmCHIXlQH5+DwCInGqAJijcI53kKBYCnaRwOnaYh9FkOooA6EpDFcF4tkOMYjh2BoNmMOgZkAVwzlSfwXFiLAGB+b5cECQZ9nucZgF8XoMAyXZGDoHQ2jSVZVBUXRdicYB0joDBtOAARVFUDQbCYW5ECAUzGjoMA0AQUQUFAUJfAcHZPjUAhSg0IwjGOBRtBuPZNFgYZykEKY6jAQ5lkKMwnimbwfFGKwAFYGBgGgUoljwIgoigK4pkGXRNA0ZAZGCYB4CgII9iCCB4GUSIHBwKoKg6I4dIqIQfEAKoFDQAJADgHBGEyOAMD2LYtjCW5tiiKQpEEHpdjsEIIAYMR3GcTpBAgCu/nQPh6hqHgvCiMJtH2K4U3aDYBhCCR1DUNZGlqQx9D0JApAjjgjgWAQoCUKJe40SgpWwOoFGYQxdFccZlHwKpsDaGxcFsNoamsboXAuMghDgfJlCeFY7EcSp5j2FJQZocwbQUQxICYExYjOa43GwMhNlid2xmgbBoEAfJ8h2TBNE0WQ6DkOpuEWC4vj0DIbhOARzAeWZVACVYRA4e49BCBMAQtw9i7BSDIHY3A3AQd+NUHYbhug5GGEMdA7g9ATH6IMQY5hkAUB0AkOYRRpg0CYAQE4QAyAJB7CkdAgQsgIBCPAfI/Q0BvDWIMKgZBeAKX4BoSIWxbjwGsPEcY+BfC3Au6ZzQdhPj9EmKMfAZhwAmBwOcVAqhWDEFsK0bYABFhTG0Oce4IQ5ArEEEAEAgB2iuHaMYfQ+AagvDsDcG4AQACaB6B4Lguw/AdEaPUeoOQADZAoOQLoRhdCeG6PAfY/RIAJGCKEQYhxYB5GmcId4BxlDLGWHEdwqw5wwD6PcEAMwABeBeJ4P47gIB0C6McSYbgbguHsPdiYthrDYF+O8MolAuBMDEDYCQxhtC1FKNgeA6BDCCGOO4UwjRNigXsGYYQMwsBcC4IRiCdBxiIG8I4UQbxQAPAEAQOAcBmBGDMJEJAJAoTWDYPg+Y5ALDGDICgAgSRJDgDSPQcgRRihKE0HcGwYw8BkAQMEKAABag1DrKANAOw+AYBaLsLYDBNj+GCAEfg4paBpFOMccgKw9gZHKHQYI5A3iTkaEEMoVRqiKD6M4HIRwqtVAQJEGA+Q1gIE4HMAgQywhvFSEYEVOB6CJBaNUBEJA5C6BQAsEAZBhDeqoMYZ4nB8gUUavEEICABDuG8L0PY3wECIFEAimqrwjgsAsIMaY6QiA8A8M8PYTgKBFBwBwBwxAxAxAAMAZIkx3jgH4PkV4hR+AUH4HUNQARgDCsgIoJwcxCgxEM+IPIYw3D1BYGMFgbwegXBcK8AwchtjwCCEoVwFwBhABMDIconAlgWHsP8XYKA7D" + ;
"FFwAwOQfxmh6FPcEd4Ww6D/CqCMSICAMBjD6KYBAzBmjNF6HEew7BsjPCoFUNoTQTCTCKAAUAKAFDsDsDuu4sQODbDYDYJAkgCBKBSNIdINBLX1EgEoUt9xShMDHfAMgWQzCpCoGoMAYQwjhHqIwL4YRajyC8EgDw+hvjxE+BUNgPAgjmBkBsfpEQABJCKE4IgrghBgEEQEA=")
Set ComBackgroundPicture to "Background\frame.png"
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAdd of hoItems "Relative 1" "relative" Nothing to Nothing
Variant voItem
Get ComAdd of hoItems "Relative 1" Nothing Nothing to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComImage of hoItem OLEexRadialItems to "settings.png"
Send Destroy to hoItem
Get ComAdd of hoItems "Aboslute 1" "absolute" Nothing to Nothing
Get ComAdd of hoItems "Aboslute 2" "favorites.png" Nothing to Nothing
Get ComAdd of hoItems "Encoded 1" "encoded" Nothing to Nothing
Variant voItem1
Get ComAdd of hoItems "Encoded 2" Nothing Nothing to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Set ComImage of hoItem1 OLEexRadialItems to ("gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0iIEOZCJJUBEjBB8BBkRERBJwJBZOcKAZ2mB2AJ9aqCZkRDJ0IpYOhTN5mOh3MJyMoAO9JFxpNxrOZjMJwMouN5yM6bdw8DUKAjoJJEIJULCFYqXLpsChVCjHf4zTo7XZjXazUJQUgCWoNCqWYp+ZS2vDyEqSGz6UjUA4tRIkAysGyRC6fPogEyaCCjYI3Dw0YyETDiQbRA5TSJ+aQWUKLcAubrdNTaOi7XBYbRlO67brOXpzPrATrdOpmRZGFInHLJfo4GbnG7ncbeRjAHLHYYUeKhPQHEBlAynJ6fbRcXyxeQLTZsNZJEwTETnAAhEirGQBSIyOYZQhISAkARRChQnWHQUGqUA0goTRbAYJpplAKIGm0WQ7DeVg0jARggksBJRkYBx/AiTp2nYdw/DuHQHjANpsjGT53jabprl0MwmhSAggjwEAvlWdY9Cieg7HobJYmWUYvgENBkgGcAdE8FIXBcYJ5SiAY4k8SJpBqUoQEkeg6DMNwACIUZfguVojCCORnBiCcmPmFhSimLBWkcRBjnGYxsAAMBKFaDRAGcTACgALYMnAMQ/h+bwdnqHwAHAUYHh+IAujaRpSm6dJHh+zJvj8M4tD+UJegaE5dm+Gw+DKYgcAOFBpmCHIXlQH5+DwCInGqAJijcI53kKBYCnaRwOnaYh9FkOooA6EpDFcF4tkOMYjh2BoNmMOgZkAVwzlSfwXFiLAGB+b5cECQZ9nucZgF8XoMAyXZGDoHQ2jSVZVBUXRdicYB0joDBtOAARVFUDQbCYW5ECAUzGjoMA0AQUQUFAUJfAcHZPjUAhSg0IwjGOBRtBuPZNFgYZykEKY6jAQ5lkKMwnimbwfFGKwAFYGBgGgUoljwIgoigK4pkGXRNA0ZAZGCYB4CgII9iCCB4GUSIHBwKoKg6I4dIqIQfEAKoFDQAJADgHBGEyOAMD2LYtjCW5tiiKQpEEHpdjsEIIAYMR3GcTpBAgCu/nQPh6hqHgvCiMJtH2K4U3aDYBhCCR1DUNZGlqQx9D0JApAjjgjgWAQoCUKJe40SgpWwOoFGYQxdFccZlHwKpsDaGxcFsNoamsboXAuMghDgfJlCeFY7EcSp5j2FJQZocwbQUQxICYExYjOa43GwMhNlid2xmgbBoEAfJ8h2TBNE0WQ6DkOpuEWC4vj0DIbhOARzAeWZVACVYRA4e49BCBMAQtw9i7BSDIHY3A3AQd+NUHYbhug5GGEMdA7g9ATH6IMQY5hkAUB0AkOYRRpg0CYAQE4QAyAJB7CkdAgQsgIBCPAfI/Q0BvDWIMKgZBeAKX4BoSIWxbjwGsPEcY+BfC3Au6ZzQdhPj9EmKMfAZhwAmBwOcVAqhWDEFsK0bYABFhTG0Oce4IQ5ArEEEAEAgB2iuHaMYfQ+AagvDsDcG4AQACaB6B4Lguw/AdEaPUeoOQADZAoOQLoRhdCeG6PAfY/RIAJGCKEQYhxYB5GmcId4BxlDLGWHEdwqw5wwD6PcEAMwABeBeJ4P47gIB0C6McSYbgbguHsPdiYthrDYF+O8MolAuBMDEDYCQxhtC1FKNgeA6BDCCGOO4UwjRNigXsGYYQMwsBcC4IRiCdBxiIG8I4UQbxQAPAEAQOAcBmBGDMJEJAJAoTWDYPg+Y5ALDGDICgAgSRJDgDSPQcgRRihKE0HcGwYw8BkAQMEKAABag1DrKANAOw+AYBaLsLYDBNj+GCAEfg4paBpFOMccgKw9gZHKHQYI5A3iTkaEEMoVRqiKD6M4HIRwqtVAQJEGA+Q1gIE4HMAgQywhvFSEYEVOB6CJBaNUBEJA5C6BQAsEAZBhDeqoMYZ4nB8gUUavEEICABDuG8L0PY3wECIFEAimqrwjgsAsIMaY6QiA8A8M8PYTgKBFBwBwBwxAxAxAAMAZIkx3jgH4PkV4hR+AUH4HUNQARgDCsgIoJwcxCgxEM+IPIYw3D1BYGMFgbwegXBcK8AwchtjwCCEoVwFwBhABMDIconAlgWHsP8XYKA7D" + ;
"FFwAwOQfxmh6FPcEd4Ww6D/CqCMSICAMBjD6KYBAzBmjNF6HEew7BsjPCoFUNoTQTCTCKAAUAKAFDsDsDuu4sQODbDYDYJAkgCBKBSNIdINBLX1EgEoUt9xShMDHfAMgWQzCpCoGoMAYQwjhHqIwL4YRajyC8EgDw+hvjxE+BUNgPAgjmBkBsfpEQABJCKE4IgrghBgEEQEA=")
Send Destroy to hoItem1
Get ComAdd of hoItems "<c><img>relative</img><br><c>Relative 3" Nothing Nothing to Nothing
Get ComAdd of hoItems "<c>Relative 4<br><c><img>relative</img>" "relative" Nothing to Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
27
|
Does your control supports tooltips (method 2)
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY
Forward Send OnComMouseMove llButton llShift llX llY
Send ComShowToolTip (ComFormatABC(Self,"`Index of the pie from the cursor: ` + (value >= 0 ? value : `<fgcolor=808080>none` )",(ComIndexFromPoint(Self,OLEexRadialFullItems,-1,-1)),Nothing,Nothing)) "Info" 0 "8" "8"
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComDisplayAngle to -45
Set ComExpanded to True
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Item 0"
Get ComAdd of hoItems "Item 1" Nothing Nothing to Nothing
Get ComAdd of hoItems "Item 2" Nothing Nothing to Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
26
|
Can I change the visual appearance of the control's tooltip
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexToolTipAppearance to |CI$1000000
Set ComDisplayAngle to -45
Set ComExpanded to True
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Item 0[ttp=tooltip's item][sttp=tooltip's subitem]"
Variant voItem
Get ComAdd of hoItems "Item 1" Nothing Nothing to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComTooltip of hoItem OLEexRadialItems to "This is a bit of text that shown when user <b>hovers</b> the item"
Send Destroy to hoItem
Variant voItem1
Get ComAdd of hoItems "Item 2" Nothing Nothing to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Set ComTooltip of hoItem1 OLEexRadialItems to "This is a bit of text that shown when user hovers the item"
Set ComTooltip of hoItem1 OLEexRadialSubItems to "This is a bit of text that shown when user hovers the sub-item"
Send Destroy to hoItem1
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
25
|
Does your control supports tooltips (method 1)
Procedure OnCreate
Forward Send OnCreate
Set ComDisplayAngle to -45
Set ComExpanded to True
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Item 0[ttp=tooltip's item][sttp=tooltip's subitem]"
Variant voItem
Get ComAdd of hoItems "Item 1" Nothing Nothing to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComTooltip of hoItem OLEexRadialItems to "This is a bit of text that shown when user <b>hovers</b> the item"
Send Destroy to hoItem
Variant voItem1
Get ComAdd of hoItems "Item 2" Nothing Nothing to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Set ComTooltip of hoItem1 OLEexRadialItems to "This is a bit of text that shown when user hovers the item"
Set ComTooltip of hoItem1 OLEexRadialSubItems to "This is a bit of text that shown when user hovers the sub-item"
Send Destroy to hoItem1
Send Destroy to hoItems
End_Procedure
|
|
24
|
How can I use/load icons
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComExpanded to True
Set ComPicturesPath to "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images\Icons"
Send ComImages "copy.ico"
Send ComImages "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images\Icons\dvd.ico"
Send ComImages "gBJJgBggAAQAAgACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUnOktd54mD/lp0f5wmz/Ns5f5qnj/NE/f5noT/M1FolGopmo9KpNLpxfqDvldTqlVq1XrFZrVbrldr1fjKPsT/ftlf72er0s71er/e72e1ut9ye90uz3vF3vN4ut8u1NsGBwWDwmFw2DUWJf9peb/UyXSj/Yq+Xj/Y7BX7/ZLDYL/ZTFYeeYrEf7LY2kZbHYul1T/arTaT/Kq4Kb/G7IGz/cD5cD/Ne/f+H4XD4nF41UWvJxb0xq4Viqf66V6sf68WKvf69WSw7KzWL/Xy0WXg8T/X/l8/jbzcbb/MDAL/uanxcb7cb/Pv54PH/n9/z/qsY8BOWxq0LUtC2reuK8QWvcHL7B67HAeTem2er2n0fx9H+SEOv3AEQRDETDl/Ep3mWZJkH+ZhlGUf5mmWZcXmZGUaRkZRkmSf5kQG0bSGEYTOmBErsl4ypdFyXJ/luW5bH+WkoH+TEpqlEcrSvLCsKEM5Am6bT2n4eq6zDMcxH/MkzzMfZ6LifR5rafB4wKd54H+eR1HWf52nIcp/nKbhun+SpJEkf4aUOQMs0VRdFAbRwImfSJ/nyeS1TQclAH+fR7Lqc52PuGBVBgf4klaIx/mMYRbs8XEnGZIc9T4f5vmua5/j3XB/gPXYI0ZX1fwAgiCD/YhPnIcJxTSup+nyfZ/nceh2n+HRYh4f4HFCCNr2zaZYh2f51ngdB/nwea1T3PpbFk8Yn3aT9hJJYF5Xm4V4A1e4Q0iZ9J0rZ54HSf4glqIh/gwU4OH+FxahxhOF4Lg5/iAWYhH+chzG8f5znAcJ/ksSpKn+CORBDeF6ZNk6wXheA5ZYR5gmUYWIlkIp/g+VgTH+Gxc4oJRiiyf4jmGKuc53mubn+HBVB8f5MlETR/itqJH5VYWUatq6r6pqgQkeE5nhSWIYn/sGxbIf4wmmOp/imZQybHsO37LuGua9rWVaxvG8ozu2+a0GZbh6f48nCSKgmsPh/7/wO+8Zqu9cfq3G8aFBaYYL5tEIf4omgOJ/8phnJcZyHR5N0O+gqVgUn+Fhgisf4TF4JZ/9R1XTb50ncWB227AiUgQ5D33gd/3vf93rXc+RRaKh8lfmI6j6Q72AF4oyQDBIf5N6IC"
Set ComHTMLPicture "icon" to "download.ico"
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Icon 0[img=0]"
Get ComAdd of hoItems "Icon 1" 1 Nothing to Nothing
Get ComAdd of hoItems "Icon 2" "print.ico" Nothing to Nothing
Variant voItem
Get ComAdd of hoItems "Icon 3" Nothing Nothing to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComImage of hoItem OLEexRadialSubItems to "icon"
Send Destroy to hoItem
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
23
|
How can I load items /images to the control, in sub-items zone
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAllowToggleExpand to False
Set ComPicturesPath to "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
Set ComHTMLPicture "logo" to "settings.png"
Set ComRadialLineColor OLEexRadialParentBorder to (ComSubItemsBackColor(Self))
Set ComRadialLineColor OLEexRadialItemsGridLines to -1
Set ComSubItemsSize to "64 * dpi"
Set ComParentSize to "value - 66 * dpi"
Set ComParentImageWidth OLEexRadialMenuStateAll to "64*dpi"
Set ComParentImageHeight OLEexRadialMenuStateAll to "64*dpi"
Set ComParentCaption OLEexRadialMenuStateAll to "<font ;14><c>System Settings</font><br><c>Surround"
Set ComRadialLineSize OLEexRadialHotFullItem to 0
Set ComRadialLineSize OLEexRadialHotSubItem to -1
Set ComRadialLineColor OLEexRadialHotSubItem to |CI$8000000d
Set ComRadialLineAlpha OLEexRadialHotSubItem to 128
Set ComItemsBackColor to (ComSubItemsBackColor(Self))
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAdd of hoItems "" "color_line.png" 2 to Nothing
Get ComAdd of hoItems "" "color_fill.png" 2 to Nothing
Get ComAdd of hoItems "" "format_font_size_less.png" 2 to Nothing
Get ComAdd of hoItems "" "edit_undo.png" 2 to Nothing
Get ComAdd of hoItems "" "edit_redo.png" 2 to Nothing
Get ComAdd of hoItems "" "edit_copy.png" 2 to Nothing
Get ComAdd of hoItems "" "fileview_text.png" 2 to Nothing
Get ComAdd of hoItems "" "checkmark_korganizer.png" 2 to Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
22
|
How can I load items /images to the control
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComExpanded to True
Set ComPicturesPath to "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
Set ComHTMLPicture "arrow" to "arrow.png"
Set ComSubItemsBackColor to (RGB(190,190,190))
Set ComShadowColor to (ComSubItemsBackColor(Self))
Set ComRadialLineColor OLEexRadialParentBorder to (ComSubItemsBackColor(Self))
Set ComRadialLineColor OLEexRadialItemsGridLines to -1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voItem
Get ComAdd of hoItems "Foreground-Color" "color_line.png" Nothing to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Variant voItems1
Get ComItems of hoItem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComToString of hoItems1 to "Foreground"
Send Destroy to hoItems1
Send Destroy to hoItem
Variant voItem1
Get ComAdd of hoItems "Background-Color" "color_fill.png" Nothing to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Variant voItems2
Get ComItems of hoItem1 to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Set ComToString of hoItems2 to "Background"
Send Destroy to hoItems2
Send Destroy to hoItem1
Variant voItem2
Get ComAdd of hoItems "Font" "format_font_size_less.png" Nothing to voItem2
Handle hoItem2
Get Create (RefClass(cComItem)) to hoItem2
Set pvComObject of hoItem2 to voItem2
Variant voItems3
Get ComItems of hoItem2 to voItems3
Handle hoItems3
Get Create (RefClass(cComItems)) to hoItems3
Set pvComObject of hoItems3 to voItems3
Set ComToString of hoItems3 to "Font"
Send Destroy to hoItems3
Send Destroy to hoItem2
Variant voItem3
Get ComAdd of hoItems "Undo" "edit_undo.png" Nothing to voItem3
Handle hoItem3
Get Create (RefClass(cComItem)) to hoItem3
Set pvComObject of hoItem3 to voItem3
Variant voItems4
Get ComItems of hoItem3 to voItems4
Handle hoItems4
Get Create (RefClass(cComItems)) to hoItems4
Set pvComObject of hoItems4 to voItems4
Set ComToString of hoItems4 to "Undo"
Send Destroy to hoItems4
Send Destroy to hoItem3
Variant voItem4
Get ComAdd of hoItems "Redo" "edit_redo.png" Nothing to voItem4
Handle hoItem4
Get Create (RefClass(cComItem)) to hoItem4
Set pvComObject of hoItem4 to voItem4
Variant voItems5
Get ComItems of hoItem4 to voItems5
Handle hoItems5
Get Create (RefClass(cComItems)) to hoItems5
Set pvComObject of hoItems5 to voItems5
Set ComToString of hoItems5 to "Redo"
Send Destroy to hoItems5
Send Destroy to hoItem4
Variant voItem5
Get ComAdd of hoItems "Copy" "edit_copy.png" Nothing to voItem5
Handle hoItem5
Get Create (RefClass(cComItem)) to hoItem5
Set pvComObject of hoItem5 to voItem5
Variant voItems6
Get ComItems of hoItem5 to voItems6
Handle hoItems6
Get Create (RefClass(cComItems)) to hoItems6
Set pvComObject of hoItems6 to voItems6
Set ComToString of hoItems6 to "Copy"
Send Destroy to hoItems6
Send Destroy to hoItem5
Variant voItem6
Get ComAdd of hoItems "List" "fileview_text.png" Nothing to voItem6
Handle hoItem6
Get Create (RefClass(cComItem)) to hoItem6
Set pvComObject of hoItem6 to voItem6
Variant voItems7
Get ComItems of hoItem6 to voItems7
Handle hoItems7
Get Create (RefClass(cComItems)) to hoItems7
Set pvComObject of hoItems7 to voItems7
Set ComToString of hoItems7 to "List"
Send Destroy to hoItems7
Send Destroy to hoItem6
Variant voItem7
Get ComAdd of hoItems "Tag" "checkmark_korganizer.png" Nothing to voItem7
Handle hoItem7
Get Create (RefClass(cComItem)) to hoItem7
Set pvComObject of hoItem7 to voItem7
Variant voItems8
Get ComItems of hoItem7 to voItems8
Handle hoItems8
Get Create (RefClass(cComItems)) to hoItems8
Set pvComObject of hoItems8 to voItems8
Set ComToString of hoItems8 to "Tag"
Send Destroy to hoItems8
Send Destroy to hoItem7
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
21
|
How can I load items to the control
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComMinVisibleCount to 3
Set ComPicturesPath to "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
Set ComHTMLPicture "remove" to "remove.png"
Set ComHTMLPicture "refresh" to "refresh.png"
Set ComHTMLPicture "preview" to "preview.png"
Set ComHTMLPicture "search" to "search.png"
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voItem
Get ComAdd of hoItems "Search" "search" Nothing to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Variant voItems1
Get ComItems of hoItem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComToString of hoItems1 to "Search A,Search B,Search C"
Send Destroy to hoItems1
Send Destroy to hoItem
Get ComAdd of hoItems "Refresh" "refresh" Nothing to Nothing
Get ComAdd of hoItems "Preview" "preview" Nothing to Nothing
Get ComAdd of hoItems "Remove" "remove" Nothing to Nothing
Send Destroy to hoItems
Set ComExpanded to True
Send ComEndUpdate
End_Procedure
|
|
20
|
How do I get the version of the control I am running
Procedure OnCreate
Forward Send OnCreate
Showln "Version:" (ComVersion(Self))
End_Procedure
|
|
19
|
How do I select an item
// Notifies once the user selects an item.
Procedure OnComSelectItem Variant llItem
Forward Send OnComSelectItem llItem
// SelectedIndex(3) = Item.Index
Showln "selection changed"
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComAllowToggleExpand to False
Set ComToString to "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
Set ComSelectedIndex OLEexRadialFullItems to 0
End_Procedure
|
|
18
|
How can I change the item's foreground color (sample 3)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComExpanded to True
Set ComMinVisibleCount to 6
Variant voStdFont
Get ComFont to voStdFont
Handle hoStdFont
Get Create (RefClass(cComStdFont)) to hoStdFont
Set pvComObject of hoStdFont to voStdFont
Set ComSize of hoStdFont to "14.25"
Send Destroy to hoStdFont
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voItem
Get ComAdd of hoItems "Item 1" Nothing Nothing to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComName of hoItem to "<fgcolor FF0000>Item</fgcolor> 1"
Variant voItems1
Get ComItems of hoItem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAdd of hoItems1 "SubItem 1" Nothing Nothing to Nothing
Get ComAdd of hoItems1 "SubItem 2" Nothing Nothing to Nothing
Send Destroy to hoItems1
Send Destroy to hoItem
Get ComAdd of hoItems "Item 2" Nothing Nothing to Nothing
Get ComAdd of hoItems "Item 3" Nothing Nothing to Nothing
Get ComAdd of hoItems "Item 4" Nothing Nothing to Nothing
Get ComAdd of hoItems "Item 5" Nothing Nothing to Nothing
Get ComAdd of hoItems "Item 6" Nothing Nothing to Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
17
|
How can I change the item's foreground color (sample 2)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComExpanded to True
Set ComMinVisibleCount to 6
Variant voStdFont
Get ComFont to voStdFont
Handle hoStdFont
Get Create (RefClass(cComStdFont)) to hoStdFont
Set pvComObject of hoStdFont to voStdFont
Set ComSize of hoStdFont to "14.25"
Send Destroy to hoStdFont
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voItem
Get ComAdd of hoItems "Item 1" Nothing Nothing to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComForeColor of hoItem OLEexRadialItems to (RGB(255,0,0))
Variant voItems1
Get ComItems of hoItem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAdd of hoItems1 "SubItem 1" Nothing Nothing to Nothing
Get ComAdd of hoItems1 "SubItem 2" Nothing Nothing to Nothing
Send Destroy to hoItems1
Send Destroy to hoItem
Get ComAdd of hoItems "Item 2" Nothing Nothing to Nothing
Get ComAdd of hoItems "Item 3" Nothing Nothing to Nothing
Get ComAdd of hoItems "Item 4" Nothing Nothing to Nothing
Get ComAdd of hoItems "Item 5" Nothing Nothing to Nothing
Get ComAdd of hoItems "Item 6" Nothing Nothing to Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
16
|
How can I change the item's foreground color (sample 1)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComExpanded to True
Set ComMinVisibleCount to 6
Variant voStdFont
Get ComFont to voStdFont
Handle hoStdFont
Get Create (RefClass(cComStdFont)) to hoStdFont
Set pvComObject of hoStdFont to voStdFont
Set ComSize of hoStdFont to "14.25"
Send Destroy to hoStdFont
Set ComForeColor to (RGB(255,0,0))
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voItem
Get ComAdd of hoItems "Item 1" Nothing Nothing to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Variant voItems1
Get ComItems of hoItem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAdd of hoItems1 "SubItem 1" Nothing Nothing to Nothing
Get ComAdd of hoItems1 "SubItem 2" Nothing Nothing to Nothing
Send Destroy to hoItems1
Send Destroy to hoItem
Get ComAdd of hoItems "Item 2" Nothing Nothing to Nothing
Get ComAdd of hoItems "Item 3" Nothing Nothing to Nothing
Get ComAdd of hoItems "Item 4" Nothing Nothing to Nothing
Get ComAdd of hoItems "Item 5" Nothing Nothing to Nothing
Get ComAdd of hoItems "Item 6" Nothing Nothing to Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
15
|
How can I add new items / childrend to the control (method 2)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComExpanded to True
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voItem
Get ComAdd of hoItems "Item 1" Nothing Nothing to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Variant voItems1
Get ComItems of hoItem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAdd of hoItems1 "SubItem 1" Nothing Nothing to Nothing
Get ComAdd of hoItems1 "SubItem 2" Nothing Nothing to Nothing
Send Destroy to hoItems1
Send Destroy to hoItem
Get ComAdd of hoItems "Item 2" Nothing Nothing to Nothing
Get ComAdd of hoItems "Item 3" Nothing Nothing to Nothing
Get ComAdd of hoItems "Item 4" Nothing Nothing to Nothing
Get ComAdd of hoItems "Item 5" Nothing Nothing to Nothing
Get ComAdd of hoItems "Item 6" Nothing Nothing to Nothing
Get ComAdd of hoItems "Item 7" Nothing Nothing to Nothing
Get ComAdd of hoItems "Item 8" Nothing Nothing to Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
14
|
How can I add new items / childrend to the control (method 1)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComExpanded to True
Set ComToString to "Item 1(SubItem 1,SubItem 2),Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
Send ComEndUpdate
End_Procedure
|
|
13
|
How do I enlarge the font (method 2)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAllowToggleExpand to False
Set ComMinVisibleCount to 4
Set ComToString to "Item 1,Item 2,Item 3,Item 4"
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voItem
Get ComItem of hoItems 0 to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComName of hoItem to "<font ;14>Item 1"
Send Destroy to hoItem
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
12
|
How do I enlarge the font (method 1)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAllowToggleExpand to False
Set ComMinVisibleCount to 4
Set ComToString to "Item 1,Item 2,Item 3,Item 4"
Variant voStdFont
Get ComFont to voStdFont
Handle hoStdFont
Get Create (RefClass(cComStdFont)) to hoStdFont
Set pvComObject of hoStdFont to voStdFont
Set ComSize of hoStdFont to "14.25"
Send Destroy to hoStdFont
Send ComEndUpdate
End_Procedure
|
|
11
|
How can I expand the control (method 2)
Procedure OnCreate
Forward Send OnCreate
Set ComAllowToggleExpand to False
End_Procedure
|
|
10
|
How can I expand the control (method 1)
Procedure OnCreate
Forward Send OnCreate
Set ComExpanded to True
End_Procedure
|
|
9
|
By default, the control displays 8-pies. How can I change that
Procedure OnCreate
Forward Send OnCreate
Set ComExpanded to True
Set ComMinVisibleCount to 3
End_Procedure
|
|
8
|
How can I prevents expanding / collapsing the radial menu
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAllowToggleExpand to False
Set ComToString to "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
Set ComCaption OLEexLayerCaption to "Cant expand/collapse the radial menu"
Set ComCaption OLEexLayerCaptionAnchor to 0
Set ComCaption OLEexLayerCaptionLeft to "width-twidth"
Set ComCaption OLEexLayerCaptionTop to "height-theight"
Send ComEndUpdate
End_Procedure
|
|
7
|
How can I prevent flickering the item, when user selects it
Procedure OnCreate
Forward Send OnCreate
Set ComAllowToggleExpand to False
Set ComToString to "<c><b>Item 1<b><br><c>no flick<br>,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voItem
Get ComItem of hoItems 0 to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComBrowseType of hoItem to (|CI$fffffffc + OLEexBrowseItemCustom + OLEexBrowseItemChild)
Send Destroy to hoItem
Send Destroy to hoItems
End_Procedure
|
|
6
|
How do I highlight the sub-item zone when cursor hovers it (method 2)
Procedure OnCreate
Forward Send OnCreate
Set ComExpanded to True
Set ComRadialLineSize OLEexRadialHotFullItem to (ComFormatABC(Self,(ComSubItemsSize(Self)),Nothing,Nothing,Nothing))
Set ComRadialLineColor OLEexRadialHotFullItem to |CI$8000000d
Set ComRadialLineAlpha OLEexRadialHotFullItem to 64
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAdd of hoItems "Item A" Nothing Nothing to Nothing
Get ComAdd of hoItems "Item B" Nothing Nothing to Nothing
Get ComAdd of hoItems "Item C" Nothing Nothing to Nothing
Send Destroy to hoItems
End_Procedure
|
|
5
|
How do I highlight the sub-item zone when cursor hovers it (method 1)
Procedure OnCreate
Forward Send OnCreate
Set ComExpanded to True
Set ComRadialLineSize OLEexRadialHotFullItem to 0
Set ComRadialLineSize OLEexRadialHotSubItem to -1
Set ComRadialLineColor OLEexRadialHotSubItem to |CI$8000000d
Set ComRadialLineAlpha OLEexRadialHotSubItem to 64
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAdd of hoItems "Item A" Nothing Nothing to Nothing
Get ComAdd of hoItems "Item B" Nothing Nothing to Nothing
Get ComAdd of hoItems "Item C" Nothing Nothing to Nothing
Send Destroy to hoItems
End_Procedure
|
|
4
|
Is it possible to highlight the entire item when cursor hovers the item
Procedure OnCreate
Forward Send OnCreate
Set ComExpanded to True
Set ComRadialLineSize OLEexRadialHotFullItem to -1
Set ComRadialLineColor OLEexRadialHotFullItem to |CI$8000000d
Set ComRadialLineAlpha OLEexRadialHotFullItem to 64
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAdd of hoItems "Item A" Nothing Nothing to Nothing
Get ComAdd of hoItems "Item B" Nothing Nothing to Nothing
Get ComAdd of hoItems "Item C" Nothing Nothing to Nothing
Send Destroy to hoItems
End_Procedure
|
|
3
|
How can I hide the hot line when hovering the cursor
Procedure OnCreate
Forward Send OnCreate
Set ComAllowToggleExpand to False
Set ComRadialLineSize OLEexRadialHotFullItem to 0
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAdd of hoItems "Item A" Nothing Nothing to Nothing
Get ComAdd of hoItems "Item B" Nothing Nothing to Nothing
Get ComAdd of hoItems "Item C" Nothing Nothing to Nothing
Send Destroy to hoItems
End_Procedure
|
|
2
|
How can I hide the control's shadow
Procedure OnCreate
Forward Send OnCreate
Set ComExpanded to True
Set ComShadowColor to -1
End_Procedure
|
|
1
|
How do I change the control's background color
Procedure OnCreate
Forward Send OnCreate
Set ComBackColor to (RGB(240,240,249))
End_Procedure
|