Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!Code-Beispiel
Screenmodus einstellen
| Lizenz: | Erster Autor: | Letzte Bearbeitung: |
| k. A. |  Eternal_Pain |  15.06.2007 |
Quelle:fb@rchive
Autor:Volta
Wie stelle ich den max. Fenster- VollBild - Screenmodus automatisch ein.
Dim As Integer WinXMode, VollBild, WinBreite, WinHoehe, FarbTiefe
'Unter Windows kann vor dem Aufruf der Sreen(Anweisung) der Desktopmode ermittelt werden
ScreenInfo WinBreite, WinHoehe, FarbTiefe
'Der Desktopmode entspricht im Allgemeinen dem größten möglichen Screenmodus
'Die größte Fensterdarstellung ist dann einen Modus tiefer
WinXMode = 15 'sollte immer gehen
VollBild = 0 'kein Vollbild, sonst 1 setzen
If WinBreite >= 512 Then WinXMode = 16 '512x384
If WinBreite >= 640 Then WinXMode = 17 '640x400
If WinHoehe >= 480 Then WinXMode = 18 '640x480
If WinBreite >= 800 Then WinXMode = 19 '800x600
If WinBreite >= 1024 Then WinXMode = 20 '1024x768
If VollBild Then
Screen WinXMode +1, FarbTiefe,,Vollbild
Else
Screen WinXMode, FarbTiefe,,Vollbild
End If
'Wurde der Screenmodus richtig initialisiert?
If ScreenPtr = 0 Then
'Es ist fraglich ob man das dann sieht?
Print "Programmabbruch beim initialisieren des Bildschirmmodus!"
'für diese Meldung muss 'windows.bi' included werden
'MessageBox "Programmabbruch beim initialisieren des Bildschirmmodus!","Fehler", MB_ICONERROR
End 1
End if
'Werte des aktuellen eingestellten Modus auslesen
ScreenInfo WinBreite, WinHoehe, FarbTiefe
'Hier weiter im Programm.....
? WinBreite & " x " & WinHoehe & " , " & FarbTiefe &"bpp"
Sleep
End
| Zusätzliche Informationen und Funktionen | |||||||
|---|---|---|---|---|---|---|---|
|
|
||||||
Bearbeiten
Versionen