Francisco

>Hello people, i need show legends for an app with maps, the control is done but i dont have space for the legend (black- salesman, yellow- final client, etc), how i can put differents colors in a listbox? or differents colors in a grid is that possible? or and free activex for make this job :-) (i preffer fox code please)

Set the Listbox.RowSource = mypop, .RowSourceType = 9 - Popup

* 04-Aug-98 fixed via KB Q185090 added the , before the color pair
define popup mypop from 0,0 && in screen
define bar 1 of MyPop prompt "Red" color ,rgb(255,0,0,255,255,255)
define bar 2 of MyPop prompt "Blue" color ,rgb(0,0,255,255,255,255)
define bar 3 of MyPop prompt "Green" color ,rgb(0,255,0,255,255,255)
define bar 4 of MyPop prompt "Red2" color ,rgb(255,0,0,0,0,0)
define bar 5 of MyPop prompt "Blue2" color ,rgb(0,0,255,0,0,0)
define bar 6 of MyPop prompt "Green2" color ,rgb(0,255,0,0,0,0)
define bar 7 of MyPop prompt "Green3" color G+/W
define bar 8 of MyPop prompt "Green3-1" color scheme 1
define bar 9 of MyPop prompt "Green3-2" color scheme 2
define bar 10 of MyPop prompt "Green3-3" color scheme 3
define bar 11 of MyPop prompt "Green3-4" color scheme 4
define bar 12 of MyPop prompt "Green3-5" color scheme 5
define bar 13 of MyPop prompt "Red4" color ,rgb(255,0,0)
define bar 14 of MyPop prompt "Blue4" color ,rgb(0,0,255)
define bar 15 of MyPop prompt "Green4" color ,rgb(0,255,0)
define bar 16 of MyPop prompt "Red-5" color ,rgb(255,0,0,0,255,255)
define bar 17 of MyPop prompt "Blue-5" color ,rgb(0,0,255,255,0,255)
define bar 18 of MyPop prompt "Green-5" color ,rgb(0,255,0,255,255,0)