Same effect here for the code below, but buttons in some of my other  
apps do not behave this way...

On Jun 4, 2004, at 3:25 PM, michael evans wrote:

> Below is a code snippet.
>
> Try clicking in the lower part of Style button. Button does NOT light  
> up.
> Try clicking in the upper part of Style button. Button DOES light up.
>
> Does any one know how to fix this?
>
>
> dim WndRect as rect
> dim BtnRect as rect
>
> SETRECT(WndRect, 0, 0, 762, 684)
> APPEARANCE WINDOW 1, "Main", @WndRect, ¬
> _kDocumentWindowClass,_kWindowStandardFloatingAttributes
>
> DEF SETWINDOWBACKGROUND(_kThemeActiveDialogBackgroundBrush,_zTrue)
>
> SETRECT(BtnRect, 12, 260, 66, 272)
> APPEARANCE BUTTON 2,_activeBtn,0,0,1, "Style",@BtnRect,¬
> _kControlPushButtonProc_kControlUsesOwningWindowsFontVariant
>
> DO
> HANDLEEVENTS
> UNTIL gFBQuit
>
> END
>
> Cheers,
>
> ----------------------------------------------------------------------- 
> -----
> Michael Evans
> ----------------------------------------------------------------------- 
> -----
>
> --
>
>
----
Scott Spencer
sj3@...