A kind of mouse lag...that's not a bug!

Just starting out? Need help? Post your questions and find answers here.
Krix
User
User
Posts: 65
Joined: Fri Mar 11, 2005 6:24 pm
Location: Toronto

A kind of mouse lag...that's not a bug!

Post 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)
// Moved (Kiffi)
Last edited by Krix on Sun May 29, 2022 8:34 am, edited 4 times in total.
User avatar
Demivec
Addict
Addict
Posts: 4086
Joined: Mon Jul 25, 2005 3:51 pm
Location: Utah, USA

Re: Mouse Lag on windowed screen PB v6 beta 8

Post by Demivec »

@Krix: You don't have an adequate event loop for window events.
User avatar
mk-soft
Always Here
Always Here
Posts: 5335
Joined: Fri May 12, 2006 6:51 pm
Location: Germany

Re: Mouse Lag on windowed screen PB v6 beta 8

Post 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)
My Projects ThreadToGUI / OOP-BaseClass / EventDesigner V3
PB v3.30 / v5.75 - OS Mac Mini OSX 10.xx - VM Window Pro / Linux Ubuntu
Downloads on my Webspace / OneDrive
User avatar
thyphoon
Enthusiast
Enthusiast
Posts: 327
Joined: Sat Dec 25, 2004 2:37 pm

Re: Mouse Lag on windowed screen PB v6 beta 8

Post 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)
Krix
User
User
Posts: 65
Joined: Fri Mar 11, 2005 6:24 pm
Location: Toronto

Re: Mouse Lag on windowed screen PB v6 beta 8

Post by Krix »

Thank you for the correction guys! Shouldn't do bug-report around 3am...

:D
User avatar
thyphoon
Enthusiast
Enthusiast
Posts: 327
Joined: Sat Dec 25, 2004 2:37 pm

Re: Mouse Lag on windowed screen PB v6 beta 8

Post 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
🤪
Post Reply