106 Result.h:= h + 2;

   106 Result.h:= h + 2;

   107 DrawRoundRect(@Result, cWhiteColor, cColorNearBlack, Surface);

   107 DrawRoundRect(@Result, cWhiteColor, cColorNearBlack, Surface);

   108 clr.r:= Color shr 16;

   108 clr.r:= Color shr 16;

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

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

   110 clr.b:= Color and $FF;

   110 clr.b:= Color and $FF;

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

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

   112 Result.x:= X + 3;

   113 Result.x:= X + 3;

   113 Result.y:= Y + 1;

   114 Result.y:= Y + 1;

   114 SDLTry(tmpsurf <> nil, true);

   115 SDLTry(tmpsurf <> nil, true);

   115 SDL_UpperBlit(tmpsurf, nil, Surface, @Result);

   116 SDL_UpperBlit(tmpsurf, nil, Surface, @Result);

   372 r.x:= X;

   373 r.x:= X;

   373 r.y:= Y;

   374 r.y:= Y;

   374 clr.r:= $FF;

   375 clr.r:= $FF;

   375 clr.g:= $FF;

   376 clr.g:= $FF;

   376 clr.b:= $FF;

   377 clr.b:= $FF;

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

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

   378 SDLTry(tmpsurf <> nil, true);

   380 SDLTry(tmpsurf <> nil, true);

   379 SDL_UpperBlit(tmpsurf, nil, Surface, @r);

   381 SDL_UpperBlit(tmpsurf, nil, Surface, @r);

   380 SDL_FreeSurface(tmpsurf)

   382 SDL_FreeSurface(tmpsurf)

   381 end;

   383 end;