From 52894be663fa3528860e9b018aa6e7503cd20f1c Mon Sep 17 00:00:00 2001
From: zeljko <zeljko@lazarus-ide.org>
Date: Fri, 21 May 2010 14:48:59 +0000
Subject: [PATCH] Qt: properly draw text if font.orientation <> 0.Now TLabel
 looks nice with Font.Orientation <> 0.

git-svn-id: trunk@25565 -
---
 lcl/interfaces/qt/qtwinapi.inc | 46 ++++++++++++++++++++++++++++++++++
 1 file changed, 46 insertions(+)

diff --git a/lcl/interfaces/qt/qtwinapi.inc b/lcl/interfaces/qt/qtwinapi.inc
index 8d0762f93b..27c00c8235 100644
--- a/lcl/interfaces/qt/qtwinapi.inc
+++ b/lcl/interfaces/qt/qtwinapi.inc
@@ -1199,6 +1199,48 @@ var
   R: TRect;
   QtDC: TQtDeviceContext;
   F: Integer;
+
+  procedure CalculateOffsetWithAngle(const AFontAngle: Integer;
+    var TextLeft,TextTop: Integer);
+  var
+    OffsX, OffsY: integer;
+    Angle: Integer;
+    Size: TSize;
+  begin
+    OffsX := R.Right - R.Left;
+    OffsY := R.Bottom - R.Top;
+    Size.cX := OffsX;
+    Size.cy := OffsY;
+    Angle := AFontAngle div 10;
+    if Angle < 0 then
+      Angle := 360 + Angle;
+
+    if Angle <= 90 then
+    begin
+      OffsX := 0;
+      OffsY := Trunc(Size.cx * sin(Angle * Pi / 180));
+    end else
+    if Angle <= 180 then
+    begin
+      OffsX := Trunc(Size.cx * -cos(Angle * Pi / 180));
+      OffsY := Trunc(Size.cx * sin(Angle * Pi / 180) +
+         Size.cy * cos((180 - Angle) * Pi / 180));
+    end else
+    if Angle <= 270 then
+    begin
+      OffsX := Trunc(Size.cx * -cos(Angle * Pi / 180) +
+        Size.cy * sin((Angle - 180) * Pi / 180));
+      OffsY := Trunc(Size.cy * sin((270 - Angle) * Pi / 180));
+    end else
+    if Angle <= 360 then
+    begin
+      OffsX := Trunc(Size.cy * sin((360 - Angle) * Pi / 180));
+      OffsY := 0;
+    end;
+    TextTop := TextTop + OffsY;
+    TextLeft := TextLeft + OffsX;
+  end;
+
 begin
   {$ifdef VerboseQtWinAPI}
     WriteLn('[WinAPI DrawText] DC: ', dbghex(DC), ' Str: ', string(Str),
@@ -1221,6 +1263,10 @@ begin
 
   QtDC.font.Metrics.BoundingRect(@R, @ARect, F, @WideStr);
 
+  // if our Font.Orientation <> 0 we must recalculate new Left & Top
+  // for returning rect
+  if QtDC.Font.Angle <> 0 then
+    CalculateOffsetWithAngle(QtDC.font.Angle, ARect.Left, ARect.Top);
 
   //TODO: result should be different when DT_VCENTER or DT_BOTTOM is set
   Result := R.Bottom - R.Top;