How would you implement this function?

[michaeled314]

I would like to know how to implement this function, but not just for windows.

http://msdn.microsoft.com/en-us/library ... 85%29.aspx

My dog misses his grandfather very much since he got run over by a truck, and I feel that I will need to bring him back somehow.

[einander]

but not just for windows

I think this function only works for windows.
I use it this way:

Code: Select all

EnableExplicit
Define Ev
;
Macro MMk
  Abs(GetAsyncKeyState_(#VK_LBUTTON) +GetAsyncKeyState_(#VK_RBUTTON)*2+GetAsyncKeyState_(#VK_MBUTTON)*3)/$8000   
EndMacro
;
Procedure DragW(Win) ; drag borderless window
  Protected Ancestor=GetAncestor_(WindowID(Win),#GA_ROOT)
  If ChildWindowFromPoint_(Ancestor,WindowMouseX(Win)|WindowMouseY(Win)<<32)
    SendMessage_(Ancestor, #WM_NCLBUTTONDOWN,#GA_ROOT, 0)
  EndIf
EndProcedure 
;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
OpenWindow(0, 100, 100,700,500 ,"",  #PB_Window_BorderLess)
TextGadget(-1,10,10,200,50,"Drag me"+Chr(10)+"<Escape> To Quit")
Repeat
  If GetAsyncKeyState_(27)&$8000 :  End : EndIf 
  EV=WaitWindowEvent()
  If MMk
    Dragw(0)
  EndIf  
Until EV=#PB_Event_CloseWindow
End 

Cheers!

[wilbert]

I suppose that doesn't bring back the run over dog he was talking about

@michaeled314, since your problem was caused by hardware, I don't think you will be able to solve it by using software

[Perkin]

Depending on how long ago....

You might be able to get it back from the trashcan.

[MachineCode]

Depending on how long ago....
You might be able to get it back from the trashcan.

Ohhhhhhhh, black humor!