Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
How to make regular popup look like shortcut popup?
Message
De
24/10/2001 13:41:57
Cetin Basoz
Engineerica Inc.
Izmir, Turquie
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00572628
Message ID:
00572768
Vues:
24
Colin you could directly use GetColor() to provide your values.

? Color2RGB(GetColor())
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


>Thanks Cetin. Is there a list anywhere of colours and their RGB() settings?
>
>>>Anyone know the color settings or any other way to accomplish this? I need to have a popup that is multiselect but that looks like a shortcut popup (right-click). MULTISELECT and SHORTCUT don't work together for popups. TIA
>>
>>
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
Çetin Basöz

The way to Go
Flutter - For mobile, web and desktop.
World's most advanced open source relational database.
.Net for foxheads - Blog (main)
FoxSharp - Blog (mirror)
Welcome to FoxyClasses

LinqPad - C#,VB,F#,SQL,eSQL ... scratchpad
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform