113 finalRect.h:= h + cFontBorder * 2;

   113 finalRect.h:= h + cFontBorder * 2;

   114 clr.r:= Color shr 16;

   114 clr.r:= Color shr 16;

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

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

   116 clr.b:= Color and $FF;

   116 clr.b:= Color and $FF;

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

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

   118 tmpsurf:= doSurfaceConversion(tmpsurf);

   119 tmpsurf:= doSurfaceConversion(tmpsurf);

   119 SDLTry(tmpsurf <> nil, true);

   120 SDLTry(tmpsurf <> nil, true);

   120 SDL_UpperBlit(tmpsurf, nil, Surface, @finalRect);

   121 SDL_UpperBlit(tmpsurf, nil, Surface, @finalRect);

   121 SDL_FreeSurface(tmpsurf);

   122 SDL_FreeSurface(tmpsurf);

   122 finalRect.x:= X;

   123 finalRect.x:= X;

  1247     tmpline, tmpline2, tmpdesc: ansistring;

  1248     tmpline, tmpline2, tmpdesc: ansistring;

  1248 begin

  1249 begin

  1249 // make sure there is a caption as well as a sub caption - description is optional

  1250 // make sure there is a caption as well as a sub caption - description is optional

  1250 if length(caption) = 0 then

  1251 if length(caption) = 0 then

  1251     caption:= ansistring('???');

  1252     caption:= ansistring('???');

  1253     subcaption:= ansistring(_S' ');

  1254     subcaption:= ansistring(_S' ');

  1254 

  1255 

  1255 font:= CheckCJKFont(caption,fnt16);

  1256 font:= CheckCJKFont(caption,fnt16);

  1256 font:= CheckCJKFont(subcaption,font);

  1257 font:= CheckCJKFont(subcaption,font);

  1257 font:= CheckCJKFont(description,font);

  1258 font:= CheckCJKFont(description,font);