hedgewars/uScript.pas
changeset 7546 b50556f2a0e8
parent 7517 f287f00063e8
child 7567 da2aa8355d91
--- a/hedgewars/uScript.pas	Thu Aug 16 21:58:57 2012 +0400
+++ b/hedgewars/uScript.pas	Fri Aug 17 07:49:54 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);