From c331f49f7ebee40e0ee8c4f40cd0043cbdc779af Mon Sep 17 00:00:00 2001
From: wp <wp.no-reply@lazarus-ide-org>
Date: Tue, 18 Apr 2017 15:43:38 +0000
Subject: [PATCH] LCL: fix TCanvas.TextRect clipping at boundaries of provided
 rect (issue #0031673)

git-svn-id: trunk@54629 -
---
 lcl/include/canvas.inc | 1 -
 1 file changed, 1 deletion(-)

diff --git a/lcl/include/canvas.inc b/lcl/include/canvas.inc
index 3d5cf4754b..44d0ab907c 100644
--- a/lcl/include/canvas.inc
+++ b/lcl/include/canvas.inc
@@ -1313,7 +1313,6 @@ begin
 
   if Style.Clipping then
   begin
-    IntersectRect(ARect, ARect, fRect);
     with ARect do
       InterSectClipRect(DC, Left, Top, Right, Bottom);
     Options := Options or DT_NOCLIP; // no clipping as we are handling it here