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