>Just add the same code to the MouseUp event at the end.
>
> 'Move Caption Back
> StaticRPM.Top=StaticRPM.Top-1
> StaticRPM.Left=StaticRPM.Left-1
The above keeps the text from moving off the button, but also causes the
text to shift as if the button is being depressed.
If I understand what you want to do, if you check for NOT CMM click in
the MouseDown event, I think both problems can be solved--both problems
being the back lighting and moving text.
Dim LightON as Picture
'------Backlight ON:--------------------------------
If not IsCMMClick Then
If Me.Value=False Then 'Button IN
LightON=NewPicture(Me.width,Me.height,16)
LightON.graphics.ForeColor=ButtLightColor ' Lightcolor:Light Amber
LightON.graphics.FillRect 0,0,(Me.width,Me.height)
Me.icon=LightON
'return true
End If
'---------------------------------------------------
'Move Caption Down & Right To Simulate Depression
StaticRPM.Top=StaticRPM.Top+1
StaticRPM.Left=StaticRPM.Left+1
End If
'---- Mouse RightClick in selects DRO display color ----------
RightClick=False
If IsCMMClick Then 'Mouse RightClick
RightClick=True 'To keep IsCMMClick out of MouseUp
return true
End If
'-------------------------------------------------------------
'Return true
-----Original Message-----
From: gettingstarted-bounces at lists dot realsoftware dot com
[mailto:gettingstarted-bounces at lists dot realsoftware dot com] On Behalf Of
Terry Ford
Sent: Saturday, March 26, 2005 3:50 PM
To: Getting Started
Subject: Re: [RB] Problem with BevelButton Events
On 26-Mar-05, at 12:25 PM, Eirik Karlsen wrote:
> When using the RIGHT button too?
Just add the same code to the MouseUp event at the end.
'Move Caption Back
StaticRPM.Top=StaticRPM.Top-1
StaticRPM.Left=StaticRPM.Left-1
Now, what is "plop:" ?
It occurs in two places. In your comments referring to a GoTo and then
in your code. Funny it doesn't seem to create an error and has no
effect on the program whether it's there or not.
That might be a bug. :-)
Terry
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
|