[Gambas-user] How to move an object within a form

[Fiddler63]

I'm trying to move an object within a form.
The following code allows me to move the form, but not the object within the
form, ie when I click on the mouse I can move the form around on the screen,
but no the object within the form.

Any suggestions ?

PRIVATE $MX AS Integer
PRIVATE $MY AS Integer

PUBLIC SUB DrawingArea1_MouseDown()
 $MX = Mouse.ScreenX - ME.X
 $MY = Mouse.ScreenY - ME.Y
END

PUBLIC SUB DrawingArea1_MouseMove()
  ME.Move(Mouse.ScreenX - $MX, Mouse.ScreenY - $MY) 
END
-- 
View this message in context: http://old.nabble.com/How-to-move-an-object-within-a-form-tp27209201p27209201.html
Sent from the gambas-user mailing list archive at Nabble.com.