--- a/hedgewars/uStore.pas	Thu Apr 29 19:40:13 2010 +0000
+++ b/hedgewars/uStore.pas	Thu Apr 29 21:25:51 2010 +0000
@@ -91,7 +91,7 @@
 {$IFNDEF IPHONEOS}
 procedure Tint(r, g, b, a: Byte); inline;
 begin
-Tint((a shl 24) or (b shl 16) or (g shl 8) or r);
+Tint((a shl 24) or (r shl 16) or (g shl 8) or b);
 end;
 
 procedure Tint(c: Longword); inline;
@@ -116,7 +116,7 @@
 begin
 if c = lastTint then
     exit;
-Tint(c and $FF, (c shr 8) and $FF, (c shr 16) and $FF, (c shr 24) and $FF);
+Tint((c shr 16) and $FF, (c shr 8) and $FF, c and $FF, (c shr 24) and $FF);
 lastTint:= c;
 end;
 {$ENDIF}