Seite 1 von 1
Auflösung rausfinden
Verfasst: 06.04.2005 16:08
von zigapeda
Hallo
hab schon in der PB hilfe nachgeschaut aber nix gefunden. Gibt es eine Vordefinierte Variable für Bildschirmbreite und Bildschirmhöhe (Auflösung)?
Gibt es eine Tabelle, wo die Vordefinierten Variablen aufgelistet werden?
[Edit]Vieleicht auch noch die Farbtiefe?[/Edit]
Verfasst: 06.04.2005 16:13
von 125
Code: Alles auswählen
x=GetSystemMetrics_(#SM_CXSCREEN)
x2=GetSystemMetrics_(#SM_CYSCREEN)
MessageRequester("Auflösung",Str(x)+"x"+Str(x2))
Verfasst: 06.04.2005 16:14
von zigapeda
nur so aus neugier gibts das auch ohne WinAPI? Also um das Progg auf Linux oder MacOS zu portieren?
Verfasst: 06.04.2005 16:19
von 125
hab gerade in der Doku geguckt geht auch ohne API(wusst ich gar net):
Code: Alles auswählen
ExamineDesktops()
MessageRequester("Display Information", "Current resolution = "+Str(DesktopWidth(0))+"x"+Str(DesktopHeight(0))+"x"+Str(DesktopDepth(0)))
Verfasst: 06.04.2005 16:23
von zigapeda
thx hat funktioniert.
[Edit]Folgendes Problem:
Code: Alles auswählen
InitSprite()
InitKeyboard()
ExamineDesktops()
OpenScreen(DesktopWidth(0),DesktopWidth(0),DesktopDepth(0),"")
Repeat
ExamineKeyboard()
Until KeyboardPushed(#pb_key_escape)
Der Screen müsste doch geöffnet bleiben oder?[/Edit]
Verfasst: 06.04.2005 17:43
von MLK
ein schönes beispiel, warum "all diese If's" besser sind
Code: Alles auswählen
InitSprite()
InitKeyboard()
ExamineDesktops()
If OpenScreen(DesktopWidth(0),DesktopWidth(0),DesktopDepth(0),"") = 0 : Debug "oh, kein screen" : EndIf
Repeat
ExamineKeyboard()
Until KeyboardPushed(#PB_Key_Escape)
du hast zwei mal "DesktopWidth(0)", auch bei der höhe.
Verfasst: 06.04.2005 21:26
von zigapeda
oh hab ich garnicht gemerkt. thx