hedgewars/uChat.pas
changeset 10116 dd27562b6f21
parent 10108 c68cf030eded
child 10127 7f29a65aa1e4
equal deleted inserted replaced
10115:794af9339726 10116:dd27562b6f21
    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(Str2PChar(str), fnt16);
   103 font:= CheckCJKFont(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