On 18/01/10 19:27, Fiddler63 wrote: > 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 > ME relates to the form, not the Drawing Area.
Regards, Werner ------------------------------------------------------------------------------ Throughout its 18-year history, RSA Conference consistently attracts the world's best and brightest in the field, creating opportunities for Conference attendees to learn about information security's most important issues through interactions with peers, luminaries and emerging and established companies. http://p.sf.net/sfu/rsaconf-dev2dev _______________________________________________ Gambas-user mailing list [email protected] https://lists.sourceforge.net/lists/listinfo/gambas-user
