Alpha channel value fix
authorunc0rr
Thu, 05 Oct 2006 20:13:51 +0000 (2006-10-05)
changeset 190 206aabea2229
parent 189 33d147c69a83
child 191 a03c2d037e24
Alpha channel value fix
hedgewars/uStore.pas
--- a/hedgewars/uStore.pas	Thu Oct 05 20:07:04 2006 +0000
+++ b/hedgewars/uStore.pas	Thu Oct 05 20:13:51 2006 +0000
@@ -107,7 +107,7 @@
 clr.r:= Color shr 16;
 clr.g:= (Color shr 8) and $FF;
 clr.b:= Color and $FF;
-clr.a:= 0;
+clr.a:= $FF;
 tmpsurf:= TTF_RenderUTF8_Blended(Fontz[Font].Handle, PChar(s), clr);
 Result.x:= X + 3;
 Result.y:= Y + 1;
@@ -382,7 +382,7 @@
 clr.r:= $FF;
 clr.g:= $FF;
 clr.b:= $FF;
-clr.a:= 0;
+clr.a:= $FF;
 tmpsurf:= TTF_RenderUTF8_Solid(Fontz[Font].Handle, PChar(s), clr);
 SDL_UpperBlit(tmpsurf, nil, Surface, @r);
 SDL_FreeSurface(tmpsurf)