From 1e31f8c41d8c4b30103648643b585b934e4c7091 Mon Sep 17 00:00:00 2001
From: jesusr <jesusr@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 22 Oct 2012 19:29:29 +0000
Subject: [PATCH] =?UTF-8?q?PowerPDF,=20add=20angle=20support=20to=20TPRLab?=
 =?UTF-8?q?el,=20patch=20from=20Julio=20Jim=C3=A9nez=20Borreguero?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2580 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/powerpdf/PReport.pas | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/components/powerpdf/PReport.pas b/components/powerpdf/PReport.pas
index 1a1b876e2..ecceb45dd 100644
--- a/components/powerpdf/PReport.pas
+++ b/components/powerpdf/PReport.pas
@@ -380,12 +380,15 @@ type
     FAlignment: TAlignment;
     FClipping: boolean;
     FAlignJustified: boolean;
+    FAngle: integer;
     procedure SetAlignment(Value: TAlignment);
     procedure SetAlignJustified(Value: boolean);
     procedure SetCanvasProperties(ACanvas: TPdfCanvas);
   protected
     procedure Paint; override;
     procedure Print(ACanvas: TPRCanvas; ARect: TRect); override;
+  public
+    property Angle: integer read Fangle write Fangle;
   published
     function GetTextWidth: Single;
     property Caption;
@@ -1837,7 +1840,11 @@ begin
 
   SetCanvasProperties(ACanvas.PdfCanvas);
 
-  ACanvas.TextRect(ARect, Caption, FAlignment, Clipping);
+  // Only one line of text rotated for now. It's the begining
+  if Angle=90 then
+    ACanvas.PdfCanvas.TextOutRotatedUp(ARect.Left + FontSize,  GetPage.Height - ARect.Top, Caption)
+  else
+    ACanvas.TextRect(ARect, Caption, FAlignment, Clipping);
 end;
 
 function TPRLabel.GetTextWidth: Single;