--- 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

--- a/hedgewars/uStore.pas	Tue Apr 02 22:57:46 2019 +0200
+++ b/hedgewars/uStore.pas	Tue Apr 02 23:14:31 2019 +0200
@@ -113,6 +113,7 @@
 clr.r:= Color shr 16;
 clr.g:= (Color shr 8) and $FF;
 clr.b:= Color and $FF;
+clr.a:= $FF;
 tmpsurf:= TTF_RenderUTF8_Blended(Fontz[Font].Handle, s, clr);
 if tmpsurf = nil then exit;
 tmpsurf:= doSurfaceConversion(tmpsurf);