hedgewars/uScript.pas
changeset 7565 00568d3054d0
parent 7546 b50556f2a0e8
child 7567 da2aa8355d91
--- a/hedgewars/uScript.pas	Sun Aug 12 23:05:15 2012 +0400
+++ b/hedgewars/uScript.pas	Sun Aug 19 22:13:41 2012 +0400
@@ -744,7 +744,7 @@
             TryDo(texsurf <> nil, errmsgCreateSurface, true);
             TryDo(SDL_SetColorKey(texsurf, SDL_SRCCOLORKEY, 0) = 0, errmsgTransparentSet, true);
 
-            DrawRoundRect(@r, cWhiteColor, cNearBlackColorChannels.value, texsurf, true);
+            DrawRoundRect(@r, cWhiteColor, cNearBlackColor, texsurf, true);
             rr:= r;
             inc(rr.x, 2); dec(rr.w, 4); inc(rr.y, 2); dec(rr.h, 4);
             DrawRoundRect(@rr, clan^.Color, clan^.Color, texsurf, false);