Page 1 of 1
A kind of mouse lag...that's not a bug!
Posted: Sat May 28, 2022 7:54 am
by Krix
PureBasic v6 beta 8 mouse lags using windowed screen.
Code: Select all
InitKeyboard()
InitMouse()
InitSprite()
OpenWindow(0,0,0,640,480,"MouseOverWindowedScreen",#PB_Window_WindowCentered|#PB_Window_SizeGadget)
OpenWindowedScreen(WindowID(0),0,0,640,480,1,0,0,#PB_Screen_WaitSynchronization)
CreateSprite(1,16,16)
Repeat
WindowEvent()
ExamineMouse()
ExamineKeyboard()
ClearScreen(RGB(255,255,255))
DisplaySprite(1,MouseX(),MouseY())
FlipBuffers()
Until KeyboardPushed(#PB_Key_Escape)
Re: Mouse Lag on windowed screen PB v6 beta 8
Posted: Sat May 28, 2022 2:12 pm
by Demivec
@Krix: You don't have an adequate event loop for window events.
Re: Mouse Lag on windowed screen PB v6 beta 8
Posted: Sat May 28, 2022 3:29 pm
by mk-soft
This work on Windows, macOS, Linux
Code: Select all
InitKeyboard()
;InitMouse()
InitSprite()
OpenWindow(0,50,50,640,480,"MouseOverWindowedScreen",#PB_Window_WindowCentered|#PB_Window_SystemMenu)
SetWindowColor(0, #Blue)
OpenWindowedScreen(WindowID(0),10,10,620,460,0,0,0,#PB_Screen_WaitSynchronization)
CreateSprite(1,16,16)
StartDrawing(SpriteOutput(1))
Circle(8,8,8,#Red)
StopDrawing()
Repeat
Repeat
Select WindowEvent()
Case 0
Break
Case #PB_Event_CloseWindow
Break 2
EndSelect
ForEver
;ExamineMouse()
ExamineKeyboard()
ClearScreen(RGB(255,255,255))
;DisplaySprite(1,MouseX(),MouseY())
DisplaySprite(1,WindowMouseX(0) - 18, WindowMouseY(0) - 18)
FlipBuffers()
; If KeyboardReleased(#PB_Key_F10)
; If Not rm
; rm = 1
; ReleaseMouse(#True)
; Else
; rm = 0
; ReleaseMouse(#False)
; EndIf
; EndIf
Until KeyboardPushed(#PB_Key_Escape)
Re: Mouse Lag on windowed screen PB v6 beta 8
Posted: Sat May 28, 2022 4:15 pm
by thyphoon
You must to do a loop on windowEvent
Code: Select all
InitKeyboard()
InitMouse()
InitSprite()
OpenWindow(0,0,0,640,480,"MouseOverWindowedScreen",#PB_Window_WindowCentered|#PB_Window_SizeGadget)
OpenWindowedScreen(WindowID(0),0,0,640,480,1,0,0,#PB_Screen_WaitSynchronization)
CreateSprite(1,16,16)
Repeat
Repeat
Until WindowEvent()=0
ExamineMouse()
ExamineKeyboard()
ClearScreen(RGB(255,255,255))
DisplaySprite(1,MouseX(),MouseY())
FlipBuffers()
Until KeyboardPushed(#PB_Key_Escape)
Re: Mouse Lag on windowed screen PB v6 beta 8
Posted: Sat May 28, 2022 7:11 pm
by Krix
Thank you for the correction guys! Shouldn't do bug-report around 3am...
Re: Mouse Lag on windowed screen PB v6 beta 8
Posted: Sat May 28, 2022 7:16 pm
by thyphoon
But i have a problem with the mouse and High DPI / Multi monitor and PB 6.00 Beta 8.
there may still be a bug
if somone can confirm or not :
https://www.purebasic.fr/english/viewtopic.php?t=79228
