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

LazReport: Fix illegal set conversion

Browse Source
This commit is contained in:
Jesus Reyes A 2024-05-23 13:54:51 -06:00
parent ed9974287b
commit 1b3e5ae738
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -90,6 +90,15 @@ const
PDFEscx = 0.792553191; PDFEscx = 0.792553191;
PDFEscy = 0.785447761; PDFEscy = 0.785447761;
function CornerSetToPdfCorners(cs: TCornerSet): TPdfCorners;
begin
result := [];
if ctTopLeft in cs then Include(result, pcTopLeft);
if ctBottomLeft in cs then Include(result, pcBottomLeft);
if ctBottomRight in cs then Include(result, pcBottomRight);
if ctTopRight in cs then Include(result, pcTopRight);
end;
procedure TfrTNPDFExportFilter.AddShape(Data: TShapeData; x, y, h, w: integer); procedure TfrTNPDFExportFilter.AddShape(Data: TShapeData; x, y, h, w: integer);
function CreateShape(ShapeClass: TPRShapeClass): TPRShape; function CreateShape(ShapeClass: TPRShapeClass): TPRShape;
@ -117,7 +126,7 @@ begin
frstRoundRect: frstRoundRect:
with TPRRect(CreateShape(TPRRect)) do begin with TPRRect(CreateShape(TPRRect)) do begin
Radius := Data.Radius; Radius := Data.Radius;
SquaredCorners := TPdfCorners(Data.Corners); SquaredCorners := CornerSetToPdfCorners(Data.Corners);
GradientColor := Data.GradientColor; GradientColor := Data.GradientColor;
GradientDirection := Data.GradientDirection; GradientDirection := Data.GradientDirection;
end; end;