From 07384604792695b52663da93f5a81580e3f821f2 Mon Sep 17 00:00:00 2001
From: maxim <maxim@lazarus-ide.org>
Date: Thu, 20 Feb 2014 19:55:29 +0000
Subject: [PATCH] Merged revision(s) 44094 #914402e8f9 from trunk: Qt: draw
 rotated text on buttons via Themes.second part of issue #25253 ........

git-svn-id: branches/fixes_1_2@44186 -
---
 lcl/interfaces/qt/qtthemes.pas | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/lcl/interfaces/qt/qtthemes.pas b/lcl/interfaces/qt/qtthemes.pas
index a8af3de8f5..c90e36b5e4 100644
--- a/lcl/interfaces/qt/qtthemes.pas
+++ b/lcl/interfaces/qt/qtthemes.pas
@@ -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);