Mercurial Mercurial > hedgewars / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hedgewars/uChat.pas
changeset 3390 1d4926d10a9e
parent 3376 faee68a28b82
child 3407 dcc129c4352e 
--- 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);
hedgewars