Mercurial Mercurial > hedgewars / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hedgewars/uWorld.pas
changeset 2851 a9a5ce1d9f23
parent 2850 f6f8db825ce7
child 2855 7e6adeb57427 
--- a/hedgewars/uWorld.pas	Tue Feb 23 03:55:46 2010 +0000
+++ b/hedgewars/uWorld.pas	Tue Feb 23 03:57:27 2010 +0000
@@ -653,7 +653,7 @@
 inc(Frames);
 
 if cShowFPS or (GameType = gmtDemo) then inc(CountTicks, Lag);
-if (GameType = gmtDemo) and (not isSpeed) and (CountTicks >= 1000) then
+if (GameType = gmtDemo) and (CountTicks >= 1000) then
    begin
    i:=GameTicks div 60000;
    t:=(GameTicks-(i*60000)) div 1000;
@@ -662,6 +662,7 @@
    s:= s+inttostr(i)+':';
    if t<10 then s:=s+'0';
    s:= s+inttostr(t);
+   if timeTexture <> nil then FreeTexture(timeTexture);
    tmpSurface:= TTF_RenderUTF8_Blended(Fontz[fnt16].Handle, Str2PChar(s), cWhiteColorChannels);
    tmpSurface:= doSurfaceConversion(tmpSurface);
    timeTexture:= Surface2Tex(tmpSurface, false);
hedgewars