|
95
|
The control shows no icons. What can be the problem (32-bit, alpha channel vs 4-bit icons problem)
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:ImageSize := 32
oDCOCX_Exontrol1:Images("gBJJgBggAAQAAgAEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbmiAQD/jL/r1fYFlsFctFptVrtltt0qsdgrz/srAs8NsNxut3t99v1/wGBwQAuNhwlks17veGjFiueLweRyWTymVm+FxsTw90xOdu2Ks2Mht60OW02n1GprWYiUTh+b0Gfz2c2W1u+30l21W73m93021mu4UO2Gz2O05HHyF4xu5vm/6HR6WB4PD61yxG25XG7na0vMhvL6fj8nlqXV6/p4ve9nX7ft5eO7PP831+33rtzsPp/mvx7uuS77bus97kLy/T8QTBUFpM9D+we7D3QA47RQC9rRQZDMNQTCEOs0/UQK/AkJxJC7Gw3FEUvLD0HsKh7Fv8r7NxG+EStvFUcRy3sWOs50YIdH8DRDCUattDEdSRJLIx4h64rizUXtDKLdSmsEYwjGkLRvJUuS6v0WRch0nyq1sgzNKUgNDIcsyPL03TerMWv1KsxuJMk7zTKk8ytPbWs3GbXxPOFB0Iqjrx9ND5NdM89QNPFHT7QK8QQ8FC0tS6ktdJy5yhPc6uvMtE0ZPlIQNQVMVRVNM0/T8g1a2c2UfUc/VPVVbVuobcU4186V24VQts61gVJWda1xY9kKDB6903EVeU8udPonWdJPpZNr2wm1F1g4bW2bRVh2/YUyWNbNzXOl1QSqvdY0jd0ttbX9y3Rel6pNAdn1M8F1Xe+KVXhe2A4FdMK4IzLhyDNuB4XhilXxeVK4biWJqXgGKYvjGM41jeOY7jycIqHyVZEjqPpCjKSJIkyDpxSWP5fmCZIC")
oDCOCX_Exontrol1:Images("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==")
var_Items := oDCOCX_Exontrol1:Items
var_Items:Add("Icon 32-bit<br><c><img>1</img>",nil,nil)
var_Items:Add("Icon 4-bit<br><c><img>2</img>",nil,nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
94
|
ImageSize property on 32 (specifies the size of control' icons/images)
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:ImageSize := 32
oDCOCX_Exontrol1:Images("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=")
var_Items := oDCOCX_Exontrol1:Items
var_Items:ToString := "Icon 0[img=0]"
var_Items:Add("Icon 1",1,nil)
var_Items:Add("Icon Inside <img>3</img>",nil,nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
93
|
ImageSize property on 16 (specifies the size of control' icons/images)
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:ImageSize := 16
oDCOCX_Exontrol1:Images("gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUHAgEP50nD/N87f58nz/Q1Bf5rolDoqJpD/PFLoxrf5sqD/IVTf8zqwAAtZBAHriOD9ffgJsQJq9ls1ntEtAYgEB/GgwGB+rlctNpCt3QDCvT/RF9f7DwETf6Fwj/P+HwTPxT/QmNf60yF8v11mgEA4KBYLPgjFAneSQTCPf5y0j/CoUCp5ymr1mrEQzGa9MamU2MPZ7f5PJxOfg73yBuYH1stCXFPa+5GDwqA5mCQ/Pf6O6T/bPVf7G7D/5iAwSM71Vmc1ywKsSBEIkEj8PCLQT/YLGZL/Z6VT7/cTebL/EQlEr88SEOHAMBI0GYXBcXpUlyXKlFqWp/m2aZpn+WZZFkf44Qwf7dt43wdkCA0QAMmcRIxEgARNExBFdFbtOa27cHFGJ/j9Gh/lvG7BGBHUWu4XcfH+RsgvAlTggVIxAg9JJ+DoPA7vkZZmH+ag/D+v4Dge8Btn+bhwnixhCDyf7igkP0BzM1YVTSXpnGUZTBDKURRH8ZEdzbNxxzwf5bT2nSeCxP5/htQQnAZQoHo0IFEnzDA4HyNNHnywhCny0g5H4O9MH+SNNn+TFPQvDLDyqN1SH+S1Tn+aFVKUphK1cf5A1jIYEghWo9ySD0lpy6r8ombpbGKf55gScCHA8Ch/iiBBJn+Igsn2f51HVCT+BG/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/oLurFAEsJbKQdOnE0EUIo/7a23E9BsQAXQuj/D6IOhQm7lD/Dzc2e6JQH3RCip4ERDwU0CoJA8LQOh/TnIbcgA8cQvj/Tw6JPDQW8j/nAKGKoX7xvUBCPxrAEw9PaAGA6xC2Q/B1d1A4hwzHGisMWIF+oUqmCAnkP4PB0xR2VAYVy0hLZDAAHyLiQ4tJDiwIwPwYkgBjkEOvIAZL2sQkNGRIAYcgBMhUCo2cWIsR/j5ZyYMoNz0TupB8p0TC8rkB5HQZkDov19hlSAI0JA/40kNNIQ1y5ThYCwFoP8MGUz9AiBEPy6IDzgFzvzSAAkrQhguN2M4GppB/AkAcA4QwcbkDyFfjMPLjSMiWAqiAN1iwBAKRGRlFAHgUAoEELt94vX3i3cQLRNo/xcNp0VowWriBjL3GsOkdKW5gB5OfjZEwCyMnCIwAIjWfwTj9QqMC9QoRbj/EkJK9jrZMZWyvlnLZdMu61Jjp4k4BwO5pECHNTA/QCIgB+mYIR/A9iyvcP8U9gxQ4sb/BhfFgxTBZCzerZwlXeD/FHQZmgUgpJACOEceGoETlWo6BgPQY91D/kkbgE27x5AR3kHxEOuNbb3QGSRbQQiMB/GLIAXkgBdSDkALngvAuCEN4MQ3DpDRJkY3GiUq19gEgd4sPzeQERHIhARvjfBFQfEr5CR0j5ISMkk30RkQBdSH8e5cgIgI")
var_Items := oDCOCX_Exontrol1:Items
var_Items:ToString := "Icon 0[img=0]"
var_Items:Add("Icon 1",1,nil)
var_Items:Add("Icon Inside <img>3</img>",nil,nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
92
|
How can I displays items rotated (exDisplayRadialRotated90)
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:PicturesPath := "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oDCOCX_Exontrol1:[HTMLPicture,"arrow"] := "arrow.png"
oDCOCX_Exontrol1:SubItemsBackColor := RGB(190,190,190)
oDCOCX_Exontrol1:ShadowColor := oDCOCX_Exontrol1:SubItemsBackColor
oDCOCX_Exontrol1:[RadialLineColor,exRadialParentBorder] := oDCOCX_Exontrol1:SubItemsBackColor
oDCOCX_Exontrol1:[RadialLineColor,exRadialItemsGridLines] := -1
var_Items := oDCOCX_Exontrol1:Items
var_Items:Add("Foreground","color_line.png",nil):Items:ToString := "Foreground"
var_Items:Add("Background","color_fill.png",nil):Items:ToString := "Background"
var_Items:Add("Font","format_font_size_less.png",nil):Items:ToString := "Font"
var_Items:Add("Undo","edit_undo.png",nil):Items:ToString := "Undo"
var_Items:Add("Redo","edit_redo.png",nil):Items:ToString := "Redo"
var_Items:Add("Copy","edit_copy.png",nil):Items:ToString := "Copy"
var_Items:Add("List","fileview_text.png",nil):Items:ToString := "List"
var_Items:Add("Tag","checkmark_korganizer.png",nil):Items:ToString := "Tag"
oDCOCX_Exontrol1:[DisplayRadial,exRadialItems] := exDisplayRadialRotated90
oDCOCX_Exontrol1:EndUpdate()
|
|
91
|
How can I displays items rotated (exDisplayRadialRotated270)
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:PicturesPath := "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oDCOCX_Exontrol1:[HTMLPicture,"arrow"] := "arrow.png"
oDCOCX_Exontrol1:SubItemsBackColor := RGB(190,190,190)
oDCOCX_Exontrol1:ShadowColor := oDCOCX_Exontrol1:SubItemsBackColor
oDCOCX_Exontrol1:[RadialLineColor,exRadialParentBorder] := oDCOCX_Exontrol1:SubItemsBackColor
oDCOCX_Exontrol1:[RadialLineColor,exRadialItemsGridLines] := -1
var_Items := oDCOCX_Exontrol1:Items
var_Items:Add("Foreground","color_line.png",nil):Items:ToString := "Foreground"
var_Items:Add("Background","color_fill.png",nil):Items:ToString := "Background"
var_Items:Add("Font","format_font_size_less.png",nil):Items:ToString := "Font"
var_Items:Add("Undo","edit_undo.png",nil):Items:ToString := "Undo"
var_Items:Add("Redo","edit_redo.png",nil):Items:ToString := "Redo"
var_Items:Add("Copy","edit_copy.png",nil):Items:ToString := "Copy"
var_Items:Add("List","fileview_text.png",nil):Items:ToString := "List"
var_Items:Add("Tag","checkmark_korganizer.png",nil):Items:ToString := "Tag"
oDCOCX_Exontrol1:[DisplayRadial,exRadialItems] := exDisplayRadialRotated270
oDCOCX_Exontrol1:EndUpdate()
|
|
90
|
How can I displays items rotated (exDisplayRadialRotated180)
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:PicturesPath := "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oDCOCX_Exontrol1:[HTMLPicture,"arrow"] := "arrow.png"
oDCOCX_Exontrol1:SubItemsBackColor := RGB(190,190,190)
oDCOCX_Exontrol1:ShadowColor := oDCOCX_Exontrol1:SubItemsBackColor
oDCOCX_Exontrol1:[RadialLineColor,exRadialParentBorder] := oDCOCX_Exontrol1:SubItemsBackColor
oDCOCX_Exontrol1:[RadialLineColor,exRadialItemsGridLines] := -1
var_Items := oDCOCX_Exontrol1:Items
var_Items:Add("Foreground","color_line.png",nil):Items:ToString := "Foreground"
var_Items:Add("Background","color_fill.png",nil):Items:ToString := "Background"
var_Items:Add("Font","format_font_size_less.png",nil):Items:ToString := "Font"
var_Items:Add("Undo","edit_undo.png",nil):Items:ToString := "Undo"
var_Items:Add("Redo","edit_redo.png",nil):Items:ToString := "Redo"
var_Items:Add("Copy","edit_copy.png",nil):Items:ToString := "Copy"
var_Items:Add("List","fileview_text.png",nil):Items:ToString := "List"
var_Items:Add("Tag","checkmark_korganizer.png",nil):Items:ToString := "Tag"
oDCOCX_Exontrol1:[DisplayRadial,exRadialItems] := exDisplayRadialRotated180
oDCOCX_Exontrol1:EndUpdate()
|
|
89
|
How can I displays items rotated (exDisplayRadialRotated)
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:PicturesPath := "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oDCOCX_Exontrol1:[HTMLPicture,"arrow"] := "arrow.png"
oDCOCX_Exontrol1:SubItemsBackColor := RGB(190,190,190)
oDCOCX_Exontrol1:ShadowColor := oDCOCX_Exontrol1:SubItemsBackColor
oDCOCX_Exontrol1:[RadialLineColor,exRadialParentBorder] := oDCOCX_Exontrol1:SubItemsBackColor
oDCOCX_Exontrol1:[RadialLineColor,exRadialItemsGridLines] := -1
var_Items := oDCOCX_Exontrol1:Items
var_Items:Add("Foreground","color_line.png",nil):Items:ToString := "Foreground"
var_Items:Add("Background","color_fill.png",nil):Items:ToString := "Background"
var_Items:Add("Font","format_font_size_less.png",nil):Items:ToString := "Font"
var_Items:Add("Undo","edit_undo.png",nil):Items:ToString := "Undo"
var_Items:Add("Redo","edit_redo.png",nil):Items:ToString := "Redo"
var_Items:Add("Copy","edit_copy.png",nil):Items:ToString := "Copy"
var_Items:Add("List","fileview_text.png",nil):Items:ToString := "List"
var_Items:Add("Tag","checkmark_korganizer.png",nil):Items:ToString := "Tag"
oDCOCX_Exontrol1:[DisplayRadial,exRadialItems] := exDisplayRadialRotated
oDCOCX_Exontrol1:EndUpdate()
|
|
88
|
How do I load images to sub-items zone
local var_Item as IItem
local var_Items as IItems
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:SubItemsSize := "48*dpi"
oDCOCX_Exontrol1:PicturesPath := "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oDCOCX_Exontrol1:[RadialLineColor,exRadialHotItem] := RGB(128,128,128)
oDCOCX_Exontrol1:[RadialLineColor,exRadialHotSubItem] := RGB(128,128,128)
oDCOCX_Exontrol1:[RadialLineColor,exRadialHotFullItem] := -1
var_Items := oDCOCX_Exontrol1:Items
var_Item := var_Items:Add("",nil,nil)
var_Item:[Image,exRadialItems] := "favorites.png"
var_Item:[Image,exRadialSubItems] := "download.png"
|
|
87
|
How can I display the control directly on the screen
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:PicturesPath := "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oDCOCX_Exontrol1:[HTMLPicture,"arrow"] := "stock_mail_filters_apply.png"
oDCOCX_Exontrol1:[HTMLPicture,"settings"] := "settings.png"
oDCOCX_Exontrol1:[HTMLPicture,"hard"] := "download.png"
oDCOCX_Exontrol1:[HTMLPicture,"favorites"] := "favorites.png"
oDCOCX_Exontrol1:[HTMLPicture,"remove"] := "remove.png"
oDCOCX_Exontrol1:[HTMLPicture,"refresh"] := "refresh.png"
oDCOCX_Exontrol1:[HTMLPicture,"synchronize"] := "synchronize.png"
oDCOCX_Exontrol1:[HTMLPicture,"preview"] := "preview.png"
oDCOCX_Exontrol1:[HTMLPicture,"search"] := "search.png"
oDCOCX_Exontrol1:ToString := "Save[img=hard],Settings[img=settings][browse=2][custom=16],Favorites[img=favorites](1,2),Refresh[img=refresh],<c>Quit<br><c>Application[img=remove],Synchronize[img=synchronize],Search[img=search](1,2),Preview[img=preview](1,2)"
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:[DisplayRadial,exRadialItems] := exDisplayRadialRotated270
oDCOCX_Exontrol1:BackgroundPicture := "Background\frontc.png"
oDCOCX_Exontrol1:SubItemsBackColor := -1
oDCOCX_Exontrol1:SubItemsSize := "18 * dpi"
oDCOCX_Exontrol1:EndUpdate()
oDCOCX_Exontrol1:Float := true
|
|
86
|
How do I add a radial-slider control
local var_Item as IItem
local var_Items as IItems
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:ShadowColor := -1
oDCOCX_Exontrol1:InflateItems := "-8*dpi"
oDCOCX_Exontrol1:InflateCustom := oDCOCX_Exontrol1:InflateItems
oDCOCX_Exontrol1:ItemsBackColor := RGB(240,240,240)
oDCOCX_Exontrol1:[RadialLineColor,exRadialCustomBorder] := RGB(0,0,0)
oDCOCX_Exontrol1:[RadialLineStyle,exRadialCustomBorder] := exRadialLineDot
oDCOCX_Exontrol1:[RadialLineSize,exRadialCustomBorder] := 3
var_Items := oDCOCX_Exontrol1:Items
var_Item := var_Items:Add("Slider",nil,nil)
var_Item:BrowseType := exBrowseItemCustom
var_Item:BrowseCustomType := exRadialCustomSlider
var_Item:[BrowseCustom,exRadialCustomSliderValue] := 35
oDCOCX_Exontrol1:BrowseItem := IItem{oDCOCX_Exontrol1:Items:[Item,"Slider"]}
|
|
85
|
How can I display a slider directly on the radial menu, with no items...
local var_Item as IItem
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:PicturesPath := "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:InflateCustom := "-4 * dpi"
oDCOCX_Exontrol1:[RadialLineColor,exRadialCustomBorder] := RGB(0,0,0)
oDCOCX_Exontrol1:[RadialLineSize,exRadialCustomBorder] := 3
oDCOCX_Exontrol1:[RadialLineAlpha,exRadialCustomBorder] := 128
oDCOCX_Exontrol1:CustomPicture := "Background\frame.png"
var_Item := oDCOCX_Exontrol1:Root
var_Item:BrowseType := exBrowseItemCustom
var_Item:BrowseCustomType := exRadialCustomSlider
var_Item:[BrowseCustom,exRadialCustomSliderValue] := 25
oDCOCX_Exontrol1:Refresh()
oDCOCX_Exontrol1:EndUpdate()
|
|
84
|
How can I programatically browses for a new item
local var_Item as IItem
local var_Items as IItems
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:ShadowColor := -1
oDCOCX_Exontrol1:InflateItems := "-8*dpi"
oDCOCX_Exontrol1:InflateCustom := oDCOCX_Exontrol1:InflateItems
oDCOCX_Exontrol1:ItemsBackColor := RGB(240,240,240)
oDCOCX_Exontrol1:[RadialLineColor,exRadialCustomBorder] := RGB(0,0,0)
oDCOCX_Exontrol1:[RadialLineStyle,exRadialCustomBorder] := exRadialLineDot
oDCOCX_Exontrol1:[RadialLineSize,exRadialCustomBorder] := 3
var_Items := oDCOCX_Exontrol1:Items
var_Item := var_Items:Add("Slider",nil,nil)
var_Item:BrowseType := exBrowseItemCustom
var_Item:BrowseCustomType := exRadialCustomSlider
oDCOCX_Exontrol1:BrowseItem := IItem{oDCOCX_Exontrol1:Items:[Item,"Slider"]}
|
|
83
|
How can I display the items rotated
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:PicturesPath := "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oDCOCX_Exontrol1:[HTMLPicture,"arrow"] := "arrow.png"
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:Items:ToString := "Item 1(1,2),Item 2(1,2),Item 3(1,2),Item 4(1,2),Item 5(1,2),Item 6(1,2),Item 7(1,2),Item 8(1,2)"
oDCOCX_Exontrol1:[DisplayRadial,exRadialItems] := exDisplayRadialRotated
oDCOCX_Exontrol1:[DisplayCenter,exRadialItems] := 0.05
oDCOCX_Exontrol1:EndUpdate()
|
|
82
|
Is it possible to display the arrow into the items section, and how I can change the default position
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:PicturesPath := "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oDCOCX_Exontrol1:[HTMLPicture,"arrow"] := "arrowu.png"
oDCOCX_Exontrol1:DisplayArrow := exRadialItems
oDCOCX_Exontrol1:[DisplayCenterArrow,exRadialItems] := 0
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:Items:ToString := "Item 1(1,2),Item 2(1,2),Item 3(1,2),Item 4(1,2),Item 5(1,2),Item 6(1,2),Item 7(1,2),Item 8(1,2)"
oDCOCX_Exontrol1:EndUpdate()
|
|
81
|
Can I display the arrow into the items section
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:DisplayArrow := exRadialItems
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:Items:ToString := "Item 1(1,2),Item 2(1,2),Item 3(1,2),Item 4(1,2),Item 5(1,2),Item 6(1,2),Item 7(1,2),Item 8(1,2)"
oDCOCX_Exontrol1:EndUpdate()
|
|
80
|
How can I know if the cursor is hovering the center ring ( parent zone )
METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
// MouseMove event - Occurs when the user moves the mouse.
OutputDebugString(String2Psz( "ParentOnPoint " ))
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:[ParentOnPoint,-1,-1]) ))
RETURN NIL
oDCOCX_Exontrol1:Expanded := true
|
|
79
|
How can I specify the size to display the images/pictures into the items
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:AllowToggleExpand := false
oDCOCX_Exontrol1:PicturesPath := "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oDCOCX_Exontrol1:[ItemsImageHeight,exRadialItems] := "64*dpi"
oDCOCX_Exontrol1:[ItemsImageWidth,exRadialItems] := "64*dpi"
var_Items := oDCOCX_Exontrol1:Items
var_Items:Add("","color_line.png",nil)
var_Items:Add("","color_fill.png",nil)
var_Items:Add("","format_font_size_less.png",nil)
var_Items:Add("","edit_undo.png",nil)
var_Items:Add("","edit_redo.png",nil)
var_Items:Add("","edit_copy.png",nil)
var_Items:Add("","fileview_text.png",nil)
var_Items:Add("","checkmark_korganizer.png",nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
78
|
By default, the parent image is 32-pixels wide. Can I display it larger
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:AllowToggleExpand := false
oDCOCX_Exontrol1:PicturesPath := "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oDCOCX_Exontrol1:[HTMLPicture,"logo"] := "settings.png"
oDCOCX_Exontrol1:ParentSize := "96 * dpi"
oDCOCX_Exontrol1:[ParentImageWidth,exRadialMenuStateAll] := "64*dpi"
oDCOCX_Exontrol1:[ParentImageHeight,exRadialMenuStateAll] := "64*dpi"
oDCOCX_Exontrol1:[ParentCaption,exRadialMenuStateAll] := "<font ;14><c>System Settings</font><br><c>Surround"
oDCOCX_Exontrol1:EndUpdate()
|
|
77
|
Is it possible to specify where to display the item's caption
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:Items:ToString := "Item 1(1,2),Item 2(1,2),Item 3(1,2),Item 4(1,2),Item 5(1,2),Item 6(1,2),Item 7(1,2),Item 8(1,2)"
oDCOCX_Exontrol1:Items:[Item,0]:[BackColor,exRadialFullItems] := RGB(240,240,240)
oDCOCX_Exontrol1:[DisplayCenter,exRadialItems] := 0.85
oDCOCX_Exontrol1:EndUpdate()
|
|
76
|
How can I disable browsing the items, or prevent displaying its children
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:AllowBrowseItem := false
oDCOCX_Exontrol1:Items:ToString := "Item 1(1,2),Item 2(1,2),Item 3(1,2),Item 4(1,2),Item 5(1,2),Item 6(1,2),Item 7(1,2),Item 8(1,2)"
oDCOCX_Exontrol1:EndUpdate()
|
|
75
|
How do I get the item from the point
METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
// MouseMove event - Occurs when the user moves the mouse.
OutputDebugString(String2Psz( "Full-Item: " ))
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:[ItemFromPoint,exRadialFullItems,-1,-1]oDCOCX_Exontrol1:[Caption,exLayerCaptionBackColor]) ))
OutputDebugString(String2Psz( "Item: " ))
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:[ItemFromPoint,exRadialItems,-1,-1]oDCOCX_Exontrol1:[Caption,exLayerCaptionBackColor]) ))
OutputDebugString(String2Psz( "SubItem: " ))
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:[ItemFromPoint,exRadialSubItems,-1,-1]oDCOCX_Exontrol1:[Caption,exLayerCaptionForeColor]) ))
RETURN NIL
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:Items:ToString := "Item 1[scap=sub item 1],Item 2[scap=sub item 2],Item 3[scap=sub item 3],Item 4[scap=sub item 4],Item 5[scap=sub item 5],Item 6[scap=sub item 6],Item 7[scap=sub item 7],Item 8[scap=sub item 8]"
|
|
74
|
How do I get the index of the pie from the point
METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
// MouseMove event - Occurs when the user moves the mouse.
OutputDebugString(String2Psz( "Full-Index: " ))
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:[IndexFromPoint,exRadialFullItems,-1,-1]) ))
OutputDebugString(String2Psz( "Index: " ))
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:[IndexFromPoint,exRadialItems,-1,-1]) ))
OutputDebugString(String2Psz( "Sub-Index: " ))
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:[IndexFromPoint,exRadialSubItems,-1,-1]) ))
RETURN NIL
oDCOCX_Exontrol1:Expanded := true
|
|
73
|
How can I select an item
METHOD OCX_Exontrol1SelectItem(Item) CLASS MainDialog
// SelectItem event - Notifies once the user selects an item.
// SelectedIndex(3) = Item.Index
RETURN NIL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:[SelBackAlpha,exRadialItems] := 32
oDCOCX_Exontrol1:[SelBackAlpha,exRadialSubItems] := 128
oDCOCX_Exontrol1:[SelForeColor,exRadialFullItems] := RGB(0,0,0)
oDCOCX_Exontrol1:[RadialLineSize,exRadialHotParent] := -1
oDCOCX_Exontrol1:[RadialLineAlpha,exRadialHotParent] := 32
oDCOCX_Exontrol1:[RadialLineColor,exRadialHotFullItem] := -1
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:Items:ToString := "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
oDCOCX_Exontrol1:[SelectedIndex,exRadialFullItems] := 0
oDCOCX_Exontrol1:EndUpdate()
|
|
72
|
How can I use the sub-items zone only
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:AllowToggleExpand := false
oDCOCX_Exontrol1:PicturesPath := "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oDCOCX_Exontrol1:[HTMLPicture,"logo"] := "settings.png"
oDCOCX_Exontrol1:[RadialLineColor,exRadialParentBorder] := oDCOCX_Exontrol1:SubItemsBackColor
oDCOCX_Exontrol1:[RadialLineColor,exRadialItemsGridLines] := -1
oDCOCX_Exontrol1:SubItemsSize := "64 * dpi"
oDCOCX_Exontrol1:ParentSize := "value - 66 * dpi"
oDCOCX_Exontrol1:[ParentImageWidth,exRadialMenuStateAll] := "64*dpi"
oDCOCX_Exontrol1:[ParentImageHeight,exRadialMenuStateAll] := "64*dpi"
oDCOCX_Exontrol1:[ParentCaption,exRadialMenuStateAll] := "<font ;14><c>System Settings</font><br><c>Surround"
oDCOCX_Exontrol1:[RadialLineSize,exRadialHotFullItem] := 0
oDCOCX_Exontrol1:[RadialLineSize,exRadialHotSubItem] := -1
oDCOCX_Exontrol1:[RadialLineColor,exRadialHotSubItem] := 0x8000000d
oDCOCX_Exontrol1:[RadialLineAlpha,exRadialHotSubItem] := 128
oDCOCX_Exontrol1:ItemsBackColor := oDCOCX_Exontrol1:SubItemsBackColor
var_Items := oDCOCX_Exontrol1:Items
var_Items:Add("","color_line.png",2)
var_Items:Add("","color_fill.png",2)
var_Items:Add("","format_font_size_less.png",2)
var_Items:Add("","edit_undo.png",2)
var_Items:Add("","edit_redo.png",2)
var_Items:Add("","edit_copy.png",2)
var_Items:Add("","fileview_text.png",2)
var_Items:Add("","checkmark_korganizer.png",2)
oDCOCX_Exontrol1:EndUpdate()
|
|
71
|
Is it possible to display all items with a different rotation angle
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:DisplayAngle := -7.5
oDCOCX_Exontrol1:DisplayArrow := exRadialItems
oDCOCX_Exontrol1:[DisplayRadial,exRadialItems] := exDisplayRadialRotated
oDCOCX_Exontrol1:PicturesPath := "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oDCOCX_Exontrol1:ParentSize := "48 * dpi"
oDCOCX_Exontrol1:ParentPicture := "Background\frontb.png"
oDCOCX_Exontrol1:ArrowImage := "arrow.png"
oDCOCX_Exontrol1:Items:ToString := "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
oDCOCX_Exontrol1:InflateParentPicture := "72 * dpi"
oDCOCX_Exontrol1:EndUpdate()
|
|
70
|
How can I programatically advance / browse for the parent item (method 2)
METHOD OCX_Exontrol1RClick() CLASS MainDialog
// RClick event - Occurs once the user right clicks the control.
oDCOCX_Exontrol1:BrowseItem := oDCOCX_Exontrol1:BrowseItem:Parent
RETURN NIL
local var_Item as IItem
local var_Items,var_Items1 as IItems
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:DisplayArrow := exRadialItems
var_Items := oDCOCX_Exontrol1:Items
var_Item := var_Items:Add("Volume",nil,nil)
var_Item:[Caption,exRadialSubItems] := "slider"
var_Item:BrowseType := exBrowseItemCustom
var_Item:BrowseCustomType := exRadialCustomSlider
var_Items1 := var_Items:Add("Item",nil,nil):Items
var_Items1:Add("Child 1",nil,nil)
var_Items1:Add("Child 2",nil,nil)
|
|
69
|
How can I programatically advance / browse for the parent item (method 1)
METHOD OCX_Exontrol1RClick() CLASS MainDialog
// RClick event - Occurs once the user right clicks the control.
oDCOCX_Exontrol1:GoBack()
RETURN NIL
local var_Item as IItem
local var_Items,var_Items1 as IItems
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:DisplayArrow := exRadialItems
var_Items := oDCOCX_Exontrol1:Items
var_Item := var_Items:Add("Volume",nil,nil)
var_Item:[Caption,exRadialSubItems] := "slider"
var_Item:BrowseType := exBrowseItemCustom
var_Item:BrowseCustomType := exRadialCustomSlider
var_Items1 := var_Items:Add("Item",nil,nil):Items
var_Items1:Add("Child 1",nil,nil)
var_Items1:Add("Child 2",nil,nil)
|
|
68
|
Can I display the pointer with a different angle
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:PicturesPath := "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oDCOCX_Exontrol1:PointerPicture := "pointer.png"
oDCOCX_Exontrol1:PointerPictureY := "y + (height-pheight)/2- 21*dpi"
oDCOCX_Exontrol1:PointerPictureX := "x + (width-pwidth)/2 + 1 * dpi"
oDCOCX_Exontrol1:AllowHotPointer := false
oDCOCX_Exontrol1:ParentSize := "36*dpi"
oDCOCX_Exontrol1:[ParentImageHeight,exRadialMenuStateAll] := "48*dpi"
oDCOCX_Exontrol1:[ParentImageWidth,exRadialMenuStateAll] := "48*dpi"
oDCOCX_Exontrol1:[RadialLineSize,exRadialHotParent] := -1
oDCOCX_Exontrol1:[RadialLineAlpha,exRadialHotParent] := 32
oDCOCX_Exontrol1:[RadialLineColor,exRadialHotFullItem] := -1
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:Items:ToString := "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
oDCOCX_Exontrol1:PointerAngle := 12
oDCOCX_Exontrol1:EndUpdate()
|
|
67
|
How can I use the pointer (select sample)
METHOD OCX_Exontrol1SelectItem(Item) CLASS MainDialog
// SelectItem event - Notifies once the user selects an item.
// PointerIndex = Item.Index
oDCOCX_Exontrol1:[SelectedIndex,exRadialFullItems] := oDCOCX_Exontrol1:PointerIndex
RETURN NIL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:PicturesPath := "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oDCOCX_Exontrol1:PointerPicture := "pointer.png"
oDCOCX_Exontrol1:[SelBackAlpha,exRadialItems] := 32
oDCOCX_Exontrol1:[SelBackAlpha,exRadialSubItems] := 128
oDCOCX_Exontrol1:PointerPictureY := "y + (height-pheight)/2- 21*dpi"
oDCOCX_Exontrol1:PointerPictureX := "x + (width-pwidth)/2 + 1 * dpi"
oDCOCX_Exontrol1:AllowHotPointer := false
oDCOCX_Exontrol1:[SelForeColor,exRadialFullItems] := RGB(0,0,0)
oDCOCX_Exontrol1:ParentSize := "36*dpi"
oDCOCX_Exontrol1:[ParentImageHeight,exRadialMenuStateAll] := "48*dpi"
oDCOCX_Exontrol1:[ParentImageWidth,exRadialMenuStateAll] := "48*dpi"
oDCOCX_Exontrol1:[RadialLineSize,exRadialHotParent] := -1
oDCOCX_Exontrol1:[RadialLineAlpha,exRadialHotParent] := 32
oDCOCX_Exontrol1:[RadialLineColor,exRadialHotFullItem] := -1
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:Items:ToString := "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
oDCOCX_Exontrol1:PointerIndex := 0
oDCOCX_Exontrol1:[SelectedIndex,exRadialFullItems] := oDCOCX_Exontrol1:PointerIndex
oDCOCX_Exontrol1:EndUpdate()
|
|
66
|
How can I use the pointer (hot sample)
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:PicturesPath := "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oDCOCX_Exontrol1:PointerPicture := "pointer.png"
oDCOCX_Exontrol1:PointerIndex := -1
oDCOCX_Exontrol1:PointerPictureY := "y + (height-pheight)/2- 21*dpi"
oDCOCX_Exontrol1:PointerPictureX := "x + (width-pwidth)/2 + 1 * dpi"
oDCOCX_Exontrol1:AllowHotPointer := true
oDCOCX_Exontrol1:[SelBackAlpha,exRadialFullItems] := 128
oDCOCX_Exontrol1:[SelForeColor,exRadialFullItems] := RGB(0,0,0)
oDCOCX_Exontrol1:ParentSize := "36*dpi"
oDCOCX_Exontrol1:[ParentImageHeight,exRadialMenuStateAll] := "48*dpi"
oDCOCX_Exontrol1:[ParentImageWidth,exRadialMenuStateAll] := "48*dpi"
oDCOCX_Exontrol1:[RadialLineSize,exRadialHotParent] := -1
oDCOCX_Exontrol1:[RadialLineAlpha,exRadialHotParent] := 32
oDCOCX_Exontrol1:[RadialLineColor,exRadialHotFullItem] := -1
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:Items:ToString := "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
oDCOCX_Exontrol1:EndUpdate()
|
|
65
|
Is it possible to apply the control's background picture on the parent zone too
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:PicturesPath := "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oDCOCX_Exontrol1:BackgroundPicture := "Background\fronte.png"
oDCOCX_Exontrol1:ForeColor := RGB(255,255,255)
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:ParentSize := "48 * dpi"
oDCOCX_Exontrol1:[DisplayRadial,exRadialItems] := exDisplayRadialRotated
oDCOCX_Exontrol1:[DisplayCenter,exRadialItems] := 0.23
oDCOCX_Exontrol1:Items:ToString := "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
oDCOCX_Exontrol1:ParentBackColor := -1
oDCOCX_Exontrol1:ExcludeParentFromItems := true
oDCOCX_Exontrol1:[RadialLineColor,exRadialParentBorder] := RGB(0,0,0)
oDCOCX_Exontrol1:[RadialLineAlpha,exRadialParentBorder] := 128
oDCOCX_Exontrol1:[RadialLineStyle,exRadialItemsGridLines] := exRadialLineDot
oDCOCX_Exontrol1:[RadialLineAlpha,exRadialItemsGridLines] := 128
oDCOCX_Exontrol1:EndUpdate()
|
|
64
|
Can I display the picture on the parent zone, a bit larger
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:PicturesPath := "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oDCOCX_Exontrol1:ParentSize := "48 * dpi"
oDCOCX_Exontrol1:ParentPicture := "Background\frontb.png"
oDCOCX_Exontrol1:Items:ToString := "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
oDCOCX_Exontrol1:InflateParentPicture := "64 * dpi"
oDCOCX_Exontrol1:EndUpdate()
|
|
63
|
Is it possible to assign a different background picture when displaying a slider/custom data
local var_Item as IItem
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:PicturesPath := "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oDCOCX_Exontrol1:DisplayArrow := exRadialItems
oDCOCX_Exontrol1:Items:ToString := "[scap=Item 1],[scap=Item 2],[scap=Item 3],[scap=Item 4]"
oDCOCX_Exontrol1:InflateRadialMenu := "-4*dpi"
oDCOCX_Exontrol1:InflateCustom := "-4*dpi"
oDCOCX_Exontrol1:CustomPicture := "Background\frontb.png"
oDCOCX_Exontrol1:Items:ToString := "Item 1(Sub Child 1,Sub Child 2),Item 2[scap=slider],Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
var_Item := oDCOCX_Exontrol1:Items:[Item,"Item 2"]
var_Item:BrowseType := exBrowseItemCustom
var_Item:BrowseCustomType := exRadialCustomSlider
oDCOCX_Exontrol1:BrowseItem := IItem{oDCOCX_Exontrol1:Items:[Item,"Item 2"]}
|
|
62
|
How can I customize the custom part of the control, the inside ring/circle
local var_Item as IItem
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:DisplayArrow := exRadialItems
oDCOCX_Exontrol1:Items:ToString := "[scap=Item 1],[scap=Item 2],[scap=Item 3],[scap=Item 4]"
oDCOCX_Exontrol1:InflateRadialMenu := "-4*dpi"
oDCOCX_Exontrol1:InflateCustom := "-4*dpi"
oDCOCX_Exontrol1:CustomBackColor := RGB(128,128,128)
oDCOCX_Exontrol1:CustomBackAlpha := 128
oDCOCX_Exontrol1:Items:ToString := "Item 1(Sub Child 1,Sub Child 2),Item 2[scap=slider],Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
var_Item := oDCOCX_Exontrol1:Items:[Item,"Item 2"]
var_Item:BrowseType := exBrowseItemCustom
var_Item:BrowseCustomType := exRadialCustomSlider
oDCOCX_Exontrol1:BrowseItem := IItem{oDCOCX_Exontrol1:Items:[Item,"Item 2"]}
|
|
61
|
How do I prevent expanding / collapsing the radial menu
local var_Item as IItem
oDCOCX_Exontrol1:AllowToggleExpand := false
oDCOCX_Exontrol1:Items:ToString := "Item 1(Sub Child 1,Sub Child 2),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
var_Item := oDCOCX_Exontrol1:Items:[Item,"Item 2"]
var_Item:BrowseType := exBrowseItemCustom
var_Item:BrowseCustomType := exRadialCustomSlider
|
|
60
|
Is it possible to change the parent's picture/image when expanding collapsing the radial menu
METHOD OCX_Exontrol1BrowseItem(Item) CLASS MainDialog
// BrowseItem event - Notifies once the user browses for a new item.
OutputDebugString(String2Psz( "Current State: " ))
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:State) ))
RETURN NIL
METHOD OCX_Exontrol1SelectParent() CLASS MainDialog
// SelectParent event - Occurs once the user clicks the parent of the item.
OutputDebugString(String2Psz( "Current State: " ))
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:State) ))
RETURN NIL
local var_Item as IItem
oDCOCX_Exontrol1:PicturesPath := "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oDCOCX_Exontrol1:Items:ToString := "Item 1(Sub Child 1,Sub Child 2),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
var_Item := oDCOCX_Exontrol1:Items:[Item,"Item 2"]
var_Item:BrowseType := exBrowseItemCustom
var_Item:BrowseCustomType := exRadialCustomSlider
oDCOCX_Exontrol1:[ParentImage,exRadialMenuCollapsed] := "format_font_size_less.png"
oDCOCX_Exontrol1:[ParentImage,exRadialMenuExpandedNoItems] := "fileview_text.png"
oDCOCX_Exontrol1:[ParentImage,exRadialMenuExpandedRootItem] := "edit_undo.png"
|
|
59
|
Is it possible to assign a different picture on the parent zone (center ring)
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:PicturesPath := "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oDCOCX_Exontrol1:ParentSize := "48 * dpi"
oDCOCX_Exontrol1:ParentPicture := "Background\frontb.png"
oDCOCX_Exontrol1:Items:ToString := "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
|
|
58
|
Is it possible to assign a different picture on the items zone (inner ring)
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:PicturesPath := "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oDCOCX_Exontrol1:ItemsPicture := "Background\frontc.png"
oDCOCX_Exontrol1:Items:ToString := "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
|
|
57
|
How can I change the control's background picture
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:PicturesPath := "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oDCOCX_Exontrol1:BackgroundPicture := "Background\fronta.png"
oDCOCX_Exontrol1:Items:ToString := "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
|
|
56
|
How can I hide the line being shown around the item form the cursor
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:ShadowColor := -1
oDCOCX_Exontrol1:InflateItems := "-8*dpi"
oDCOCX_Exontrol1:ItemsBackColor := RGB(240,240,240)
oDCOCX_Exontrol1:[RadialLineSize,exRadialHotFullItem] := 0
oDCOCX_Exontrol1:Items:ToString := "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
|
|
55
|
Is it possible to highlight items with children, with a different background color, for those arrow picture is shown (items, inner ring)
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:ShadowColor := -1
oDCOCX_Exontrol1:InflateItems := "-8*dpi"
oDCOCX_Exontrol1:ItemsBackColor := RGB(240,240,240)
oDCOCX_Exontrol1:[RadialLineColor,exRadialItemsChildren] := RGB(0,0,0)
oDCOCX_Exontrol1:[RadialLineAlpha,exRadialItemsChildren] := 64
oDCOCX_Exontrol1:[RadialLineSize,exRadialItemsChildren] := -1
oDCOCX_Exontrol1:Items:ToString := "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
|
|
54
|
Is it possible to highlight items with children, with a different background color, for those arrow picture is shown (subitems, outer ring)
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:ShadowColor := -1
oDCOCX_Exontrol1:InflateItems := "-8*dpi"
oDCOCX_Exontrol1:ItemsBackColor := RGB(240,240,240)
oDCOCX_Exontrol1:[RadialLineColor,exRadialSubItemsChildren] := RGB(0,0,0)
oDCOCX_Exontrol1:[RadialLineAlpha,exRadialSubItemsChildren] := 64
oDCOCX_Exontrol1:[RadialLineSize,exRadialSubItemsChildren] := -1
oDCOCX_Exontrol1:Items:ToString := "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
|
|
53
|
Is it possible to highlight the entire item, when cursor hovers it
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:ShadowColor := -1
oDCOCX_Exontrol1:InflateItems := "-8*dpi"
oDCOCX_Exontrol1:ItemsBackColor := RGB(240,240,240)
oDCOCX_Exontrol1:[RadialLineColor,exRadialHotFullItem] := RGB(0,0,0)
oDCOCX_Exontrol1:[RadialLineAlpha,exRadialHotFullItem] := 64
oDCOCX_Exontrol1:[RadialLineSize,exRadialHotFullItem] := -1
oDCOCX_Exontrol1:Items:ToString := "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
|
|
52
|
How can I change the border around the subitems zone, when cursor hovers it ( outer ring )
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:ShadowColor := -1
oDCOCX_Exontrol1:InflateItems := "-8*dpi"
oDCOCX_Exontrol1:ItemsBackColor := RGB(240,240,240)
oDCOCX_Exontrol1:[RadialLineColor,exRadialHotFullItem] := RGB(0,0,0)
oDCOCX_Exontrol1:[RadialLineStyle,exRadialHotFullItem] := exRadialLineDot
oDCOCX_Exontrol1:[RadialLineSize,exRadialHotFullItem] := 3
oDCOCX_Exontrol1:Items:ToString := "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
|
|
51
|
How can I change the border around the subitems zone, when cursor hovers it ( outer ring )
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:ShadowColor := -1
oDCOCX_Exontrol1:InflateItems := "-8*dpi"
oDCOCX_Exontrol1:ItemsBackColor := RGB(240,240,240)
oDCOCX_Exontrol1:[RadialLineColor,exRadialHotSubItem] := RGB(0,0,0)
oDCOCX_Exontrol1:[RadialLineStyle,exRadialHotSubItem] := exRadialLineDot
oDCOCX_Exontrol1:[RadialLineSize,exRadialHotSubItem] := 3
oDCOCX_Exontrol1:Items:ToString := "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
|
|
50
|
How can I change the border around the items zone, when cursor hovers it ( inner ring )
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:ShadowColor := -1
oDCOCX_Exontrol1:InflateItems := "-8*dpi"
oDCOCX_Exontrol1:ItemsBackColor := RGB(240,240,240)
oDCOCX_Exontrol1:[RadialLineColor,exRadialHotItem] := RGB(0,0,0)
oDCOCX_Exontrol1:[RadialLineStyle,exRadialHotItem] := exRadialLineDot
oDCOCX_Exontrol1:[RadialLineSize,exRadialHotItem] := 3
oDCOCX_Exontrol1:Items:ToString := "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
|
|
49
|
How can I change the border around the parent zone, when cursor hovers it ( center ring )
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:ShadowColor := -1
oDCOCX_Exontrol1:InflateItems := "-8*dpi"
oDCOCX_Exontrol1:ItemsBackColor := RGB(240,240,240)
oDCOCX_Exontrol1:[RadialLineColor,exRadialHotParent] := RGB(0,0,0)
oDCOCX_Exontrol1:[RadialLineStyle,exRadialHotParent] := exRadialLineDot
oDCOCX_Exontrol1:[RadialLineSize,exRadialHotParent] := 3
|
|
48
|
How can I change the border around the items zone ( inner ring )
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:ShadowColor := -1
oDCOCX_Exontrol1:InflateItems := "-8*dpi"
oDCOCX_Exontrol1:ItemsBackColor := RGB(240,240,240)
oDCOCX_Exontrol1:[RadialLineColor,exRadialItemsBorder] := RGB(0,0,0)
oDCOCX_Exontrol1:[RadialLineStyle,exRadialItemsBorder] := exRadialLineDot
oDCOCX_Exontrol1:[RadialLineSize,exRadialItemsBorder] := 3
|
|
47
|
How can I change the border around the parent zone ( center ring )
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:ShadowColor := -1
oDCOCX_Exontrol1:InflateItems := "-8*dpi"
oDCOCX_Exontrol1:ItemsBackColor := RGB(240,240,240)
oDCOCX_Exontrol1:[RadialLineColor,exRadialParentBorder] := RGB(0,0,0)
oDCOCX_Exontrol1:[RadialLineStyle,exRadialParentBorder] := exRadialLineDot
oDCOCX_Exontrol1:[RadialLineSize,exRadialParentBorder] := 3
|
|
46
|
How can I change the grid lines in the items zone ( inner ring )
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:ShadowColor := -1
oDCOCX_Exontrol1:InflateItems := "-8*dpi"
oDCOCX_Exontrol1:ItemsBackColor := RGB(240,240,240)
oDCOCX_Exontrol1:[RadialLineColor,exRadialItemsGridLines] := RGB(0,0,0)
oDCOCX_Exontrol1:[RadialLineStyle,exRadialItemsGridLines] := exRadialLineDot
oDCOCX_Exontrol1:[RadialLineSize,exRadialItemsGridLines] := 3
|
|
45
|
How can I change the border around the slider / custom part of the control
local var_Item as IItem
local var_Items as IItems
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:ShadowColor := -1
oDCOCX_Exontrol1:InflateItems := "-8*dpi"
oDCOCX_Exontrol1:InflateCustom := oDCOCX_Exontrol1:InflateItems
oDCOCX_Exontrol1:ItemsBackColor := RGB(240,240,240)
oDCOCX_Exontrol1:[RadialLineColor,exRadialCustomBorder] := RGB(0,0,0)
oDCOCX_Exontrol1:[RadialLineStyle,exRadialCustomBorder] := exRadialLineDot
oDCOCX_Exontrol1:[RadialLineSize,exRadialCustomBorder] := 3
var_Items := oDCOCX_Exontrol1:Items
var_Item := var_Items:Add("Slider",nil,nil)
var_Item:BrowseType := exBrowseItemCustom
var_Item:BrowseCustomType := exRadialCustomSlider
oDCOCX_Exontrol1:BrowseItem := IItem{oDCOCX_Exontrol1:Items:[Item,"Slider"]}
|
|
44
|
How can I change the grid lines in the subitems zone ( outer ring )
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:ShadowColor := -1
oDCOCX_Exontrol1:InflateItems := "-8*dpi"
oDCOCX_Exontrol1:ItemsBackColor := RGB(240,240,240)
oDCOCX_Exontrol1:[RadialLineColor,exRadialSubItemsGridLines] := RGB(0,0,0)
oDCOCX_Exontrol1:[RadialLineStyle,exRadialSubItemsGridLines] := exRadialLineDot
oDCOCX_Exontrol1:[RadialLineSize,exRadialSubItemsGridLines] := 3
|
|
43
|
How can I change the border around the subitems (exRadialSubItemsBorder)
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:ShadowColor := -1
oDCOCX_Exontrol1:InflateItems := "-8*dpi"
oDCOCX_Exontrol1:ItemsBackColor := RGB(240,240,240)
oDCOCX_Exontrol1:[RadialLineColor,exRadialSubItemsBorder] := RGB(0,0,0)
oDCOCX_Exontrol1:[RadialLineStyle,exRadialSubItemsBorder] := exRadialLineDot
oDCOCX_Exontrol1:[RadialLineSize,exRadialSubItemsBorder] := 3
|
|
42
|
How can I change the border around the radial menu (exRadialBorder)
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:ShadowColor := -1
oDCOCX_Exontrol1:InflateItems := "-8*dpi"
oDCOCX_Exontrol1:ItemsBackColor := RGB(240,240,240)
oDCOCX_Exontrol1:[RadialLineColor,exRadialBorder] := RGB(0,0,0)
oDCOCX_Exontrol1:[RadialLineStyle,exRadialBorder] := exRadialLineDot
oDCOCX_Exontrol1:[RadialLineSize,exRadialBorder] := 3
|
|
41
|
How can I customize the parent part of the control, the center ring/circle
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:Items:ToString := "Item 1[scap=Item 1],Item 2[scap=Item 2],Item 3[scap=Item 3],Item 4[scap=Item 4]"
oDCOCX_Exontrol1:ParentSize := "48 * dpi"
oDCOCX_Exontrol1:[ParentImageHeight,exRadialMenuStateAll] := "78 * dpi"
oDCOCX_Exontrol1:[ParentImageWidth,exRadialMenuStateAll] := "78 * dpi"
oDCOCX_Exontrol1:ParentBackColor := RGB(0,255,0)
oDCOCX_Exontrol1:ParentBackAlpha := 128
oDCOCX_Exontrol1:ExcludeParentFromItems := true
|
|
40
|
How can I prevent showing the arrow in the outer ring
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:ArrowImage := ""
oDCOCX_Exontrol1:Items:ToString := "Child(SubChild)"
|
|
39
|
Is it possible to change the default arrow, that items with children display (method 2)
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:[HTMLPicture,"pic1"] := "gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0iIEOZCJJUBEjBB8BBkRERAJzKRHIQAVzODjpjpnIJNIMKWKPBb8MIFiIJOBILJzhQLCdHCYBACaTgYiKHJJEIJULBHMYYAqjMAURiCKJAAogA6lA4EGgAeJnEC2ALzdAMICWf6HMS6HYCbJyvF6eSfIC8CqJJ5zI6gLbuA7ERhAHgNFRGKZHMCzDgGNDukqWYYAZocSIIYiEFiHAJsRygXCccABcTDIBMZByDBAOwEFDkVACICOOCAGCJAQgI54IaYrlesAwBQGGpgMEKcpDGoqB6RSpriIAJJFJxEVxCMCCgI"
oDCOCX_Exontrol1:ArrowImage := "pic1"
oDCOCX_Exontrol1:Items:ToString := "Child(SubChild)"
|
|
38
|
Is it possible to change the default arrow, that items with children display (method 1)
oDCOCX_Exontrol1:[HTMLPicture,"arrow"] := "gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0iIEOZCJJUBEjBB8BBkRERAJzKRHIQAVzODjpjpnIJNIMKWKPBb8MIFiIJOBILJzhQLCdHCYBACaTgYiJfJJEIJULBHdrOYIJQAwCBEaK1FQbeaoYwGVjLWR0EgJRAEBpICwPf7BY4cQgdAYAcCjUCWfD0G6rHrlHziPTcPrEUjuY5zZpHHgdZ41DYxVTSYJSaojXT0PrTVZBar+P5aaoWT8KfiWbIBZQ1ErVPbDPyYiIAJJFJxEVxCMCCgIA=="
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:Items:ToString := "Child(SubChild)"
|
|
37
|
How can I change the logo image
oDCOCX_Exontrol1:[HTMLPicture,"logo"] := "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images\favorites.png"
|
|
36
|
How can I customize the items part of the control, the inside ring/circle
oDCOCX_Exontrol1:[DisplayRadial,exRadialFullItems] := exDisplayRadialRotated
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:Items:ToString := "Item 1[scap=Item 1],Item 2[scap=Item 2],Item 3[scap=Item 3],Item 4[scap=Item 4]"
oDCOCX_Exontrol1:InflateRadialMenu := "-4*dpi"
oDCOCX_Exontrol1:InflateItems := "-4*dpi"
oDCOCX_Exontrol1:ItemsBackColor := RGB(0,255,0)
oDCOCX_Exontrol1:ItemsBackAlpha := 128
|
|
35
|
How can I customize the subitems part of the control, the outside ring/circle
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:Items:ToString := "[scap=Item 1],[scap=Item 2],[scap=Item 3],[scap=Item 4]"
oDCOCX_Exontrol1:InflateRadialMenu := "-4*dpi"
oDCOCX_Exontrol1:SubItemsSize := "48 * dpi"
oDCOCX_Exontrol1:SubItemsBackColor := RGB(0,255,0)
oDCOCX_Exontrol1:SubItemsBackAlpha := 128
|
|
34
|
Can I expand/shrink the radial menu relative to its border/shadow
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:Items:ToString := "Item 1,Item 2,Item 3,Item 4"
oDCOCX_Exontrol1:InflateRadialMenu := "-6*dpi"
|
|
33
|
Is it possible to remove/hive the control's shadow
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:ShadowColor := -1
oDCOCX_Exontrol1:Items:ToString := "Item 1,Item 2,Item 3,Item 4"
|
|
32
|
How do I change the color of the control's shadow
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:ShadowColor := RGB(255,0,0)
oDCOCX_Exontrol1:Items:ToString := "Item 1,Item 2,Item 3,Item 4"
|
|
31
|
How can I evaluate/format an expression using the control
oDCOCX_Exontrol1:AllowToggleExpand := false
oDCOCX_Exontrol1:DisplayAngle := -66
oDCOCX_Exontrol1:Items:ToString := "Item 1,Item 2,Item 3,Item 4"
oDCOCX_Exontrol1:[Caption,exLayerCaption] := oDCOCX_Exontrol1:FormatABC("`The number of items is: <b>` + value",oDCOCX_Exontrol1:Items:Count,nil,nil)
|
|
30
|
Is it possible to display some extra captions on the control's background
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:MinVisibleCount := 6
oDCOCX_Exontrol1:Items:ToString := "Item 1,Item 2,Item 3,Item 4"
oDCOCX_Exontrol1:[Caption,exLayerCaption] := "This is a caption to be displayed on the control's background."
oDCOCX_Exontrol1:[ExtraCaption,"extra",exLayerCaption] := "This is an extra caption to be displayed on the control's background."
oDCOCX_Exontrol1:[ExtraCaption,"extra",exLayerCaptionAnchor] := 2
oDCOCX_Exontrol1:[ExtraCaption,"extra",exLayerCaptionWordWrap] := true
oDCOCX_Exontrol1:[ExtraCaption,"extralogo",exLayerCaption] := "<img>logo:64</img>"
oDCOCX_Exontrol1:[ExtraCaption,"extralogo",exLayerCaptionAnchor] := 4
oDCOCX_Exontrol1:[ExtraCaption,"extralogo",exLayerCaptionLeft] := "width-twidth"
oDCOCX_Exontrol1:EndUpdate()
|
|
29
|
What events the control supports
METHOD OCX_Exontrol1Event(EventID) CLASS MainDialog
// Event event - Notifies the application once the control fires an event.
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:[EventParam,-2]) ))
RETURN NIL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:Items:ToString := "Item 1,Item 2,Item 3,Item 4"
oDCOCX_Exontrol1:EndUpdate()
|
|
28
|
How can I use/load images/pictures
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:PicturesPath := "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oDCOCX_Exontrol1:[HTMLPicture,"relative"] := "settings.png"
oDCOCX_Exontrol1:[HTMLPicture,"absolute"] := "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images\favorites.png"
oDCOCX_Exontrol1:[HTMLPicture,"encoded"] := "gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0iIEOZCJJUBEjBB8BBkRERBJwJBZOcKAZ2mB2AJ9aqCZkRDJ0IpYOhTN5mOh3MJyMoAO9JFxpNxrOZjMJwMouN5yM6bdw8DUKAjoJJEIJULCFYqXLpsChVCjHf4zTo7XZjXazUJQUgCWoNCqWYp+ZS2vDyEqSGz6UjUA4tRIkAysGyRC6fPogEyaCCjYI3Dw0YyETDiQbRA5TSJ+aQWUKLcAubrdNTaOi7XBYbRlO67brOXpzPrATrdOpmRZGFInHLJfo4GbnG7ncbeRjAHLHYYUeKhPQHEBlAynJ6fbRcXyxeQLTZsNZJEwTETnAAhEirGQBSIyOYZQhISAkARRChQnWHQUGqUA0goTRbAYJpplAKIGm0WQ7DeVg0jARggksBJRkYBx/AiTp2nYdw/DuHQHjANpsjGT53jabprl0MwmhSAggjwEAvlWdY9Cieg7HobJYmWUYvgENBkgGcAdE8FIXBcYJ5SiAY4k8SJpBqUoQEkeg6DMNwACIUZfguVojCCORnBiCcmPmFhSimLBWkcRBjnGYxsAAMBKFaDRAGcTACgALYMnAMQ/h+bwdnqHwAHAUYHh+IAujaRpSm6dJHh+zJvj8M4tD+UJegaE5dm+Gw+DKYgcAOFBpmCHIXlQH5+DwCInGqAJijcI53kKBYCnaRwOnaYh9FkOooA6EpDFcF4tkOMYjh2BoNmMOgZkAVwzlSfwXFiLAGB+b5cECQZ9nucZgF8XoMAyXZGDoHQ2jSVZVBUXRdicYB0joDBtOAARVFUDQbCYW5ECAUzGjoMA0AQUQUFAUJfAcHZPjUAhSg0IwjGOBRtBuPZNFgYZykEKY6jAQ5lkKMwnimbwfFGKwAFYGBgGgUoljwIgoigK4pkGXRNA0ZAZGCYB4CgII9iCCB4GUSIHBwKoKg6I4dIqIQfEAKoFDQAJADgHBGEyOAMD2LYtjCW5tiiKQpEEHpdjsEIIAYMR3GcTpBAgCu/nQPh6hqHgvCiMJtH2K4U3aDYBhCCR1DUNZGlqQx9D0JApAjjgjgWAQoCUKJe40SgpWwOoFGYQxdFccZlHwKpsDaGxcFsNoamsboXAuMghDgfJlCeFY7EcSp5j2FJQZocwbQUQxICYExYjOa43GwMhNlid2xmgbBoEAfJ8h2TBNE0WQ6DkOpuEWC4vj0DIbhOARzAeWZVACVYRA4e49BCBMAQtw9i7BSDIHY3A3AQd+NUHYbhug5GGEMdA7g9ATH6IMQY5hkAUB0AkOYRRpg0CYAQE4QAyAJB7CkdAgQsgIBCPAfI/Q0BvDWIMKgZBeAKX4BoSIWxbjwGsPEcY+BfC3Au6ZzQdhPj9EmKMfAZhwAmBwOcVAqhWDEFsK0bYABFhTG0Oce4IQ5ArEEEAEAgB2iuHaMYfQ+AagvDsDcG4AQACaB6B4Lguw/AdEaPUeoOQADZAoOQLoRhdCeG6PAfY/RIAJGCKEQYhxYB5GmcId4BxlDLGWHEdwqw5wwD6PcEAMwABeBeJ4P47gIB0C6McSYbgbguHsPdiYthrDYF+O8MolAuBMDEDYCQxhtC1FKNgeA6BDCCGOO4UwjRNigXsGYYQMwsBcC4IRiCdBxiIG8I4UQbxQAPAEAQOAcBmBGDMJEJAJAoTWDYPg+Y5ALDGDICgAgSRJDgDSPQcgRRihKE0HcGwYw8BkAQMEKAABag1DrKANAOw+AYBaLsLYDBNj+GCAEfg4paBpFOMccgKw9gZHKHQYI5A3iTkaEEMoVRqiKD6M4HIRwqtVAQJEGA+Q1gIE4HMAgQywhvFSEYEVOB6CJBaNUBEJA5C6BQAsEAZBhDeqoMYZ4nB8gUUavEEICABDuG8L0PY3wECIFEAimqrwjgsAsIMaY6QiA8A8M8PYTgKBFBwBwBwxAxAxAAMAZIkx3jgH4PkV4hR+AUH4HUNQARgDCsgIoJwcxCgxEM+IPIYw3D1BYGMFgbwegXBcK8AwchtjwCCEoVwFwBhABMDIconAlgWHsP8XYKA7DFFwAwOQfxmh6FPcEd4Ww6D/CqCMSICAMBjD6KYBAzBmjNF6HEew7BsjPCoFUNoTQTCTCKAAUAKAFDsDsDuu4sQODbDYDYJAkgCBKBSNIdINBLX1EgEoUt9xShMDHfAMgWQzCpCoGoMAYQwjhHqIwL4YRajyC8EgDw+hvjxE+BUNgPAgjmBkBsfpEQABJCKE4IgrghBgEEQEA="
oDCOCX_Exontrol1:BackgroundPicture := "Background\frame.png"
var_Items := oDCOCX_Exontrol1:Items
var_Items:Add("Relative 1","relative",nil)
var_Items:Add("Relative 1",nil,nil):[Image,exRadialItems] := "settings.png"
var_Items:Add("Aboslute 1","absolute",nil)
var_Items:Add("Aboslute 2","favorites.png",nil)
var_Items:Add("Encoded 1","encoded",nil)
var_Items:Add("Encoded 2",nil,nil):[Image,exRadialItems] := "gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0iIEOZCJJUBEjBB8BBkRERBJwJBZOcKAZ2mB2AJ9aqCZkRDJ0IpYOhTN5mOh3MJyMoAO9JFxpNxrOZjMJwMouN5yM6bdw8DUKAjoJJEIJULCFYqXLpsChVCjHf4zTo7XZjXazUJQUgCWoNCqWYp+ZS2vDyEqSGz6UjUA4tRIkAysGyRC6fPogEyaCCjYI3Dw0YyETDiQbRA5TSJ+aQWUKLcAubrdNTaOi7XBYbRlO67brOXpzPrATrdOpmRZGFInHLJfo4GbnG7ncbeRjAHLHYYUeKhPQHEBlAynJ6fbRcXyxeQLTZsNZJEwTETnAAhEirGQBSIyOYZQhISAkARRChQnWHQUGqUA0goTRbAYJpplAKIGm0WQ7DeVg0jARggksBJRkYBx/AiTp2nYdw/DuHQHjANpsjGT53jabprl0MwmhSAggjwEAvlWdY9Cieg7HobJYmWUYvgENBkgGcAdE8FIXBcYJ5SiAY4k8SJpBqUoQEkeg6DMNwACIUZfguVojCCORnBiCcmPmFhSimLBWkcRBjnGYxsAAMBKFaDRAGcTACgALYMnAMQ/h+bwdnqHwAHAUYHh+IAujaRpSm6dJHh+zJvj8M4tD+UJegaE5dm+Gw+DKYgcAOFBpmCHIXlQH5+DwCInGqAJijcI53kKBYCnaRwOnaYh9FkOooA6EpDFcF4tkOMYjh2BoNmMOgZkAVwzlSfwXFiLAGB+b5cECQZ9nucZgF8XoMAyXZGDoHQ2jSVZVBUXRdicYB0joDBtOAARVFUDQbCYW5ECAUzGjoMA0AQUQUFAUJfAcHZPjUAhSg0IwjGOBRtBuPZNFgYZykEKY6jAQ5lkKMwnimbwfFGKwAFYGBgGgUoljwIgoigK4pkGXRNA0ZAZGCYB4CgII9iCCB4GUSIHBwKoKg6I4dIqIQfEAKoFDQAJADgHBGEyOAMD2LYtjCW5tiiKQpEEHpdjsEIIAYMR3GcTpBAgCu/nQPh6hqHgvCiMJtH2K4U3aDYBhCCR1DUNZGlqQx9D0JApAjjgjgWAQoCUKJe40SgpWwOoFGYQxdFccZlHwKpsDaGxcFsNoamsboXAuMghDgfJlCeFY7EcSp5j2FJQZocwbQUQxICYExYjOa43GwMhNlid2xmgbBoEAfJ8h2TBNE0WQ6DkOpuEWC4vj0DIbhOARzAeWZVACVYRA4e49BCBMAQtw9i7BSDIHY3A3AQd+NUHYbhug5GGEMdA7g9ATH6IMQY5hkAUB0AkOYRRpg0CYAQE4QAyAJB7CkdAgQsgIBCPAfI/Q0BvDWIMKgZBeAKX4BoSIWxbjwGsPEcY+BfC3Au6ZzQdhPj9EmKMfAZhwAmBwOcVAqhWDEFsK0bYABFhTG0Oce4IQ5ArEEEAEAgB2iuHaMYfQ+AagvDsDcG4AQACaB6B4Lguw/AdEaPUeoOQADZAoOQLoRhdCeG6PAfY/RIAJGCKEQYhxYB5GmcId4BxlDLGWHEdwqw5wwD6PcEAMwABeBeJ4P47gIB0C6McSYbgbguHsPdiYthrDYF+O8MolAuBMDEDYCQxhtC1FKNgeA6BDCCGOO4UwjRNigXsGYYQMwsBcC4IRiCdBxiIG8I4UQbxQAPAEAQOAcBmBGDMJEJAJAoTWDYPg+Y5ALDGDICgAgSRJDgDSPQcgRRihKE0HcGwYw8BkAQMEKAABag1DrKANAOw+AYBaLsLYDBNj+GCAEfg4paBpFOMccgKw9gZHKHQYI5A3iTkaEEMoVRqiKD6M4HIRwqtVAQJEGA+Q1gIE4HMAgQywhvFSEYEVOB6CJBaNUBEJA5C6BQAsEAZBhDeqoMYZ4nB8gUUavEEICABDuG8L0PY3wECIFEAimqrwjgsAsIMaY6QiA8A8M8PYTgKBFBwBwBwxAxAxAAMAZIkx3jgH4PkV4hR+AUH4HUNQARgDCsgIoJwcxCgxEM+IPIYw3D1BYGMFgbwegXBcK8AwchtjwCCEoVwFwBhABMDIconAlgWHsP8XYKA7DFFwAwOQfxmh6FPcEd4Ww6D/CqCMSICAMBjD6KYBAzBmjNF6HEew7BsjPCoFUNoTQTCTCKAAUAKAFDsDsDuu4sQODbDYDYJAkgCBKBSNIdINBLX1EgEoUt9xShMDHfAMgWQzCpCoGoMAYQwjhHqIwL4YRajyC8EgDw+hvjxE+BUNgPAgjmBkBsfpEQABJCKE4IgrghBgEEQEA="
var_Items:Add("<c><img>relative</img><br><c>Relative 3",nil,nil)
var_Items:Add("<c>Relative 4<br><c><img>relative</img>","relative",nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
27
|
Does your control supports tooltips (method 2)
METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
// MouseMove event - Occurs when the user moves the mouse.
oDCOCX_Exontrol1:ShowToolTip(AsString(oDCOCX_Exontrol1:FormatABC("`Index of the pie from the cursor: ` + (value >= 0 ? value : `<fgcolor=808080>none` )",oDCOCX_Exontrol1:[IndexFromPoint,exRadialFullItems,-1,-1],nil,nil)),"Info",0,"8","8")
RETURN NIL
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DisplayAngle := -45
oDCOCX_Exontrol1:Expanded := true
var_Items := oDCOCX_Exontrol1:Items
var_Items:ToString := "Item 0"
var_Items:Add("Item 1",nil,nil)
var_Items:Add("Item 2",nil,nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
26
|
Can I change the visual appearance of the control's tooltip
local var_Item as IItem
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:VisualAppearance:Add(1,"c:\exontrol\images\normal.ebn")
oDCOCX_Exontrol1:[Background,exToolTipAppearance] := 0x1000000
oDCOCX_Exontrol1:DisplayAngle := -45
oDCOCX_Exontrol1:Expanded := true
var_Items := oDCOCX_Exontrol1:Items
var_Items:ToString := "Item 0[ttp=tooltip's item][sttp=tooltip's subitem]"
var_Items:Add("Item 1",nil,nil):[Tooltip,exRadialItems] := "This is a bit of text that shown when user <b>hovers</b> the item"
var_Item := var_Items:Add("Item 2",nil,nil)
var_Item:[Tooltip,exRadialItems] := "This is a bit of text that shown when user hovers the item"
var_Item:[Tooltip,exRadialSubItems] := "This is a bit of text that shown when user hovers the sub-item"
oDCOCX_Exontrol1:EndUpdate()
|
|
25
|
Does your control supports tooltips (method 1)
local var_Item as IItem
local var_Items as IItems
oDCOCX_Exontrol1:DisplayAngle := -45
oDCOCX_Exontrol1:Expanded := true
var_Items := oDCOCX_Exontrol1:Items
var_Items:ToString := "Item 0[ttp=tooltip's item][sttp=tooltip's subitem]"
var_Items:Add("Item 1",nil,nil):[Tooltip,exRadialItems] := "This is a bit of text that shown when user <b>hovers</b> the item"
var_Item := var_Items:Add("Item 2",nil,nil)
var_Item:[Tooltip,exRadialItems] := "This is a bit of text that shown when user hovers the item"
var_Item:[Tooltip,exRadialSubItems] := "This is a bit of text that shown when user hovers the sub-item"
|
|
24
|
How can I use/load icons
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:PicturesPath := "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images\Icons"
oDCOCX_Exontrol1:Images("copy.ico")
oDCOCX_Exontrol1:Images("C:\Program Files\Exontrol\ExRadialMenu\Sample\Images\Icons\dvd.ico")
oDCOCX_Exontrol1:Images("gBJJgBggAAQAAgACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUnOktd54mD/lp0f5wmz/Ns5f5qnj/NE/f5noT/M1FolGopmo9KpNLpxfqDvldTqlVq1XrFZrVbrldr1fjKPsT/ftlf72er0s71er/e72e1ut9ye90uz3vF3vN4ut8u1NsGBwWDwmFw2DUWJf9peb/UyXSj/Yq+Xj/Y7BX7/ZLDYL/ZTFYeeYrEf7LY2kZbHYul1T/arTaT/Kq4Kb/G7IGz/cD5cD/Ne/f+H4XD4nF41UWvJxb0xq4Viqf66V6sf68WKvf69WSw7KzWL/Xy0WXg8T/X/l8/jbzcbb/MDAL/uanxcb7cb/Pv54PH/n9/z/qsY8BOWxq0LUtC2reuK8QWvcHL7B67HAeTem2er2n0fx9H+SEOv3AEQRDETDl/Ep3mWZJkH+ZhlGUf5mmWZcXmZGUaRkZRkmSf5kQG0bSGEYTOmBErsl4ypdFyXJ/luW5bH+WkoH+TEpqlEcrSvLCsKEM5Am6bT2n4eq6zDMcxH/MkzzMfZ6LifR5rafB4wKd54H+eR1HWf52nIcp/nKbhun+SpJEkf4aUOQMs0VRdFAbRwImfSJ/nyeS1TQclAH+fR7Lqc52PuGBVBgf4klaIx/mMYRbs8XEnGZIc9T4f5vmua5/j3XB/gPXYI0ZX1fwAgiCD/YhPnIcJxTSup+nyfZ/nceh2n+HRYh4f4HFCCNr2zaZYh2f51ngdB/nwea1T3PpbFk8Yn3aT9hJJYF5Xm4V4A1e4Q0iZ9J0rZ54HSf4glqIh/gwU4OH+FxahxhOF4Lg5/iAWYhH+chzG8f5znAcJ/ksSpKn+CORBDeF6ZNk6wXheA5ZYR5gmUYWIlkIp/g+VgTH+Gxc4oJRiiyf4jmGKuc53mubn+HBVB8f5MlETR/itqJH5VYWUatq6r6pqgQkeE5nhSWIYn/sGxbIf4wmmOp/imZQybHsO37LuGua9rWVaxvG8ozu2+a0GZbh6f48nCSKgmsPh/7/wO+8Zqu9cfq3G8aFBaYYL5tEIf4omgOJ/8phnJcZyHR5N0O+gqVgUn+Fhgisf4TF4JZ/9R1XTb50ncWB227AiUgQ5D33gd/3vf93rXc+RRaKh8lfmI6j6Q72AF4oyQDBIf5N6IC")
oDCOCX_Exontrol1:[HTMLPicture,"icon"] := "download.ico"
var_Items := oDCOCX_Exontrol1:Items
var_Items:ToString := "Icon 0[img=0]"
var_Items:Add("Icon 1",1,nil)
var_Items:Add("Icon 2","print.ico",nil)
var_Items:Add("Icon 3",nil,nil):[Image,exRadialSubItems] := "icon"
oDCOCX_Exontrol1:EndUpdate()
|
|
23
|
How can I load items /images to the control, in sub-items zone
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:AllowToggleExpand := false
oDCOCX_Exontrol1:PicturesPath := "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oDCOCX_Exontrol1:[HTMLPicture,"logo"] := "settings.png"
oDCOCX_Exontrol1:[RadialLineColor,exRadialParentBorder] := oDCOCX_Exontrol1:SubItemsBackColor
oDCOCX_Exontrol1:[RadialLineColor,exRadialItemsGridLines] := -1
oDCOCX_Exontrol1:SubItemsSize := "64 * dpi"
oDCOCX_Exontrol1:ParentSize := "value - 66 * dpi"
oDCOCX_Exontrol1:[ParentImageWidth,exRadialMenuStateAll] := "64*dpi"
oDCOCX_Exontrol1:[ParentImageHeight,exRadialMenuStateAll] := "64*dpi"
oDCOCX_Exontrol1:[ParentCaption,exRadialMenuStateAll] := "<font ;14><c>System Settings</font><br><c>Surround"
oDCOCX_Exontrol1:[RadialLineSize,exRadialHotFullItem] := 0
oDCOCX_Exontrol1:[RadialLineSize,exRadialHotSubItem] := -1
oDCOCX_Exontrol1:[RadialLineColor,exRadialHotSubItem] := 0x8000000d
oDCOCX_Exontrol1:[RadialLineAlpha,exRadialHotSubItem] := 128
oDCOCX_Exontrol1:ItemsBackColor := oDCOCX_Exontrol1:SubItemsBackColor
var_Items := oDCOCX_Exontrol1:Items
var_Items:Add("","color_line.png",2)
var_Items:Add("","color_fill.png",2)
var_Items:Add("","format_font_size_less.png",2)
var_Items:Add("","edit_undo.png",2)
var_Items:Add("","edit_redo.png",2)
var_Items:Add("","edit_copy.png",2)
var_Items:Add("","fileview_text.png",2)
var_Items:Add("","checkmark_korganizer.png",2)
oDCOCX_Exontrol1:EndUpdate()
|
|
22
|
How can I load items /images to the control
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:PicturesPath := "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oDCOCX_Exontrol1:[HTMLPicture,"arrow"] := "arrow.png"
oDCOCX_Exontrol1:SubItemsBackColor := RGB(190,190,190)
oDCOCX_Exontrol1:ShadowColor := oDCOCX_Exontrol1:SubItemsBackColor
oDCOCX_Exontrol1:[RadialLineColor,exRadialParentBorder] := oDCOCX_Exontrol1:SubItemsBackColor
oDCOCX_Exontrol1:[RadialLineColor,exRadialItemsGridLines] := -1
var_Items := oDCOCX_Exontrol1:Items
var_Items:Add("Foreground-Color","color_line.png",nil):Items:ToString := "Foreground"
var_Items:Add("Background-Color","color_fill.png",nil):Items:ToString := "Background"
var_Items:Add("Font","format_font_size_less.png",nil):Items:ToString := "Font"
var_Items:Add("Undo","edit_undo.png",nil):Items:ToString := "Undo"
var_Items:Add("Redo","edit_redo.png",nil):Items:ToString := "Redo"
var_Items:Add("Copy","edit_copy.png",nil):Items:ToString := "Copy"
var_Items:Add("List","fileview_text.png",nil):Items:ToString := "List"
var_Items:Add("Tag","checkmark_korganizer.png",nil):Items:ToString := "Tag"
oDCOCX_Exontrol1:EndUpdate()
|
|
21
|
How can I load items to the control
local var_Items,var_Items1 as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:MinVisibleCount := 3
oDCOCX_Exontrol1:PicturesPath := "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oDCOCX_Exontrol1:[HTMLPicture,"remove"] := "remove.png"
oDCOCX_Exontrol1:[HTMLPicture,"refresh"] := "refresh.png"
oDCOCX_Exontrol1:[HTMLPicture,"preview"] := "preview.png"
oDCOCX_Exontrol1:[HTMLPicture,"search"] := "search.png"
var_Items := oDCOCX_Exontrol1:Items
var_Items1 := var_Items:Add("Search","search",nil):Items
var_Items1:ToString := "Search A,Search B,Search C"
var_Items:Add("Refresh","refresh",nil)
var_Items:Add("Preview","preview",nil)
var_Items:Add("Remove","remove",nil)
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:EndUpdate()
|
|
20
|
How do I get the version of the control I am running
OutputDebugString(String2Psz( "Version:" ))
OutputDebugString(String2Psz( oDCOCX_Exontrol1:Version ))
|
|
19
|
How do I select an item
METHOD OCX_Exontrol1SelectItem(Item) CLASS MainDialog
// SelectItem event - Notifies once the user selects an item.
// SelectedIndex(3) = Item.Index
OutputDebugString(String2Psz( "selection changed" ))
RETURN NIL
oDCOCX_Exontrol1:AllowToggleExpand := false
oDCOCX_Exontrol1:ToString := "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
oDCOCX_Exontrol1:[SelectedIndex,exRadialFullItems] := 0
|
|
18
|
How can I change the item's foreground color (sample 3)
local var_Item as IItem
local var_Items,var_Items1 as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:MinVisibleCount := 6
oDCOCX_Exontrol1:Font:Size := "14.25"
var_Items := oDCOCX_Exontrol1:Items
var_Item := var_Items:Add("Item 1",nil,nil)
var_Item:Name := "<fgcolor FF0000>Item</fgcolor> 1"
var_Items1 := var_Item:Items
var_Items1:Add("SubItem 1",nil,nil)
var_Items1:Add("SubItem 2",nil,nil)
var_Items:Add("Item 2",nil,nil)
var_Items:Add("Item 3",nil,nil)
var_Items:Add("Item 4",nil,nil)
var_Items:Add("Item 5",nil,nil)
var_Items:Add("Item 6",nil,nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
17
|
How can I change the item's foreground color (sample 2)
local var_Item as IItem
local var_Items,var_Items1 as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:MinVisibleCount := 6
oDCOCX_Exontrol1:Font:Size := "14.25"
var_Items := oDCOCX_Exontrol1:Items
var_Item := var_Items:Add("Item 1",nil,nil)
var_Item:[ForeColor,exRadialItems] := RGB(255,0,0)
var_Items1 := var_Item:Items
var_Items1:Add("SubItem 1",nil,nil)
var_Items1:Add("SubItem 2",nil,nil)
var_Items:Add("Item 2",nil,nil)
var_Items:Add("Item 3",nil,nil)
var_Items:Add("Item 4",nil,nil)
var_Items:Add("Item 5",nil,nil)
var_Items:Add("Item 6",nil,nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
16
|
How can I change the item's foreground color (sample 1)
local var_Items,var_Items1 as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:MinVisibleCount := 6
oDCOCX_Exontrol1:Font:Size := "14.25"
oDCOCX_Exontrol1:ForeColor := RGB(255,0,0)
var_Items := oDCOCX_Exontrol1:Items
var_Items1 := var_Items:Add("Item 1",nil,nil):Items
var_Items1:Add("SubItem 1",nil,nil)
var_Items1:Add("SubItem 2",nil,nil)
var_Items:Add("Item 2",nil,nil)
var_Items:Add("Item 3",nil,nil)
var_Items:Add("Item 4",nil,nil)
var_Items:Add("Item 5",nil,nil)
var_Items:Add("Item 6",nil,nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
15
|
How can I add new items / childrend to the control (method 2)
local var_Items,var_Items1 as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Expanded := true
var_Items := oDCOCX_Exontrol1:Items
var_Items1 := var_Items:Add("Item 1",nil,nil):Items
var_Items1:Add("SubItem 1",nil,nil)
var_Items1:Add("SubItem 2",nil,nil)
var_Items:Add("Item 2",nil,nil)
var_Items:Add("Item 3",nil,nil)
var_Items:Add("Item 4",nil,nil)
var_Items:Add("Item 5",nil,nil)
var_Items:Add("Item 6",nil,nil)
var_Items:Add("Item 7",nil,nil)
var_Items:Add("Item 8",nil,nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
14
|
How can I add new items / childrend to the control (method 1)
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:ToString := "Item 1(SubItem 1,SubItem 2),Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
oDCOCX_Exontrol1:EndUpdate()
|
|
13
|
How do I enlarge the font (method 2)
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:AllowToggleExpand := false
oDCOCX_Exontrol1:MinVisibleCount := 4
oDCOCX_Exontrol1:ToString := "Item 1,Item 2,Item 3,Item 4"
oDCOCX_Exontrol1:Items:[Item,0]:Name := "<font ;14>Item 1"
oDCOCX_Exontrol1:EndUpdate()
|
|
12
|
How do I enlarge the font (method 1)
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:AllowToggleExpand := false
oDCOCX_Exontrol1:MinVisibleCount := 4
oDCOCX_Exontrol1:ToString := "Item 1,Item 2,Item 3,Item 4"
oDCOCX_Exontrol1:Font:Size := "14.25"
oDCOCX_Exontrol1:EndUpdate()
|
|
11
|
How can I expand the control (method 2)
oDCOCX_Exontrol1:AllowToggleExpand := false
|
|
10
|
How can I expand the control (method 1)
oDCOCX_Exontrol1:Expanded := true
|
|
9
|
By default, the control displays 8-pies. How can I change that
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:MinVisibleCount := 3
|
|
8
|
How can I prevents expanding / collapsing the radial menu
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:AllowToggleExpand := false
oDCOCX_Exontrol1:ToString := "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
oDCOCX_Exontrol1:[Caption,exLayerCaption] := "Cant expand/collapse the radial menu"
oDCOCX_Exontrol1:[Caption,exLayerCaptionAnchor] := 0
oDCOCX_Exontrol1:[Caption,exLayerCaptionLeft] := "width-twidth"
oDCOCX_Exontrol1:[Caption,exLayerCaptionTop] := "height-theight"
oDCOCX_Exontrol1:EndUpdate()
|
|
7
|
How can I prevent flickering the item, when user selects it
oDCOCX_Exontrol1:AllowToggleExpand := false
oDCOCX_Exontrol1:ToString := "<c><b>Item 1<b><br><c>no flick<br>,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
oDCOCX_Exontrol1:Items:[Item,0]:BrowseType := 0xfffffffc | exBrowseItemCustom | exBrowseItemChild
|
|
6
|
How do I highlight the sub-item zone when cursor hovers it (method 2)
local var_Items as IItems
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:[RadialLineSize,exRadialHotFullItem] := oDCOCX_Exontrol1:FormatABC(oDCOCX_Exontrol1:SubItemsSize,nil,nil,nil)
oDCOCX_Exontrol1:[RadialLineColor,exRadialHotFullItem] := 0x8000000d
oDCOCX_Exontrol1:[RadialLineAlpha,exRadialHotFullItem] := 64
var_Items := oDCOCX_Exontrol1:Items
var_Items:Add("Item A",nil,nil)
var_Items:Add("Item B",nil,nil)
var_Items:Add("Item C",nil,nil)
|
|
5
|
How do I highlight the sub-item zone when cursor hovers it (method 1)
local var_Items as IItems
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:[RadialLineSize,exRadialHotFullItem] := 0
oDCOCX_Exontrol1:[RadialLineSize,exRadialHotSubItem] := -1
oDCOCX_Exontrol1:[RadialLineColor,exRadialHotSubItem] := 0x8000000d
oDCOCX_Exontrol1:[RadialLineAlpha,exRadialHotSubItem] := 64
var_Items := oDCOCX_Exontrol1:Items
var_Items:Add("Item A",nil,nil)
var_Items:Add("Item B",nil,nil)
var_Items:Add("Item C",nil,nil)
|
|
4
|
Is it possible to highlight the entire item when cursor hovers the item
local var_Items as IItems
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:[RadialLineSize,exRadialHotFullItem] := -1
oDCOCX_Exontrol1:[RadialLineColor,exRadialHotFullItem] := 0x8000000d
oDCOCX_Exontrol1:[RadialLineAlpha,exRadialHotFullItem] := 64
var_Items := oDCOCX_Exontrol1:Items
var_Items:Add("Item A",nil,nil)
var_Items:Add("Item B",nil,nil)
var_Items:Add("Item C",nil,nil)
|
|
3
|
How can I hide the hot line when hovering the cursor
local var_Items as IItems
oDCOCX_Exontrol1:AllowToggleExpand := false
oDCOCX_Exontrol1:[RadialLineSize,exRadialHotFullItem] := 0
var_Items := oDCOCX_Exontrol1:Items
var_Items:Add("Item A",nil,nil)
var_Items:Add("Item B",nil,nil)
var_Items:Add("Item C",nil,nil)
|
|
2
|
How can I hide the control's shadow
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:ShadowColor := -1
|
|
1
|
How do I change the control's background color
oDCOCX_Exontrol1:BackColor := RGB(240,240,249)
|