[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