pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

PowerPDF: remove unexpected frame from RRect

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5770 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
jesusr
2017-02-28 03:59:25 +00:00
parent eeb56984c3
commit 90eb7065e9
1 changed files with 8 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
components/powerpdf/PReport.pas
View File

@ -2380,7 +2380,14 @@ begin
end; end;
if self.GradientColor<>clNone then if self.GradientColor<>clNone then
ACanvas.PdfCanvas.ClosepathFillStroke begin
if (LineColor = clNone) or (LineStyle = psClear) then
begin
ACanvas.PdfCanvas.Closepath;
ACanvas.PdfCanvas.Fill;
end else
ACanvas.PdfCanvas.ClosepathFillStroke
end
else else
StdFillOrStroke(ACanvas.PDFCanvas); StdFillOrStroke(ACanvas.PDFCanvas);
end; end;