Seite 1 von 3
Bildschirminformationen
Verfasst: 15.06.2017 17:09
von Stevie63
Hallo zusammen,
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
Alle vier Kreise werden an den jeweiligen Eckpunkten meines Displays angezeigt. Wie kann das sein? Habe ich etwas übersehen?
Vielen Dank im voraus!
Stevie
Re: Bildschirminformationen
Verfasst: 15.06.2017 17:33
von man-in-black
Hi,
bist du dir sicher, dass du bei dem UHD fähigen Monitor auch wirklich UHD eingestellt hast?
Dein Test mit der Fenstergröße selbst, wird durch #PB_Window_Maximize ausgehebelt ...
Code: Alles auswählen
OpenWindow(0, 0, 0, dx, dy, "Test", #PB_Window_SystemMenu|#PB_Window_ScreenCentered|#PB_Window_Maximize)
MFG
MIB
Re: Bildschirminformationen
Verfasst: 15.06.2017 17:39
von Stevie63
man-in-black hat geschrieben:Hi,
bist du dir sicher, dass du bei dem UHD fähigen Monitor auch wirklich UHD eingestellt hast?
Dein Test mit der Fenstergröße selbst, wird durch #PB_Window_Maximize ausgehebelt ...
Code: Alles auswählen
OpenWindow(0, 0, 0, dx, dy, "Test", #PB_Window_SystemMenu|#PB_Window_ScreenCentered|#PB_Window_Maximize)
MFG
MIB
Die Auflösung ist definitiv UHD, wenn ich Maximise-Option herausnehme, ändert sich Outputwidth() auf 1550 und OutputHeight() auf 855.
VG
Stevie
Re: Bildschirminformationen
Verfasst: 17.06.2017 10:19
von Stevie63
Hallo an alle,
kann jemand das o.g. Phänomen bestätigen? Bräuchte dringend Hilfe!
Viele Grüße
Stevie
Re: Bildschirminformationen
Verfasst: 17.06.2017 10:40
von Fluid Byte
Funktioniert normal, du hast eine falsche Displaygröße eingestellt.
Re: Bildschirminformationen
Verfasst: 17.06.2017 11:31
von Stevie63
Fluid Byte hat geschrieben:Funktioniert normal, du hast eine falsche Displaygröße eingestellt.
Sorry, aber Displaygröße ist 3840*2160.
VG
Stevie
Re: Bildschirminformationen
Verfasst: 17.06.2017 11:59
von Stevie63
Wenn ich das Gleiche mit der Screen-Umgebung mache, funktioniert alles einwandfrei, d.h. die Kreise werden an den richtigen Positionen angezeigt:
Code: Alles auswählen
EnableExplicit
Define dx.i=3840
Define dy.i=2160
Define event.i
Define flag.i
Define i.i
If InitSprite() <> 0 And InitKeyboard() <> 0
If OpenScreen(dx,dy,32,"Test") <> 0
Repeat
StartDrawing(ScreenOutput())
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))
StopDrawing()
ExamineKeyboard()
FlipBuffers()
Until KeyboardPushed(#PB_Key_Escape)
EndIf
EndIf
VG
Stevie
Re: Bildschirminformationen
Verfasst: 17.06.2017 12:09
von Fluid Byte
Mach mal einen Screenshot oder Video, das führt sonst zu nichts.
Re: Bildschirminformationen
Verfasst: 17.06.2017 12:25
von Stevie63
Fluid Byte hat geschrieben:Mach mal einen Screenshot oder Video, das führt sonst zu nichts.
Ich mache ein Video. Melde mich wieder.
VG
Stevie.
Re: Bildschirminformationen
Verfasst: 17.06.2017 13:01
von Stevie63
Unter
https://youtu.be/6n0_1b9mZ-w ist ein ganz kurzes Video.
VG
Stevie