[Gambas-user] "Strange" coordinates of mouse with _Drop() event
Ru Vuott
vuott at ...325...
Sun Oct 20 00:22:26 CEST 2013
Hello,
on a Form I have a "ScrollView" and separately a "PictureBox", in which there is the image I'll drag then with the mouse inside the "ScrollView".
Here the code:
**************************************
Public Sub Form_Open()
ScrollView1.Drop = True
End
Public Sub PictureBox1_MouseDrag()
If Mouse.Left Then
Drag.Icon = Last.Picture
Last.Drag(Last.Picture.Image)
Endif
End
Public Sub ScrollView1_Drop()
Dim pb As PictureBox
Dim pc As Picture
With pb = New PictureBox(ScrollView1)
.X = Mouse.X
.Y = Mouse.Y
.Picture = Drag.Data.Picture
.W = Drag.Data.Picture.W
.H = Drag.Data.Picture.H
End With
' In console I read the "very strange" coordinates of mouse pointer:
With Mouse
Print .X
Print .Y
End With
End
**************************************
Where I'm wrong?
Best regards
vuottttt
More information about the User
mailing list