hedgewars/uChat.pas
changeset 3085 c6c57c499034
parent 3038 4e48c276a468
child 3376 faee68a28b82
--- a/hedgewars/uChat.pas	Fri Mar 26 17:34:58 2010 +0000
+++ b/hedgewars/uChat.pas	Fri Mar 26 17:43:21 2010 +0000
@@ -126,6 +126,9 @@
     begin
     r.w:= InputStr.Width;
     DrawFillRect(r);
+    Tint(0, 0, 0, 0.5);
+    DrawTexture(9 - cScreenWidth div 2, visibleCount * 16 + 11, InputStr.Tex);
+    Tint(1, 1, 1, 1);
     DrawTexture(8 - cScreenWidth div 2, visibleCount * 16 + 10, InputStr.Tex);
     end;
 
@@ -142,6 +145,9 @@
     begin
     r.w:= Strs[i].Width;
     DrawFillRect(r);
+    Tint(0, 0, 0, 0.5);
+    DrawTexture(9 - cScreenWidth div 2, (visibleCount - t) * 16 - 5, Strs[i].Tex);
+    Tint(1, 1, 1, 1);
     DrawTexture(8 - cScreenWidth div 2, (visibleCount - t) * 16 - 6, Strs[i].Tex);
     dec(r.y, 16);