Bind mouse to window? - GameCreators Forum

Author

Message

TheComet

18

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 15th Dec 2012 17:24

Link

Is there any way to bind the mouse to the window, so it can't leave the boundaries of it?

Thanks,

TheComet

Back to top

Profile PM Email Website

Chris Tate

DBPro Master

17

Years of Service

User Offline

Joined: 29th Aug 2008

Location: London, England

Posted: 15th Dec 2012 17:44

Link

Position Mouse Clamp( MouseX(), 0, Screen Width() ), Clamp( MouseY(), Screen Height() ) should work I think. You may need the desktop mouse position, I can't remember.

Back to top

Profile PM Email Website

Sergey K

22

Years of Service

User Offline

Joined: 4th Jan 2004

Location:

Posted: 15th Dec 2012 17:46

Link

not in an official way.
but u can check if your mouse is out of your window by checking the X/Y position of the mouse by desktop by using user32.dll dll..

lets say you can get a mouse position of the desktop:

+ Code Snippet

function GetMousePos()
   memPtr = make memory(8)
   load dll "user32.dll", 1
   call dll 1, "GetCursorPos", memPtr
   delete dll 1
   g_MouseX = *memPtr
   memPtr = memPtr + 4
   g_MouseY = *memPtr
   delete memory memPtr
endfunction

now, all you need to do is in your loop make a check if its out your window and position mouse back to the frame

Advanced Updater for your games!

Back to top

Profile PM Website

Sergey K

22

Years of Service

User Offline

Joined: 4th Jan 2004

Location:

Posted: 15th Dec 2012 17:56

Link

here is a quick example i made for you..

global g_MouseX as integer
global g_MouseY as integer

type rect_t
  hwnd as integer
  left as integer
  top as integer
  right as integer
  bottom as integer
endtype
global rect as rect_t

GetWinPos()

do
	GetMousePos()
	cls
	text 0,0,"Mouse: "+str$(g_MouseX)+" / "+str$(g_MouseY)
	
	//setting border position accordig to the desktop mouse position..
	if g_mousex < rect.left then position mouse 0,mousey()
	if g_mousex > rect.right then position mouse screen width()-1,mousey()
	
	if g_mousey < rect.top then position mouse mousex(),0
	if g_mousey > rect.bottom then position mouse mousex(),screen height()-1
loop
function GetMousePos()
   memPtr = make memory(8)
   load dll "user32.dll", 1
   call dll 1, "GetCursorPos", memPtr
   delete dll 1
   g_MouseX = *memPtr
   memPtr = memPtr + 4
   g_MouseY = *memPtr
   delete memory memPtr
endfunction

function GetWinPos()  
	load dll "user32.dll",1
	rect.hwnd = call dll(1,"GetActiveWindow")
	make memblock 1,16
  call dll 1,"GetWindowRect",rect.hwnd,get memblock ptr(1)
  rect.left = memblock word(1,0)
  rect.top = memblock word(1,4)
  rect.right = memblock word(1,8)
  rect.bottom = memblock word(1,12) 
  delete dll 1
endfunction

+ Code Snippet

global g_MouseX as integer
global g_MouseY as integer

type rect_t
  hwnd as integer
  left as integer
  top as integer
  right as integer
  bottom as integer
endtype
global rect as rect_t

GetWinPos()

do
	GetMousePos()
	cls
	text 0,0,"Mouse: "+str$(g_MouseX)+" / "+str$(g_MouseY)
	
	//setting border position accordig to the desktop mouse position..
	if g_mousex < rect.left then position mouse 0,mousey()
	if g_mousex > rect.right then position mouse screen width()-1,mousey()
	
	if g_mousey < rect.top then position mouse mousex(),0
	if g_mousey > rect.bottom then position mouse mousex(),screen height()-1
loop
function GetMousePos()
   memPtr = make memory(8)
   load dll "user32.dll", 1
   call dll 1, "GetCursorPos", memPtr
   delete dll 1
   g_MouseX = *memPtr
   memPtr = memPtr + 4
   g_MouseY = *memPtr
   delete memory memPtr
endfunction

function GetWinPos()  
	load dll "user32.dll",1
	rect.hwnd = call dll(1,"GetActiveWindow")
	make memblock 1,16
  call dll 1,"GetWindowRect",rect.hwnd,get memblock ptr(1)
  rect.left = memblock word(1,0)
  rect.top = memblock word(1,4)
  rect.right = memblock word(1,8)
  rect.bottom = memblock word(1,12) 
  delete dll 1
endfunction

Advanced Updater for your games!

Back to top

Profile PM Website

WickedX

17

Years of Service

User Offline

Joined: 8th Feb 2009

Location: A Mile High

Posted: 15th Dec 2012 21:24 Edited at: 15th Dec 2012 21:31

Link

I came up with this solution, using the User32 API function; ClipCursor.

+ Code Snippet

#constant USER32 1

type t_point
   x as integer
   y as integer
endtype

type t_rect
   left as integer
   top as integer
   right as integer
   bottom as integer
endtype

dim upperleft(0) as t_point
dim client(0) as t_rect

load dll "user32.dll", USER32

hWnd = call dll(USER32, "GetActiveWindow")
call dll USER32, "GetClientRect", hWnd, client()
upperleft(0).x = client(0).left
upperleft(0).y = client(0).top
call dll USER32, "ClientToScreen", hWnd, upperleft()
call dll USER32, "OffsetRect", client(), upperleft(0).x, upperleft(0).y
call dll USER32, "ClipCursor", client()

wait key

call dll USER32, "ClipCursor", 0
delete dll USER32

Typed this in on a iPhone, so I hope there are no errors.

Back to top

Profile PM Email

mistsnake

16

Years of Service

User Offline

Joined: 24th Apr 2010

Location: Inside the matrix

Posted: 27th Dec 2012 15:32

Link

stopping mouse from leaving window... are you trying to bug whoever uses what you writing - it breaks the whole principle of multitasking, to move between multiple tasks
well its your choice but i can tell you the very few apps i've used that have done that bugged me to hell, be sure to at least provide a easy switch off so mouse can leave you app without closing it down

Back to top

Profile PM

TheComet

18

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 27th Dec 2012 16:23

Link

Quote: "well its your choice but i can tell you the very few apps i've used that have done that bugged me to hell, be sure to at least provide a easy switch off so mouse can leave you app without closing it down"

When playing my RTS game on dual monitors, the mouse will leave the game screen and move over onto the other monitor. Since camera navigation is controlled by moving your mouse to the edge of the screen, it can get quite annoying when you overshoot the app and the mouse leaves the window. That's the reason for it.

I still haven't been able to try this, Christmas and all. I'll let you know as soon as I test it though!

TheComet

Official PonyCraft blog : http://blankflankstudios.blogspot.ch/

Back to top

Profile PM Email Website

TheComet

18

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 29th Dec 2012 17:19 Edited at: 29th Dec 2012 17:24

Link

@ WickedX

Your solution is the most elegant, thanks! There's only one problem now. If I alt-tab away from the game and back, it doesn't remain clipped anymore. Is there a way to detect if the user has unfocused the window?

[EDIT] screen invalid()

TheComet

Official PonyCraft blog : http://blankflankstudios.blogspot.ch/

Back to top

Profile PM Email Website

GreenDixy

17

Years of Service

User Offline

Joined: 24th Jul 2008

Location: Toronto

Posted: 29th Dec 2012 18:34

Link

Sent you A email with one of my codes i use for my mouse setup.

"Tittle: Mouse Lock"

======================================
My software never has bugs. It just develops random features.

Back to top

Profile PM Email

WickedX

17

Years of Service

User Offline

Joined: 8th Feb 2009

Location: A Mile High

Posted: 29th Dec 2012 22:29 Edited at: 29th Dec 2012 22:34

Link

On my Windows XP system the cursor remains clipped after alt-tabbing. I put this code after the sync command, it will free the cursor when you alt-tab and clip it again when the window regains focus.

+ Code Snippet

if hWnd <> call dll(USER32, "GetActiveWindow") and lostfocus = 0
   lostfocus = 1
   call dll USER32, "ClipCursor", 0
endif
if hWnd = call dll( USER32, "GetActiveWindow") and lostfocus = 1
   lostfocus = 0
   call dll USER32, "ClipCursor", client()
endif

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Bind mouse to window?