hedgewars/uWorld.pas
changeset 2665 50b4e544c163
parent 2630 079ef82eac75
child 2670 1b327b7515ed
equal deleted inserted replaced
2664:949c189ba568 2665:50b4e544c163
   573       FPS:= Frames;
   573       FPS:= Frames;
   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), cWhiteColor);
   578       tmpSurface:= TTF_RenderUTF8_Blended(Fontz[fnt16].Handle, Str2PChar(s), cWhiteColorChannels);
   579 	tmpSurface:= doSurfaceConversion(tmpSurface);
       
   580       fpsTexture:= Surface2Tex(tmpSurface, false);
   579       fpsTexture:= Surface2Tex(tmpSurface, false);
   581       SDL_FreeSurface(tmpSurface)
   580       SDL_FreeSurface(tmpSurface)
   582       end;
   581       end;
   583    if fpsTexture <> nil then
   582    if fpsTexture <> nil then
   584       DrawTexture((cScreenWidth shr 1) - 50, 10, fpsTexture);
   583       DrawTexture((cScreenWidth shr 1) - 50, 10, fpsTexture);