equal
deleted
inserted
replaced
571 FPS:= Frames; |
571 FPS:= Frames; |
572 Frames:= 0; |
572 Frames:= 0; |
573 CountTicks:= 0; |
573 CountTicks:= 0; |
574 s:= inttostr(FPS) + ' fps'; |
574 s:= inttostr(FPS) + ' fps'; |
575 if fpsTexture <> nil then FreeTexture(fpsTexture); |
575 if fpsTexture <> nil then FreeTexture(fpsTexture); |
576 tmpSurface:= TTF_RenderUTF8_Blended(Fontz[fnt16].Handle, Str2PChar(s), $FFFFFF); |
576 tmpSurface:= TTF_RenderUTF8_Blended(Fontz[fnt16].Handle, Str2PChar(s), cWhiteColor); |
|
577 tmpSurface:= doSurfaceConversion(tmpSurface); |
577 fpsTexture:= Surface2Tex(tmpSurface, false); |
578 fpsTexture:= Surface2Tex(tmpSurface, false); |
578 SDL_FreeSurface(tmpSurface) |
579 SDL_FreeSurface(tmpSurface) |
579 end; |
580 end; |
580 if fpsTexture <> nil then |
581 if fpsTexture <> nil then |
581 DrawTexture((cScreenWidth shr 1) - 50, 10, fpsTexture); |
582 DrawTexture((cScreenWidth shr 1) - 50, 10, fpsTexture); |
586 begin |
587 begin |
587 SoundTimerTicks:= 0; |
588 SoundTimerTicks:= 0; |
588 if cVolumeDelta <> 0 then |
589 if cVolumeDelta <> 0 then |
589 begin |
590 begin |
590 str(ChangeVolume(cVolumeDelta), s); |
591 str(ChangeVolume(cVolumeDelta), s); |
591 AddCaption(Format(trmsg[sidVolume], s), $FFFFFF, capgrpVolume) |
592 AddCaption(Format(trmsg[sidVolume], s), cWhiteColor, capgrpVolume) |
592 end |
593 end |
593 end; |
594 end; |
594 |
595 |
595 if GameState = gsConfirm then DrawCentered(0, cScreenHeight div 2, ConfirmTexture); |
596 if GameState = gsConfirm then DrawCentered(0, cScreenHeight div 2, ConfirmTexture); |
596 |
597 |