From 567bfeb0a1ba41a28e828033f16b1817dffd3353 Mon Sep 17 00:00:00 2001
From: jesus <jesus@lazarus-ide.org>
Date: Tue, 1 May 2012 20:50:57 +0000
Subject: [PATCH] LCL, implements textrect clipping in Postscriptprintercanvas

git-svn-id: trunk@37131 -
---
 lcl/postscriptcanvas.pas | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/lcl/postscriptcanvas.pas b/lcl/postscriptcanvas.pas
index 4f4ad150e9..9f1d397f3b 100644
--- a/lcl/postscriptcanvas.pas
+++ b/lcl/postscriptcanvas.pas
@@ -2258,10 +2258,21 @@ end;
 
 procedure TPostScriptPrinterCanvas.TextRect(ARect: TRect; X, Y: integer;
   const Text: string; const Style: TTextStyle);
+var
+  OldClip: TRect;
 begin
   {$IFDEF VerboseLCLTodos}{$WARNING TPostScriptPrinterCanvas.TextRect is not yet fully implemented!}{$ENDIF}
-  //TODO: clipping, layout, etc.
+  //TODO: layout, etc.
+
+  if Style.Clipping then begin
+    OldClip := GetClipRect;
+    SetClipRect(ARect);
+  end;
+
   TextOut(X,Y, Text);
+
+  if Style.Clipping then
+    SetClipRect(OldClip);
 end;
 
 function IsMaxClip(ARect:TRect):boolean;