Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
How to make regular popup look like shortcut popup?
Message
 
À
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:
00572852
Vues:
38
Thanks again Cetin. That function is perfect.

To me the popup looks 'BLAH'. With it's 'flat' appearance it looks cut into rather than on top of the form. Any thoughts on how to make the popup look better? To bad the SHADOW clause doesn't exist for DEFINE POPUP anymore.

>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
Colin Magee
Team Leader, Systems Development
Metroland Media Group Ltd.
Mississauga, Ontario, Canada

cmagee@metroland.com

Never mistake having a career with having a life.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform