ST_Drag is structure
nXInitis int// Initial mouse X location
nYInitis int// Initial mouse Y location
nXPosis int// Frame bottom right location
nYPosis int// Frame top left location
sControl is string// Name of the control moved
END
Drag_Img is ST_Drag
// Initialize the procedure used to manage the event
Event("Drag","",513)// 513=WM_LBUTTONDOWN=left button down
Event("Drag","*.",512)// 512=WM_MOUSEMOVE=mouse move
Event("Drag","*.",514)// 514=WM_LBUTTONUP=left button up
Procedure Drag() // Manage events used to drag controls
nEventNum is int// Number of the event to process
nNewNr,nXPos,nYPos are int// New control locations
nEventNum=_EVE.wMessage// Retrieve the number of the event to process
IF nEventNumQ3 THEN
Drag_Img:sControl=ControlOver(True, True)
// Check if the control can be moved *************************
IF Left(Drag_Img:sControl,2)="LL" THEN
// **********************************************************
// Capture the mouse events (compulsory)
CallDLL32("User32", "SetCapture", Handle(""))
// Store the initial mouse location
Drag_Img:nXInit=LoWord(_EVE.lParam)// Mouse X location
Drag_Img:nYInit=HiWord(_EVE.lParam)// Mouse Y location
Drag_Img:nXPos={Drag_Img:sControl,indControl}..X// Initial control X location
Drag_Img:nYPos={Drag_Img:sControl,indControl}..Y// Initial control Y location
Drag_Img:nCurNr=Val(ExtractString(Drag_Img:sControl,2,"_"))
ELSE
Drag_Img:sControl=""// No control currently moved
END
ELSE IF nEventNumQ2 THEN
// WM_MOUSEMOVE=mouse move
// Check that a control is currently moved
IF Drag_Img:sControl"" THEN
// Calculate the new object coordinates
nXPos=Drag_Img:nXPos+(LoWord(_EVE.lParam)-Drag_Img:nXInit)
nYPos=Drag_Img:nYPos+(HiWord(_EVE.lParam)-Drag_Img:nYInit)
// Check that the control has been moved
IF nXPos={Drag_Img:sControl,indControl}..X AND nYPos={Drag_Img:sControl,indControl}..Y THEN
RETURN
END
// Check that the control is still located on the BACKGROUND image
IF nXPoswin_KlasPlan..Width-20 THEN
nXPos=win_KlasPlan..Width-{Drag_Img:sControl,indControl}..Width-20
END
END
IF nYPoswin_KlasPlan..Height-28 THEN
nYPos=win_KlasPlan..Height-{Drag_Img:sControl,indControl}..Height-28
END
END
// Move the control
{Drag_Img:sControl,indControl}..X=nXPos
{Drag_Img:sControl,indControl}..Y=nYPos
// If the WM_LBUTTONDOWN message is lost.
// Check that the button is still down.
//IF not KeyPress(kpLButton) THEN
//EventNumQ4// To simulate a button up
//END
END
ELSE IF nEventNumQ4 THEN
// WM_lBUTTONUP=left button up
IF Drag_Img:sControl"" THEN
CallDLL32("User32", "ReleaseCapture")
// Calculate the new object coordinates
nXPos=Drag_Img:nXPos+(LoWord(_EVE.lParam)-Drag_Img:nXInit)
nYPos=Drag_Img:nYPos+(HiWord(_EVE.lParam)-Drag_Img:nYInit)
{Drag_Img:sControl,indControl}..X=Drag_Img:nXPos
{Drag_Img:sControl,indControl}..Y=Drag_Img:nYPos
Drag_Img:sControl=""
END
END