Suis je le seul à avoir des ralentissements avec cette fonction ?
Je m'explique : quand je bouge la souris doucement pas de problème, mais lorsque je la bouge normalement ça saccade surtout en diagonale.
Même sur le mouse exemple de Pure basic :
Code : Tout sélectionner
; ------------------------------------------------------------
;
; PureBasic - Mouse example file
;
; (c) 2001 - Fantaisie Software
;
; ------------------------------------------------------------
;
If InitMouse() = 0 Or InitSprite() = 0 Or InitKeyboard() = 0
MessageRequester("Error", "Can't open DirectX 7", 0)
End
EndIf
;
;-------- MessageReq and OpenScreen --------
;
MessageRequester("Information", "This will test the fast mouse access..."+Chr(10)+"Press any mouse button to quit!", 0)
If OpenScreen(800, 600, 16, "Mouse") = 0
MessageRequester("Error", "Impossible to open a 800*600 16 bit screen",0)
End
EndIf
;
;-------- Init and Load Stuff --------
;
x = 100
y = 100
LoadSprite(0, "Data/PureBasic.bmp", 0) ; Load nice small Logo
;
;-------- MainLoop --------
;
Repeat
FlipBuffers() ; Flip for DoubleBuffering
ClearScreen(RGB(0,0,0)) ; CleanScreen, black
ExamineKeyboard()
ExamineMouse()
x = MouseX() ; Returns actual x pos of our mouse
y = MouseY() ; Returns actual y pos of our mouse
x+MouseWheel()*10
If MouseButton(#PB_MouseButton_Middle)
MouseLocate(400, 300)
EndIf
DisplaySprite(0, x-SpriteWidth(0)/2, y-SpriteHeight(0)/2)
Until MouseButton(#PB_MouseButton_Left) Or MouseButton(#PB_MouseButton_Right)
End