hedgewars/uStore.pas
changeset 14752 7dfc6ed13337
parent 14746 37a781d28e43
child 15288 c4fd2813b127
child 15315 272dc9967fd3
--- 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);