Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
How to make regular popup look like shortcut popup?
Message
 
To
24/10/2001 13:41:57
Cetin Basoz
Engineerica Inc.
Izmir, Turkey
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00572628
Message ID:
00572852
Views:
39
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.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform