- procedure ChangeResolution(pWidth, pHeight, pBPP, pFrequency: Word);
- var dmScreenSettings: DevMode;
- begin
- // Fenster vor Vollbild vorbereiten
- ZeroMemory(@dmScreenSettings, SizeOf(dmScreenSettings));
- with dmScreenSettings do begin
- dmSize := SizeOf(dmScreenSettings);
- dmPelsWidth := pWidth; // Breite
- dmPelsHeight := pHeight; // Höhe
- dmBitsPerPel := pBPP; // Farbtiefe
- dmDisplayFrequency := pFrequency; // Frequenz
- dmFields := DM_PELSWIDTH or DM_PELSHEIGHT or DM_BITSPERPEL or DM_DISPLAYFREQUENCY;
- end;
- glViewport(0,0,ScrWidth,ScrHeight);
- End;