From ad42b120af3f40ff30854214f14937d31d27fb4e Mon Sep 17 00:00:00 2001 From: jesus Date: Sun, 30 Jun 2019 18:51:43 +0000 Subject: [PATCH] LazReport: Fix transparent roundrect powerpdf export when there is a shadow, bug report and fix tip by @HumbertoSales git-svn-id: trunk@61492 - --- components/lazreport/source/addons/pdfexport/lr_e_pdf.pas | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/components/lazreport/source/addons/pdfexport/lr_e_pdf.pas b/components/lazreport/source/addons/pdfexport/lr_e_pdf.pas index 33b7ad7141..303c56b034 100644 --- a/components/lazreport/source/addons/pdfexport/lr_e_pdf.pas +++ b/components/lazreport/source/addons/pdfexport/lr_e_pdf.pas @@ -416,8 +416,12 @@ begin // draw roundrect Data.ShapeType := frstRoundRect; - if View.FillColor=clNone then - Data.FillColor := clNone + if View.FillColor=clNone then begin + if not View.ShowGradian and (View.ShadowWidth>0) then + Data.FillColor := clWhite + else + Data.FillColor := clNone + end else Data.FillColor := ColorToRGB(View.FillColor); if View.Frames=[] then