381 end |
381 end |
382 end; |
382 end; |
383 |
383 |
384 procedure chFullScr(var s: shortstring); |
384 procedure chFullScr(var s: shortstring); |
385 var flags: Longword; |
385 var flags: Longword; |
|
386 {$IFDEF DEBUGFILE} |
|
387 buf: array[byte] of char; |
|
388 {$ENDIF} |
386 begin |
389 begin |
387 if Length(s) = 0 then cFullScreen:= not cFullScreen |
390 if Length(s) = 0 then cFullScreen:= not cFullScreen |
388 else cFullScreen:= s = '1'; |
391 else cFullScreen:= s = '1'; |
389 |
392 |
390 flags:= SDL_HWSURFACE or SDL_DOUBLEBUF or SDL_HWACCEL; |
393 flags:= SDL_HWSURFACE or SDL_DOUBLEBUF or SDL_HWACCEL; |
391 if cFullScreen then flags:= flags or SDL_FULLSCREEN |
394 if cFullScreen then flags:= flags or SDL_FULLSCREEN |
392 else SDL_WM_SetCaption('Hedgewars', nil); |
395 else SDL_WM_SetCaption('Hedgewars', nil); |
393 SDL_FreeSurface(SDLPrimSurface); |
396 SDL_FreeSurface(SDLPrimSurface); |
394 SDLPrimSurface:= SDL_SetVideoMode(cScreenWidth, cScreenHeight, cBits, flags); |
397 SDLPrimSurface:= SDL_SetVideoMode(cScreenWidth, cScreenHeight, cBits, flags); |
|
398 |
|
399 {$IFDEF DEBUGFILE} |
|
400 AddFileLog('SDL video driver: ' + string(SDL_VideoDriverName(buf, sizeof(buf)))); |
|
401 {$ENDIF} |
395 TryDo(SDLPrimSurface <> nil, errmsgCreateSurface, true); |
402 TryDo(SDLPrimSurface <> nil, errmsgCreateSurface, true); |
396 PixelFormat:= SDLPrimSurface.format; |
403 PixelFormat:= SDLPrimSurface.format; |
397 SDL_ShowCursor(0) |
404 SDL_ShowCursor(0) |
398 end; |
405 end; |
399 |
406 |