auf meinem NB mit UHD (3840*2160) habe ich folgenden Code getestet:
Code: Alles auswählen
EnableExplicit
Define dx.i=3830
Define dy.i=2150
Define event.i
Define flag.i
If OpenWindow(0, 0, 0, dx, dy, "Test", #PB_Window_SystemMenu|#PB_Window_ScreenCentered|#PB_Window_Maximize)
SetActiveWindow(0)
SetWindowColor(0,RGB(0,0,0))
flag=0
StartDrawing(WindowOutput(0))
Debug OutputHeight()
Debug OutputWidth()
Repeat
event=WindowEvent()
Circle(0,0, 50,RGB(255, 0, 0))
Circle(1536,841, 50,RGB(255, 255, 0))
Circle(1536,0, 50,RGB(255, 0, 255))
Circle(0,841, 50,RGB(255, 255, 255))
Until event=#PB_Event_CloseWindow
StopDrawing()
EndIf
Vielen Dank im voraus!
Stevie