104     textRect.w:= w;

   104     textRect.w:= w;

   105     textRect.h:= h;

   105     textRect.h:= h;

   106     clr.r:= (Color shr 16) and $FF;

   106     clr.r:= (Color shr 16) and $FF;

   107     clr.g:= (Color shr 8) and $FF;

   107     clr.g:= (Color shr 8) and $FF;

   108     clr.b:= Color and $FF;

   108     clr.b:= Color and $FF;

   109     if (not IsTooDarkToRead(Color)) then

   110     if (not IsTooDarkToRead(Color)) then

   110         DrawRoundRect(@finalRect, cWhiteColor, cNearBlackColor, Surface, true)

   111         DrawRoundRect(@finalRect, cWhiteColor, cNearBlackColor, Surface, true)

   111     else

   112     else

   112         DrawRoundRect(@finalRect, cNearBlackColor, cWhiteColor, Surface, true);

   113         DrawRoundRect(@finalRect, cNearBlackColor, cWhiteColor, Surface, true);

   113     tmpsurf:= TTF_RenderUTF8_Blended(Fontz[Font].Handle, PChar(s), clr);

   114     tmpsurf:= TTF_RenderUTF8_Blended(Fontz[Font].Handle, PChar(s), clr);