hedgewars/uWorld.pas
changeset 2670 1b327b7515ed
parent 2665 50b4e544c163
child 2671 7e0f88013fe8
equal deleted inserted replaced
2669:4eec706e86b0 2670:1b327b7515ed
   574       Frames:= 0;
   574       Frames:= 0;
   575       CountTicks:= 0;
   575       CountTicks:= 0;
   576       s:= inttostr(FPS) + ' fps';
   576       s:= inttostr(FPS) + ' fps';
   577       if fpsTexture <> nil then FreeTexture(fpsTexture);
   577       if fpsTexture <> nil then FreeTexture(fpsTexture);
   578       tmpSurface:= TTF_RenderUTF8_Blended(Fontz[fnt16].Handle, Str2PChar(s), cWhiteColorChannels);
   578       tmpSurface:= TTF_RenderUTF8_Blended(Fontz[fnt16].Handle, Str2PChar(s), cWhiteColorChannels);
       
   579       tmpSurface:= doSurfaceConversion(tmpSurface);
   579       fpsTexture:= Surface2Tex(tmpSurface, false);
   580       fpsTexture:= Surface2Tex(tmpSurface, false);
   580       SDL_FreeSurface(tmpSurface)
   581       SDL_FreeSurface(tmpSurface)
   581       end;
   582       end;
   582    if fpsTexture <> nil then
   583    if fpsTexture <> nil then
   583       DrawTexture((cScreenWidth shr 1) - 50, 10, fpsTexture);
   584       DrawTexture((cScreenWidth shr 1) - 50, 10, fpsTexture);