pour ceux qui ont une resolution > a 1920*1080, pouvez vous executer ce code ?
Merci
(les 2 questions apparaitront a l'ecran)
Code : Tout sélectionner
;;;;;; un test de resolution ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;é
InitSprite()
InitMouse()
InitKeyboard()
win=OpenWindow(#PB_Any, 0, 0, 0, 0, "resolution test", #PB_Window_Maximize | #PB_Window_BorderLess )
scr_w=WindowWidth(win)
scr_h=WindowHeight(win)
OpenWindowedScreen (WindowID(win),0 , 0, scr_w, scr_h, 0, 0, 0, #PB_Screen_SmartSynchronization)
ShowCursor_(0) ; CRISOT - On cache le curseur.
ShowCursor_(0) ; CRISOT - On cache le curseur.
If scr_w>=1920
scr_w2=(scr_w-1920)/2
Else
scr_w2=0
EndIf
If scr_h>=1080
scr_h2=(scr_h-1080)/2
Else
scr_h2=0
EndIf
LoadFont(1, "Times New Roman", 30)
;;;;;;;;;;
StartDrawing(ScreenOutput()) : DrawingMode(#PB_2DDrawing_Transparent)
Circle(10,10,10,RGB(0,255,0))
StopDrawing()
GrabSprite(0,0,0,20,20)
Repeat
mx=WindowMouseX(win)
my=WindowMouseY(win)
While WindowEvent() : Wend
ClearScreen(RGB(44,44,44))
StartDrawing(ScreenOutput()) : DrawingMode(#PB_2DDrawing_Transparent)
DrawingFont(FontID(1))
DrawText(scr_w2+21,scr_h-scr_h2-58,"bottom left",RGB(255,55,55))
DrawingFont(FontID(1))
DrawText(scr_w2+20,scr_h2+16,"Top left",RGB(255,55,55))
DrawText(250,350,"Voyez vous les textes en haut gauche et en bas gauche ?",RGB(255,255,255))
DrawText(250,400,"Do you see the texts at the top left and bottom left ?",RGB(255,255,255))
DrawText(250,550,"Y a t'il un bug graphique quand la souris est hors ecran ?",RGB(255,255,0))
DrawText(250,600,"Is there a graphical bug when the mouse is offscreen ?",RGB(255,255,0))
StopDrawing()
DisplayTransparentSprite(0,mx,my)
FlipBuffers()
ExamineKeyboard()
Delay(1)
Until KeyboardPushed(#PB_Key_Escape)
End
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;