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>
