[Gambas-user] Drag & Drop Question?

[Steve Starr]

This works to :)

PUBLIC SUB Button1_MouseMove()

Button1.Y = Mouse.ScreenY
Button1.X = Mouse.ScreenX

END

On 8/21/05, Benoit Minisini <gambas at ...1...> wrote:
> On Sunday 21 August 2005 19:09, Steve Starr wrote:
> > Umm could you provide a simple example for me please.
> >
> 
> Quickly...
> 
> PRIVATE $X AS Integer
> PRIVATE $Y AS Integer
> PRIVATE $MX AS Integer
> PRIVATE $MY AS Integer
> 
> PUBLIC SUB Button1_MousePress()
>   $MX = Mouse.ScreenX
>   $MY = Mouse.ScreenY
>   $X = Button1.X
>   $Y = Button1.Y
> END
> 
> PUBLIC SUB Button1_MouseMove()
>   ' The following line may be mandatory for controls that track mouse events.
>   IF NOT Mouse.Left THEN RETURN
>   Button1.Move($X + Mouse.ScreenX - $MX, $Y + Mouse.ScreenY - $MY)
> END
> 
> Regards,
> 
> --
> Benoit Minisini
> mailto:gambas at ...1...
> 
> 
> -------------------------------------------------------
> SF.Net email is Sponsored by the Better Software Conference & EXPO
> September 19-22, 2005 * San Francisco, CA * Development Lifecycle Practices
> Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA
> Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf
> _______________________________________________
> Gambas-user mailing list
> Gambas-user at lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/gambas-user
>