hedgewars/uStore.pas
changeset 10128 0f6878b5395a
parent 10127 7f29a65aa1e4
child 10129 cd2a64a1f4aa
--- a/hedgewars/uStore.pas	Mon Feb 10 00:43:03 2014 +0400
+++ b/hedgewars/uStore.pas	Mon Feb 10 23:02:49 2014 +0400
@@ -1328,7 +1328,10 @@
         tmpline2:= _S'';
         SplitByChar(tmpline, tmpline2, ':');
         if length(tmpline2) > 0 then
-            WriteInRect(tmpsurf, cFontBorder + 2, r2.y + r2.h, $ffc7c7c7, font, PChar(tmpline + ':'));
+            begin
+            tmpline:= tmpline + ':';
+            WriteInRect(tmpsurf, cFontBorder + 2, r2.y + r2.h, $ffc7c7c7, font, PChar(tmpline));
+            end;
         end
     end;