hedgewars/uChat.pas
changeset 3376 faee68a28b82
parent 3085 c6c57c499034
child 3390 1d4926d10a9e
--- a/hedgewars/uChat.pas	Thu Apr 29 17:20:42 2010 +0000
+++ b/hedgewars/uChat.pas	Thu Apr 29 17:21:10 2010 +0000
@@ -126,9 +126,9 @@
     begin
     r.w:= InputStr.Width;
     DrawFillRect(r);
-    Tint(0, 0, 0, 0.5);
+    Tint($80000000);
     DrawTexture(9 - cScreenWidth div 2, visibleCount * 16 + 11, InputStr.Tex);
-    Tint(1, 1, 1, 1);
+    Tint($FFFFFFFF);
     DrawTexture(8 - cScreenWidth div 2, visibleCount * 16 + 10, InputStr.Tex);
     end;
 
@@ -145,9 +145,9 @@
     begin
     r.w:= Strs[i].Width;
     DrawFillRect(r);
-    Tint(0, 0, 0, 0.5);
+    Tint($80000000);
     DrawTexture(9 - cScreenWidth div 2, (visibleCount - t) * 16 - 5, Strs[i].Tex);
-    Tint(1, 1, 1, 1);
+    Tint($FFFFFFFF);
     DrawTexture(8 - cScreenWidth div 2, (visibleCount - t) * 16 - 6, Strs[i].Tex);
     dec(r.y, 16);