Move Window with api

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|551\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> Move Window with api
Sat, 10 Mar 2018, 11:09
Dan	Move Window with api (and prevent sticky mousedown bug) Hi. With my recent project, i have discovered a rather nasty bug with blitz3d. While moving Blitz Window with the api calls, the Mousedown() was stuck to the 1 untill the mouse button is clicked again. This would cause some troubles in my program. So with the help of Google i found this solution: ;SendMessage/Post Message parameters - found on https://dailyoverdose.wordpress.com/2009/10/28/postmessage-and-sendmessage/ ;Wmsg: ; Const KEY_DOWN = $0100 ; Const KEY_UP = $0101 ; Const VM_CHAR = $0102 ; Const SYSKEYDOWN = $0104 ; Const SYSKEYUP = $0105 ; Const SYSCHAR = $0106 ; Const LBUTTONDOWN = $201 ;Left mousebutton down ; Const LBUTTONUP = $202 ;Left mousebutton up ; Const LBUTTONDBLCLK = $203 ;Left mousebutton doubleclick ; Const RBUTTONDOWN = $204 ;Right mousebutton down ; Const RBUTTONUP = $205 ;Right mousebutton up ; Const RBUTTONDBLCLK = $206 ;Right mousebutton doubleclick ;Needed Blitz3d decls additions ; ;user32.decls ; ;.lib "user32.dll" ;api_ReleaseCapture% () : "ReleaseCapture" ;api_SendMessage% (hwnd%, wMsg%, wParam%, lParam%) : "SendMessageA" Global hwnd = SystemProperty("AppHWND") Function movewin(x,y,x1,y1) ;x,y,x1,y1 coordinate from which the window will be moved Local MX=MouseX() Local MY=MouseY() If MouseDown(1) And (MX=>x And MX<=x1) And (MY=>y And MY<=y1) api_ReleaseCapture() api_SendMessage(hwnd, $A1, 2, 0) ;Move window with Mouse api_SendMessage(hwnd, $0202, 0, 0) ;Simulate Left Mouse click , comment this line to see the bug EndIf End Function Repeat movewin(0,0,GraphicsWidth(),30) Cls Locate 0,0 Print MouseDown(1)+" / "+MouseDown(2)+" / "+MouseDown(3) Delay 1 Until KeyDown(1) --v
Sat, 10 Mar 2018, 11:32
Jayenkai	Kewly! Just be sure to stay on top of this kind of thing, in future. Microsoft have a frustrating habit of changing things on an alarmingly frequent basis, and although such "base" things shouldn't change, with the whole Metro-Desktop gubbins, I'm sure they'll somehow manage to break it! -=-=- ''Load, Next List!''

Move Window with api (and prevent sticky mousedown bug)