hedgewars/uWorld.pas
changeset 2002 37c71f5983c9
parent 1915 c357f5b55320
child 2047 805f7b62cff6
equal deleted inserted replaced
2001:d909152bdc21 2002:37c71f5983c9
   415       FPS:= Frames;
   415       FPS:= Frames;
   416       Frames:= 0;
   416       Frames:= 0;
   417       CountTicks:= 0;
   417       CountTicks:= 0;
   418       s:= inttostr(FPS) + ' fps';
   418       s:= inttostr(FPS) + ' fps';
   419       if fpsTexture <> nil then FreeTexture(fpsTexture);
   419       if fpsTexture <> nil then FreeTexture(fpsTexture);
       
   420 {$IFNDEF IPHONE}
   420       tmpSurface:= TTF_RenderUTF8_Blended(Fontz[fnt16].Handle, Str2PChar(s), $FFFFFF);
   421       tmpSurface:= TTF_RenderUTF8_Blended(Fontz[fnt16].Handle, Str2PChar(s), $FFFFFF);
       
   422 {$ENDIF}
   421       fpsTexture:= Surface2Tex(tmpSurface);
   423       fpsTexture:= Surface2Tex(tmpSurface);
   422       SDL_FreeSurface(tmpSurface)
   424       SDL_FreeSurface(tmpSurface)
   423       end;
   425       end;
   424    if fpsTexture <> nil then
   426    if fpsTexture <> nil then
   425       DrawTexture(cScreenWidth - 50, 10, fpsTexture);
   427       DrawTexture(cScreenWidth - 50, 10, fpsTexture);