Drag & drop controls inside a scroller
Josep M Yepes
jmyepes at mac.com
Thu Oct 18 17:22:58 CDT 2012
I follow your steps but the I can't drag more far away of 5 pixels... :(
If you prefer delete the lines that put into fld "status" and you can see that the button can't be dragged and I don't know why...
Any idea why?
El 18/10/2012, a las 19:00, use-livecode-request at lists.runrev.com escribió:
> Subject: Re: Drag & drop controls inside a scroller
> Message-ID: <C0A8C5A4-8D03-477C-8337-216D218852D9 at pbh.on-rev.com>
> Content-Type: text/plain; charset=us-ascii
> Hi Josep,
> Your code stops at line 11 where the word status has wrapped to a new line and so has dropped out of the comment, also at line 13.
> It gives this error in the 'Errors" pane of the Script Editor:
> button "Button": execution error at line 11 (Handler: can't find handler) near "status", char 1
> This is because LC now thinks "status" is a handler, but that handler isn't defined.
> Move the word "status" back to the commented line, do the same with line 13 and the code works fine.
> Note, you should also enclose the field name in quotes.
> New code:
> local allowDrag
> on mouseDown
> put (the mouseH - left of me),(the mouseV - top of me) into allowDrag
> end mouseDown
> on mouseMove x,y
> if allowDrag = "" then exit mouseMove
> set topLeft of me to \
> (x - item 1 of allowDrag) & "," & (y - item 2 of allowDrag)
> # if within(grc box1,loc of me) then put "You hit box 1" into fld "status"
> # if within(grc box2,loc of me) then put "You hit box 2" into fld "status"
> put "" into fld "status"
> if intersect(me,grc box1) then put "You hit box 1" into fld "status"
> if intersect(me,grc box2) then put "You hit box 2" into fld "status"
> end mouseMove
> on mouseUp
> put empty into fld "status"
> put "" into allowDrag
> end mouseUp
> on mouseRelease
> end mouseRelease
More information about the use-livecode