- //Wechselt in den Vollbildmodus
- //@Width: Breite in Pixeln;
- //@Height: Höhe in Pixeln;
- //@ColorDepth: Farbtiefe;
- //@Freq: Bildwiederholfrequenz;
- function gluToggleFullScreen(Width, Height, ColorDepth, Freq: Integer): Boolean;
- var dmScreenSettings : DevMode;
- begin
- result := True;
- ZeroMemory(@dmScreenSettings, SizeOf(dmScreenSettings));
- with dmScreenSettings do begin
- dmSize := SizeOf(dmScreenSettings);
- dmPelsWidth := Width; // Breite
- dmPelsHeight := Height; // Höhe
- dmBitsPerPel := ColorDepth; // Farbtiefe
- dmDisplayFrequency := Freq; // Bildwiederholfrequenz
- dmFields := DM_PELSWIDTH or DM_PELSHEIGHT or DM_BITSPERPEL or DM_DISPLAYFREQUENCY;
- end;
- if (ChangeDisplaySettings(dmScreenSettings, CDS_FULLSCREEN) = DISP_CHANGE_FAILED) then begin
- result := false;
- end;
- end;