hedgewars/uRenderUtils.pas
changeset 14747 7dfc6ed13337
parent 14745 7cc768094d66
child 15092 ba9d54d1c25d
--- a/hedgewars/uRenderUtils.pas	Tue Apr 02 22:57:46 2019 +0200
+++ b/hedgewars/uRenderUtils.pas	Tue Apr 02 23:14:31 2019 +0200
@@ -106,6 +106,7 @@
     clr.r:= (Color shr 16) and $FF;
     clr.g:= (Color shr 8) and $FF;
     clr.b:= Color and $FF;
+    clr.a:= $FF;
     if (not IsTooDarkToRead(Color)) then
         DrawRoundRect(@finalRect, cWhiteColor, cNearBlackColor, Surface, true)
     else