hedgewars/uWorld.pas
changeset 2290 bf87ca44782e
parent 2288 c01b8258918d
child 2292 87af4ad0ec98
equal deleted inserted replaced
2289:cb850ba733bd 2290:bf87ca44782e
   428       Frames:= 0;
   428       Frames:= 0;
   429       CountTicks:= 0;
   429       CountTicks:= 0;
   430       s:= inttostr(FPS) + ' fps';
   430       s:= inttostr(FPS) + ' fps';
   431       if fpsTexture <> nil then FreeTexture(fpsTexture);
   431       if fpsTexture <> nil then FreeTexture(fpsTexture);
   432       tmpSurface:= TTF_RenderUTF8_Blended(Fontz[fnt16].Handle, Str2PChar(s), $FFFFFF);
   432       tmpSurface:= TTF_RenderUTF8_Blended(Fontz[fnt16].Handle, Str2PChar(s), $FFFFFF);
   433       fpsTexture:= Surface2Tex(tmpSurface);
   433       fpsTexture:= Surface2Tex(tmpSurface, false);
   434       SDL_FreeSurface(tmpSurface)
   434       SDL_FreeSurface(tmpSurface)
   435       end;
   435       end;
   436    if fpsTexture <> nil then
   436    if fpsTexture <> nil then
   437       DrawTexture(cScreenWidth div 2 - 50, 10, fpsTexture);
   437       DrawTexture(cScreenWidth div 2 - 50, 10, fpsTexture);
   438    end;
   438    end;