custom buttons

[Thomas McGrath III]

W,

thanks

Tom

On Feb 26, 2004, at 8:40 AM, Wouter wrote:

>
> On 26 Feb 2004, at 06:22, use-revolution-request at lists.runrev.com 
> wrote:
>
>> Message: 7
>> Date: Wed, 25 Feb 2004 22:16:21 -0500
>> From: Thomas McGrath III <3mcgrath at adelphia.net>
>> Subject: Re: custom buttons
>> To: How to use Revolution <use-revolution at lists.runrev.com>
>> Message-ID: <26F085DE-680A-11D8-95F7-000A95DA60FA at adelphia.net>
>> Content-Type: text/plain; charset=US-ASCII; format=flowed
>>
>> My Bad,,,,,,
>>
>> I didn't include the images in that file.
>>
>> this one has it I swear....
>>
>> go URL "http://users.adelphia.net/~3mcgrath/Buttons.rev"
>>
>>
>> Tom
>
>
> Hi Tom,
>
> Another possible buttonscript.
>
> local lOldLoc   ### or make custom properties upPos and downPos
> on mousedown
>     put the loc of me into lOldLoc
>     checkformousewithin
> end mousedown
>
> on checkformousewithin
>   if the mouseloc is within the rect of btn "backbutton" then
>       if the mouse is down then
>         set the icon of btn "backbutton" to 1013  ### your buttondown 
> img
>         set the loc of me to (item 1 of lOldLoc + 5,item 2 of lOldLoc 
> + 5)
>         send "checkformousewithin" to me in 20 millisecs
>       else
>         set the icon of btn "backbutton" to 1014  ### your buttonup img
>         set the loc of me to  lOldLoc
>       end if
>     else
>       if the mouse is down then
>         set the icon of btn "backbutton" to 1014
>         set the loc of me to  lOldLoc
>         send "checkformousewithin" to me in 20 millisecs
>       end if
>     end if
> end checkformousewithin
>
> on mouseup
>   answer "Yes"
> end mouseup
>
>
> Greetings,
> WA
>
> _______________________________________________
> use-revolution mailing list
> use-revolution at lists.runrev.com
> http://lists.runrev.com/mailman/listinfo/use-revolution
>
>

Thomas J. McGrath III
SCS
1000 Killarney Dr.
Pittsburgh, PA 15234
412-885-8541