hedgewars/uWorld.pas
changeset 13962 9be2926890cd
parent 13877 8c702a4839ec
child 14003 58e54e737279
equal deleted inserted replaced
13961:4355b8c4099e 13962:9be2926890cd
  1691             begin
  1691             begin
  1692             FPS:= Frames;
  1692             FPS:= Frames;
  1693             Frames:= 0;
  1693             Frames:= 0;
  1694             CountTicks:= 0;
  1694             CountTicks:= 0;
  1695             s:= Format(shortstring(trmsg[sidFPS]), inttostr(FPS));
  1695             s:= Format(shortstring(trmsg[sidFPS]), inttostr(FPS));
  1696             tmpSurface:= TTF_RenderUTF8_Blended(Fontz[fnt16].Handle, Str2PChar(s), cWhiteColorChannels);
  1696             tmpSurface:= TTF_RenderUTF8_Blended(Fontz[CheckCJKFont(trmsg[sidFPS],fnt16)].Handle, Str2PChar(s), cWhiteColorChannels);
  1697             tmpSurface:= doSurfaceConversion(tmpSurface);
  1697             tmpSurface:= doSurfaceConversion(tmpSurface);
  1698             FreeAndNilTexture(fpsTexture);
  1698             FreeAndNilTexture(fpsTexture);
  1699             fpsTexture:= Surface2Tex(tmpSurface, false);
  1699             fpsTexture:= Surface2Tex(tmpSurface, false);
  1700             SDL_FreeSurface(tmpSurface)
  1700             SDL_FreeSurface(tmpSurface)
  1701             end;
  1701             end;