hedgewars/uChat.pas
changeset 6286 835392304f81
parent 5392 1840da0c1f1d
child 6379 ef4288298e57
equal deleted inserted replaced
6285:2c3a6bece643 6286:835392304f81
    82     delete(str, 1, 1)
    82     delete(str, 1, 1)
    83 end;
    83 end;
    84 
    84 
    85 font:= CheckCJKFont(str, fnt16);
    85 font:= CheckCJKFont(str, fnt16);
    86 w:= 0; h:= 0; // avoid compiler hints
    86 w:= 0; h:= 0; // avoid compiler hints
    87 TTF_SizeUTF8(Fontz[font].Handle, Str2PChar(str), w, h);
    87 TTF_SizeUTF8(Fontz[font].Handle, Str2PChar(str), @w, @h);
    88 
    88 
    89 resSurface:= SDL_CreateRGBSurface(0, toPowerOf2(w), toPowerOf2(h), 32, RMask, GMask, BMask, AMask);
    89 resSurface:= SDL_CreateRGBSurface(0, toPowerOf2(w), toPowerOf2(h), 32, RMask, GMask, BMask, AMask);
    90 
    90 
    91 strSurface:= TTF_RenderUTF8_Solid(Fontz[font].Handle, Str2PChar(str), color);
    91 strSurface:= TTF_RenderUTF8_Solid(Fontz[font].Handle, Str2PChar(str), color);
    92 cl.Width:= w + 4;
    92 cl.Width:= w + 4;