hedgewars/uChat.pas
changeset 10127 7f29a65aa1e4
parent 10116 dd27562b6f21
child 10303 f726e36c3e24
equal deleted inserted replaced
10126:2fa3bb7785ee 10127:7f29a65aa1e4
    98     begin
    98     begin
    99     color:= colors[str[1]];
    99     color:= colors[str[1]];
   100     delete(str, 1, 1)
   100     delete(str, 1, 1)
   101     end;
   101     end;
   102 
   102 
   103 font:= CheckCJKFont(str, fnt16);
   103 font:= CheckCJKFont(ansistring(str), fnt16);
   104 w:= 0; h:= 0; // avoid compiler hints
   104 w:= 0; h:= 0; // avoid compiler hints
   105 TTF_SizeUTF8(Fontz[font].Handle, Str2PChar(str), @w, @h);
   105 TTF_SizeUTF8(Fontz[font].Handle, Str2PChar(str), @w, @h);
   106 
   106 
   107 resSurface:= SDL_CreateRGBSurface(0, toPowerOf2(w), toPowerOf2(h), 32, RMask, GMask, BMask, AMask);
   107 resSurface:= SDL_CreateRGBSurface(0, toPowerOf2(w), toPowerOf2(h), 32, RMask, GMask, BMask, AMask);
   108 
   108