hedgewars/uStore.pas
changeset 14768 7dfc6ed13337
parent 14762 37a781d28e43
child 15304 c4fd2813b127
child 15331 272dc9967fd3
equal deleted inserted replaced
14767:a8a328ac3cac 14768:7dfc6ed13337
   111 finalRect.w:= w + cFontBorder * 2 + 4;
   111 finalRect.w:= w + cFontBorder * 2 + 4;
   112 finalRect.h:= h + cFontBorder * 2;
   112 finalRect.h:= h + cFontBorder * 2;
   113 clr.r:= Color shr 16;
   113 clr.r:= Color shr 16;
   114 clr.g:= (Color shr 8) and $FF;
   114 clr.g:= (Color shr 8) and $FF;
   115 clr.b:= Color and $FF;
   115 clr.b:= Color and $FF;
       
   116 clr.a:= $FF;
   116 tmpsurf:= TTF_RenderUTF8_Blended(Fontz[Font].Handle, s, clr);
   117 tmpsurf:= TTF_RenderUTF8_Blended(Fontz[Font].Handle, s, clr);
   117 if tmpsurf = nil then exit;
   118 if tmpsurf = nil then exit;
   118 tmpsurf:= doSurfaceConversion(tmpsurf);
   119 tmpsurf:= doSurfaceConversion(tmpsurf);
   119 
   120 
   120 if tmpsurf <> nil then
   121 if tmpsurf <> nil then