Thanks Arnaud, I knew I must have been overlooking something obvious.
Setting the bevelbutton.vaule = true and waiting about 10 ticks mimics the clicked button behaviour quite convincingly. best wishes Rob On Mar 7, 2007, at 6:13 PM, realbasic-nug- [EMAIL PROTECTED] wrote: > Message: 8 > Date: Wed, 7 Mar 2007 22:23:36 +0100 > From: Arnaud Nicolet <[EMAIL PROTECTED]> > Subject: Re: bevelbutton push > To: REALbasic NUG <[email protected]> > Message-ID: <[EMAIL PROTECTED]> > Content-Type: text/plain; charset=ISO-8859-1; format=flowed > > Le 7 mars 07 ? 21:42 Soir, Robert Carroll a ?crit: > >> Hi All, >> >> The NUG archives have several discussions of how to implement a >> custom bevelbutton with a push event that can be triggered in code >> like a pushbutton. >> >> I'm not having a problem obtaining the action coded to the >> bevelbutton when it is 'pushed' but how can I get the button to >> change appearance in the same way that it does if it has been clicked >> with the mouse? >> >> It's the visual feedback that I would like to get from the button if >> triggered from a key-down event for example. > > What about that? > > dim t As Double > > BevelButton1.Value=True //highlight the bevel button > BevelButton1.Refresh //and reveal the change on screen > > //Wait a short period of time to allow the display to reflect the > state: > t=Ticks > do > if Ticks-t>5 then Exit > Loop > > BevelButton1.Value=False //And set the value back > > At least, I just test it here, on Mac OS X 10.4: it seems to work. _______________________________________________ Unsubscribe or switch delivery mode: <http://www.realsoftware.com/support/listmanager/> Search the archives: <http://support.realsoftware.com/listarchives/lists.html>
