hedgewars/uRenderUtils.pas
changeset 7550 3c4b4cb40f40
parent 7546 b50556f2a0e8
child 8026 4a4f21070479
child 9080 9b42757d7e71
equal deleted inserted replaced
7508:763d3961400b 7550:3c4b4cb40f40
    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;