hedgewars/uStore.pas
changeset 15775 72f735c03fec
parent 15687 63e2b7b2ec47
child 15929 128ace913837
child 16001 cee831693af1
equal deleted inserted replaced
15774:f09db263bc2a 15775:72f735c03fec
   114 clr.r:= Color shr 16;
   114 clr.r:= Color shr 16;
   115 clr.g:= (Color shr 8) and $FF;
   115 clr.g:= (Color shr 8) and $FF;
   116 clr.b:= Color and $FF;
   116 clr.b:= Color and $FF;
   117 clr.a:= $FF;
   117 clr.a:= $FF;
   118 tmpsurf:= TTF_RenderUTF8_Blended(Fontz[Font].Handle, s, clr);
   118 tmpsurf:= TTF_RenderUTF8_Blended(Fontz[Font].Handle, s, clr);
   119 if tmpsurf = nil then exit;
   119 if tmpsurf = nil then exit(finalRect);
   120 tmpsurf:= doSurfaceConversion(tmpsurf);
   120 tmpsurf:= doSurfaceConversion(tmpsurf);
   121 
   121 
   122 if tmpsurf <> nil then
   122 if tmpsurf <> nil then
   123 begin
   123 begin
   124     SDL_UpperBlit(tmpsurf, nil, Surface, @finalRect);
   124     SDL_UpperBlit(tmpsurf, nil, Surface, @finalRect);