--- a/hedgewars/uChat.pas	Sat May 01 19:40:45 2010 +0000
+++ b/hedgewars/uChat.pas	Sat May 01 20:02:20 2010 +0000
@@ -126,9 +126,9 @@
     begin
     r.w:= InputStr.Width;
     DrawFillRect(r);
-    Tint($80000000);
+    Tint($00, $00, $00, $80);
     DrawTexture(9 - cScreenWidth div 2, visibleCount * 16 + 11, InputStr.Tex);
-    Tint($FFFFFFFF);
+    Tint($FF, $FF, $FF, $FF);
     DrawTexture(8 - cScreenWidth div 2, visibleCount * 16 + 10, InputStr.Tex);
     end;
 
@@ -145,9 +145,9 @@
     begin
     r.w:= Strs[i].Width;
     DrawFillRect(r);
-    Tint($80000000);
+    Tint($00, $00, $00, $80);
     DrawTexture(9 - cScreenWidth div 2, (visibleCount - t) * 16 - 5, Strs[i].Tex);
-    Tint($FFFFFFFF);
+    Tint($FF, $FF, $FF, $FF);
     DrawTexture(8 - cScreenWidth div 2, (visibleCount - t) * 16 - 6, Strs[i].Tex);
     dec(r.y, 16);