Bildschirminformationen

[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

[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

[Stevie63]

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

[Stevie63]

Hallo an alle,

kann jemand das o.g. Phänomen bestätigen? Bräuchte dringend Hilfe!

Viele Grüße

Stevie

[Fluid Byte]

Funktioniert normal, du hast eine falsche Displaygröße eingestellt.

[Stevie63]

Funktioniert normal, du hast eine falsche Displaygröße eingestellt.

Sorry, aber Displaygröße ist 3840*2160.

VG

Stevie

[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

[Fluid Byte]

Mach mal einen Screenshot oder Video, das führt sonst zu nichts.

[Stevie63]

Mach mal einen Screenshot oder Video, das führt sonst zu nichts.

Ich mache ein Video. Melde mich wieder.

VG

Stevie.

[Stevie63]

Unter https://youtu.be/6n0_1b9mZ-w ist ein ganz kurzes Video.

VG

Stevie