-- Gambas.JochenGeorges - 24 Dec 2004

How to use the Button Argument


buttonarg.png
' Gambas class file


PUBLIC SUB da_MouseMove()
  IF Mouse.Button = 1 THEN
    Draw.Begin(da)
      Draw.Ellipse(Mouse.X, Mouse.Y, 9, 9)
    Draw.End
  ELSE
    Draw.Begin(da)
      Draw.Rect(Mouse.X, Mouse.Y, 9, 9)
    Draw.End  
  ENDIF
END