paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 10:36:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: fix TCanvas.TextRect clipping at boundaries of provided rect (issue #0031673)

Browse Source 
git-svn-id: trunk@54629 -
This commit is contained in:
wp 2017-04-18 15:43:38 +00:00
parent 5361d2be18
commit c331f49f7e
1 changed files with 0 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/include/canvas.inc
View File

@ -1313,7 +1313,6 @@ begin
if Style.Clipping then if Style.Clipping then
begin begin
IntersectRect(ARect, ARect, fRect);
with ARect do with ARect do
InterSectClipRect(DC, Left, Top, Right, Bottom); InterSectClipRect(DC, Left, Top, Right, Bottom);
Options := Options or DT_NOCLIP; // no clipping as we are handling it here Options := Options or DT_NOCLIP; // no clipping as we are handling it here