- // switch to fullscreen if needed
- if FullScreen and (Parent=0) then begin
- ZeroMemory( @dmScreenSettings, sizeof( DEVMODE ));
- With dmScreenSettings do begin
- dmSize := sizeof( DEVMODE );
- dmPelsWidth := Width; // Width
- dmPelsHeight := Height; // Height
- dmFields := DM_PELSWIDTH or DM_PELSHEIGHT; // Color Depth
- end;
- ChangeDisplaySettings(dmScreenSettings, CDS_FULLSCREEN); // Switch To Fullscreen Mode
- end;