function Color2RGB lparameters RGBcolor * Color = 0x00bbggrr return "rgb("+; ltrim(str(bitand(RGBColor,0x000000ff)))+","+ ; ltrim(str(bitrshift(bitand(RGBColor,0x0000ff00),8)))+","+ ; ltrim(str(bitrshift(bitand(RGBColor,0x00ff0000),16)))+")"Cetin
Define popup mypop multiselect margin from mrow(),mcol() >>Define bar 1 of mypop prompt 'Color1' color RGB(0,0,0,192,192,192), RGB(0,0,0,0,255,255) >>Define bar 2 of mypop prompt 'Color2' color RGB(0,0,0,192,192,192), RGB(0,0,0,255,0,255) >>Define bar 3 of mypop prompt 'Color3' color RGB(0,0,0,192,192,192), RGB(0,0,0,255,255,0) >>Define bar 4 of mypop prompt 'Color4' color RGB(0,0,0,192,192,192), RGB(0,0,0,0,255,0) >>Define bar 5 of mypop prompt '\Done' color RGB(0,0,0,192,192,192), RGB(0,0,0,0,255,0) >>on selection popup mypop do listsels >>activate popup mypop >> >>function listsels >>for ix=1 to cntbar('mypop') >>if mrkbar('mypop',ix) >>? prmbar('mypop',ix) >>endif >>endfor >>Cetin