paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-13 13:29:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt: draw rotated text on buttons via Themes.second part of issue

Browse Source 
git-svn-id: trunk@44094 -
This commit is contained in:
zeljko 2014-02-16 11:12:24 +00:00
parent 204e1058b2
commit 914402e8f9
1 changed files with 13 additions and 0 deletions

13
lcl/interfaces/qt/qtthemes.pas
View File

@ -580,9 +580,22 @@ begin
if Details.Element in [teButton, teComboBox] then
QPalette_setColor(Palette, ATextPalette, @AQColor); // issue #25253
if Context.font.Angle <> 0 then
begin
Context.Translate(R.Left, R.Top);
Context.Rotate(-0.1 * Context.Font.Angle);
OffsetRect(R, -R.Left, -R.Top);
end;
QStyle_drawItemText(Style, Context.Widget, @R,
DTFlagsToQtFlags(Flags), Palette,
not IsDisabled(Details), @W, ATextPalette);
if Context.font.Angle <> 0 then
begin
Context.Translate(-R.Left, -R.Top);
Context.Rotate(0.1 * Context.Font.Angle);
end;
Context.SetBkMode(AOldMode);
finally
QPalette_destroy(Palette);