hedgewars/uChat.pas
changeset 5392 1840da0c1f1d
parent 5100 951767beffc8
child 6286 835392304f81
--- a/hedgewars/uChat.pas	Mon Jul 04 12:28:58 2011 +0200
+++ b/hedgewars/uChat.pas	Mon Jul 04 15:35:44 2011 +0200
@@ -51,12 +51,13 @@
     ChatReady: boolean;
     showAll: boolean;
 
-const colors: array[#1..#5] of TSDL_Color = (
+const colors: array[#1..#6] of TSDL_Color = (
     (r:$FF; g:$FF; b:$FF; unused:$FF), // chat message [White]
     (r:$FF; g:$00; b:$FF; unused:$FF), // action message [Purple]
     (r:$90; g:$FF; b:$90; unused:$FF), // join/leave message [Lime]
     (r:$FF; g:$FF; b:$A0; unused:$FF), // team message [Light Yellow]
-    (r:$FF; g:$00; b:$00; unused:$ff)  // error messages [Red]
+    (r:$FF; g:$00; b:$00; unused:$FF), // error messages [Red]
+    (r:$00; g:$FF; b:$FF; unused:$FF)  // input line [Light Blue]
     );
 
 procedure SetLine(var cl: TChatLine; str: shortstring; isInput: boolean);
@@ -72,11 +73,7 @@
 
 if isInput then
 begin
-    // [Light Blue]
-    color.r:= $00;
-    color.g:= $FF;
-    color.b:= $FF;
-    color.unused:= $FF;
+    color:= colors[#6];
     str:= UserNick + '> ' + str + '_'
 end
 else
@@ -153,14 +150,9 @@
 
 dec(r.y, 16);
 
-while
-    (
-            ((t < 7) and (Strs[i].Time > RealTicks))
-        or
-            ((t < MaxStrIndex) and showAll)
-    )
-    and
-        (Strs[i].Tex <> nil) do
+while (((t < 7) and (Strs[i].Time > RealTicks)) or
+       ((t < MaxStrIndex) and showAll)) and
+      (Strs[i].Tex <> nil) do
     begin
     r.w:= Strs[i].Width;
     DrawFillRect(r);