Windows XP buttons

[Trevor DeVore]

I don't have Win XP in front of me but you could try setting the button 
color to the registry value of queryRegistry("HKEY_CURRENT_USER\Control 
Panel\Colors\ButtonFace").  You could also poke around in there for 
other colors.

Another thing to do for XP is set the background color of the program 
menu to the value of "HKEY_CURRENT_USER\Control Panel\Colors\Menu" so 
that it appears white rather than grey when the user clicks on a menu.  
What I do is this:

on openStack
if (word 1 of the systemVersion = "NT" and word 2 of the systemVersion 
 > 5) then
     set the uMenuColor of group "Main Menu" to \
         queryRegistry ("HKEY_CURRENT_USER\Control Panel\Colors\Menu")
   else
     set the uMenuColor of group "Main Menu" to empty
   end if
end openStack


Then in the script for each menu button I put the following:

on mouseDown
   set backgroundColor of me to the uMenuColor of group "Main Menu"
   set backgroundColor of button "Help" to empty
   set the uTargetButton of group "Main Menu" to abbr name of me
end mouseDown

on mouseUp
   --pass mouseUp
   set backgroundColor of the uTargetButton of group "Main Menu" to empty
   pass mouseUp
end mouseUp

on mouseRelease
   mouseUp
   pass mouseRelease
end mouseRelease

You could probably optimize this so that the script could be attached 
to the group but I was in a hurry to get it working and just attached 
it to each button.

Trevor DeVore
Blue Mango Multimedia
trevor at mangomultimedia.com

On Wednesday, June 4, 2003, at 11:52 AM, Chris Sheffield wrote:

> Just wondering if there's any way to get Windows
> XP-style buttons when running a standalone under XP?
> Instead my buttons are just taking on the background
> color of my stack or card, which looks awful.  How can
> I make buttons take on the default system colors?  Or
> can I?
>
> Thanks,
>
>
> =====
> Chris Sheffield
> Read Naturally
> www.readnaturally.com
>
> __________________________________
> Do you Yahoo!?
> Yahoo! Calendar - Free online calendar with sync to Outlook(TM).
> http://calendar.yahoo.com
> _______________________________________________
> use-revolution mailing list
> use-revolution at lists.runrev.com
> http://lists.runrev.com/mailman/listinfo/use-revolution
>