hedgewars/uChat.pas
changeset 11481 c4e1d39acc56
parent 11377 208bc571f949
child 11701 fa4bc078e509
equal deleted inserted replaced
11480:1d478892cf1c 11481:c4e1d39acc56
   194 SDL_FillRect(resSurface, @dstrect, shadowint);
   194 SDL_FillRect(resSurface, @dstrect, shadowint);
   195 
   195 
   196 // create and blit text
   196 // create and blit text
   197 strSurface:= TTF_RenderUTF8_Blended(Fontz[font].Handle, Str2PChar(str), cl.color);
   197 strSurface:= TTF_RenderUTF8_Blended(Fontz[font].Handle, Str2PChar(str), cl.color);
   198 //SDL_UpperBlit(strSurface, nil, resSurface, @dstrect);
   198 //SDL_UpperBlit(strSurface, nil, resSurface, @dstrect);
   199 if strSurface <> nil then copyTOXY(strSurface, resSurface, Padding, Padding);
   199 if strSurface <> nil then copyToXY(strSurface, resSurface, Padding, Padding);
   200 SDL_FreeSurface(strSurface);
   200 SDL_FreeSurface(strSurface);
   201 
   201 
   202 cl.Tex:= Surface2Tex(resSurface, false);
   202 cl.Tex:= Surface2Tex(resSurface, false);
   203 
   203 
   204 SDL_FreeSurface(resSurface)
   204 SDL_FreeSurface(resSurface)