# HG changeset patch # User nemo # Date 1266897447 0 # Node ID a9a5ce1d9f23b9cab961a7ea01232213d0450dc4 # Parent f6f8db825ce7ceb2d9fb10fa735e9224e0a9d9e4 oops. forgot the free. also drop the speed check. diff -r f6f8db825ce7 -r a9a5ce1d9f23 hedgewars/uWorld.pas --- 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);