-- Gambas.JochenGeorges - 24 Dec 2004

Как использовать аргумент Button


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