hedgewars/uWorld.pas
changeset 13156 26f0c3669b4e
parent 13140 e330feceb662
child 13174 061d55939e47
equal deleted inserted replaced
13155:25de976a7b9a 13156:26f0c3669b4e
  1646         if CountTicks >= 1000 then
  1646         if CountTicks >= 1000 then
  1647             begin
  1647             begin
  1648             FPS:= Frames;
  1648             FPS:= Frames;
  1649             Frames:= 0;
  1649             Frames:= 0;
  1650             CountTicks:= 0;
  1650             CountTicks:= 0;
  1651             s:= inttostr(FPS) + ' fps';
  1651             s:= Format(trmsg[sidFPS], inttostr(FPS));
  1652             tmpSurface:= TTF_RenderUTF8_Blended(Fontz[fnt16].Handle, Str2PChar(s), cWhiteColorChannels);
  1652             tmpSurface:= TTF_RenderUTF8_Blended(Fontz[fnt16].Handle, Str2PChar(s), cWhiteColorChannels);
  1653             tmpSurface:= doSurfaceConversion(tmpSurface);
  1653             tmpSurface:= doSurfaceConversion(tmpSurface);
  1654             FreeAndNilTexture(fpsTexture);
  1654             FreeAndNilTexture(fpsTexture);
  1655             fpsTexture:= Surface2Tex(tmpSurface, false);
  1655             fpsTexture:= Surface2Tex(tmpSurface, false);
  1656             SDL_FreeSurface(tmpSurface)
  1656             SDL_FreeSurface(tmpSurface)