[Gambas-user] Drag & Drop Question?

[Benoit Minisini]

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...