paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-20 21:42:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazReport: LazReport: fix PowerPDF exporter of roundrects filled without gradients.

Browse Source 
git-svn-id: trunk@57629 -
This commit is contained in:
jesus 2018-04-08 21:46:57 +00:00
parent 2753a83892
commit 09f7d6aff2
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/lazreport/source/addons/pdfexport/lr_e_pdf.pas
View File

@ -403,9 +403,10 @@ begin
end; end;
end else end else
begin begin
Data.GradientColor := clNone;
Data.ShapeType := frstRoundRect; Data.ShapeType := frstRoundRect;
Data.FillColor := ColorToRGB(View.ShadowColor); Data.FillColor := View.ShadowColor;
Data.FrameColor := Data.FillColor; //ColorToRGB(View.FrameColor); Data.FrameColor := clNone;
Data.FrameWidth := 0; Data.FrameWidth := 0;
Data.FrameStyle := frsSolid; Data.FrameStyle := frsSolid;
SWidth := trunc(View.ShadowWidth * PDFEscx + 0.5); SWidth := trunc(View.ShadowWidth * PDFEscx + 0.5);