726 

   726 

   727 numLines:= 0;

   727 numLines:= 0;

   728 

   728 

   729 if length(s) = 0 then s:= '...';

   729 if length(s) = 0 then s:= '...';

   730 TTF_SizeUTF8(Fontz[font].Handle, Str2PChar(s), w, h);

   730 TTF_SizeUTF8(Fontz[font].Handle, Str2PChar(s), w, h);

   731 j:= 0;

   732 j:= 0;

   732 if (length(s) > 20) then

   733 if (length(s) > 20) then

   733     begin

   734     begin

   734     w:= 0;

   735     w:= 0;

   735     i:= round(Sqrt(length(s)) * 2);

   736     i:= round(Sqrt(length(s)) * 2);