equal
deleted
inserted
replaced
623 {$ENDIF} |
623 {$ENDIF} |
624 SDL_FreeSurface(SDLPrimSurface); |
624 SDL_FreeSurface(SDLPrimSurface); |
625 end; |
625 end; |
626 |
626 |
627 {$IFDEF IPHONEOS} |
627 {$IFDEF IPHONEOS} |
628 //remove the topbar from iPhone |
628 //remove the topbar from the iPhone |
629 flags:= flags or SDL_NOFRAME; |
629 flags:= flags or SDL_NOFRAME; |
630 {$ENDIF} |
630 {$ENDIF} |
631 |
631 |
632 SDLPrimSurface:= SDL_SetVideoMode(cScreenWidth, cScreenHeight, cBits, flags); |
632 SDLPrimSurface:= SDL_SetVideoMode(cScreenWidth, cScreenHeight, cBits, flags); |
633 SDLTry(SDLPrimSurface <> nil, true); |
633 SDLTry(SDLPrimSurface <> nil, true); |
638 SetupOpenGL(); |
638 SetupOpenGL(); |
639 |
639 |
640 {$IFDEF DEBUGFILE} |
640 {$IFDEF DEBUGFILE} |
641 AddFileLog('SDL video driver: ' + string(SDL_VideoDriverName(buf, sizeof(buf)))); |
641 AddFileLog('SDL video driver: ' + string(SDL_VideoDriverName(buf, sizeof(buf)))); |
642 {$ENDIF} |
642 {$ENDIF} |
643 PixelFormat:=@convFormat// SDLPrimSurface^.format |
643 PixelFormat:= SDLPrimSurface^.format |
644 end; |
644 end; |
645 |
645 |
646 procedure chVol_p(var s: shortstring); |
646 procedure chVol_p(var s: shortstring); |
647 begin |
647 begin |
648 inc(cVolumeDelta, 3) |
648 inc(cVolumeDelta, 3) |