hedgewars/uRenderUtils.pas
changeset 7628 bc7b1d228a2c
parent 7546 b50556f2a0e8
child 8026 4a4f21070479
child 9080 9b42757d7e71
equal deleted inserted replaced
7533:7ee319134713 7628:bc7b1d228a2c
    90     finalRect.h:= h + cFontBorder * 2;
    90     finalRect.h:= h + cFontBorder * 2;
    91     textRect.x:= X;
    91     textRect.x:= X;
    92     textRect.y:= Y;
    92     textRect.y:= Y;
    93     textRect.w:= w;
    93     textRect.w:= w;
    94     textRect.h:= h;
    94     textRect.h:= h;
    95     DrawRoundRect(@finalRect, cWhiteColor, endian(cNearBlackColorChannels.value), Surface, true);
    95     DrawRoundRect(@finalRect, cWhiteColor, cNearBlackColor, Surface, true);
    96     clr.r:= (Color shr 16) and $FF;
    96     clr.r:= (Color shr 16) and $FF;
    97     clr.g:= (Color shr 8) and $FF;
    97     clr.g:= (Color shr 8) and $FF;
    98     clr.b:= Color and $FF;
    98     clr.b:= Color and $FF;
    99     tmpsurf:= TTF_RenderUTF8_Blended(Fontz[Font].Handle, Str2PChar(s), clr);
    99     tmpsurf:= TTF_RenderUTF8_Blended(Fontz[Font].Handle, Str2PChar(s), clr);
   100     finalRect.x:= X + cFontBorder + 2;
   100     finalRect.x:= X + cFontBorder + 2;