# HG changeset patch
# User nemo
# Date 1321313285 18000
# Node ID 5f3412f6809e6cfc38fec10c62f45b89518b2880
# Parent  1ff5ad1d771b5e5e8064ae59c0d816b1748cd50a
Only recreate texture for non-empty lines

diff -r 1ff5ad1d771b -r 5f3412f6809e hedgewars/uChat.pas
--- a/hedgewars/uChat.pas	Mon Nov 14 18:08:36 2011 -0500
+++ b/hedgewars/uChat.pas	Mon Nov 14 18:28:05 2011 -0500
@@ -102,10 +102,16 @@
 
 // For uStore texture recreation
 procedure ReloadLines;
-var i: LongWord;
+var i, t: LongWord;
 begin
-    SetLine(InputStr, InputStr.s, true);
-    for i:= 0 to MaxStrIndex do SetLine(Strs[i], Strs[i].s, false)
+    if InputStr.s <> '' then SetLine(InputStr, InputStr.s, true);
+    for i:= 0 to MaxStrIndex do
+        if Strs[i].s <> '' then
+            begin
+            t:= Strs[i].Time;
+            SetLine(Strs[i], Strs[i].s, false);
+            Strs[i].Time:= t
+            end;
 end;
 
 procedure AddChatString(s: shortstring);