Graphics 640,480,16,2

Global bild_1 = CreateImage(20,20)
SetBuffer ImageBuffer(bild_1)
Rect 0,0,20,20

SetBuffer BackBuffer()

Type objekt
	Field x
	Field y
	Field aktiv 
	Field img
End Type 

CreateObjekt(bild_1,100,200) ;image,x,y

Repeat
Cls

UpdateObjekt()

Flip
Until KeyHit(1):End

Function CreateObjekt(img,x,y)
o.objekt = New objekt
o\img = img
o\x = x
o\y = y
MidHandle o\img
End Function 	 	

Function UpdateObjekt()
For o.objekt = Each objekt
If ImageRectCollide(o\img,o\x,o\y,0,MouseX(),MouseY(),1,1)
	If MouseHit(1) = True 
		o\aktiv = 1
	EndIf 
EndIf 		
If o\aktiv = 1 
	If MouseDown(1) = 1
		o\x = MouseX()
		o\y = MouseY()
	Else
		o\aktiv = 0
	EndIf 			
EndIf 	
DrawImage o\img,o\x,o\y
Next 
End Function 

Type OBJ_DragDrop 
   Field PosX, PosY 
   Field SizeX, SizeY 
   Field RectSelect 
End Type 
Global OBJ.OBJ_DragDrop 

Global DifX, DifY 
Global   MouseKey1 

Function OBJ_CreateDragDrop(PosX, PosY, SizeX, SizeY) 
   OBJ.OBJ_DragDrop = New OBJ_DragDrop 
   OBJ\PosX   = PosX 
   OBJ\PosY   = PosY 
   OBJ\SizeX   = SizeX 
   OBJ\SizeY   = SizeY 
   Return(Handle(OBJ)) 
End Function 

Function OBJ_UpdateDragDrop() 
   For OBJ = Each OBJ_DragDrop 
      If(MouseKey1) 
         If(PointRectColli(MouseX(), MouseY(), OBJ\PosX, OBJ\PosY, OBJ\SizeX, OBJ\SizeY)) 
            DifX = MouseX() - OBJ\PosX 
            DifY = MouseY() - OBJ\PosY 
            OBJ\RectSelect = True 
         EndIf 
      EndIf 
       
      If(MouseDown(1)) 
         If(OBJ\RectSelect = True) 
            OBJ\PosX = MouseX() - DifX 
            OBJ\PosY = MouseY() - DifY 
         EndIf 
      Else 
         OBJ\RectSelect = False 
      EndIf 
      Rect(OBJ\PosX, OBJ\PosY, OBJ\SizeX, OBJ\SizeY, 0) 
   Next 
End Function 

Function OBJ_ReturnX(id) 
   OBJ = Object.OBJ_DragDrop(id) 
   Return(OBJ\PosX) 
End Function 

Function OBJ_ReturnY(id) 
   OBJ = Object.OBJ_DragDrop(id) 
   Return(OBJ\PosY) 
End Function 

Function PointRectColli(x3, y3, x1, y1, x2, y2) 
   If(x3 =>x1 And y3 => y1 And x3 <= x1 + x2 And y3 <= y1 + y2) Return(True) 
   Return(False) 
End Function
;end include

Graphics(640, 480, 16, 1) 

obj1 = OBJ_CreateDragDrop(100, 100, 200, 100) 
obj2 = OBJ_CreateDragDrop(100, 250, 100, 60) 

SetBuffer(BackBuffer()) 
While(KeyHit(1) = False) 
   MouseKey1 = MouseHit(1) 
   OBJ_UpdateDragDrop() 
    
   Cls 
    
   Rect(OBJ_ReturnX(obj1), OBJ_ReturnY(obj1), 200, 100, 0) 
   Rect(OBJ_ReturnX(obj2), OBJ_ReturnY(obj2), 100, 60, 0) 
    
   Plot(MouseX(), MouseY()) 
    
   Flip(True) 
Wend 
End