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

LazReport, implemented pdf export of rounded rect shapes

Browse Source 
git-svn-id: trunk@23486 -
This commit is contained in:
jesus 2010-01-19 17:01:26 +00:00
parent a4fee565d3
commit f20341dc42
2 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazreport/source/addons/pdfexport/lazreportpdfexport.lpk
View File

@ -43,7 +43,7 @@
</Item2> </Item2>
<Item3> <Item3>
<PackageName Value="pack_powerpdf"/> <PackageName Value="pack_powerpdf"/>
<MinVersion Minor="9" Release="3" Valid="True"/> <MinVersion Minor="9" Release="3" Build="1" Valid="True"/>
</Item3> </Item3>
<Item4> <Item4>
<PackageName Value="lazreport"/> <PackageName Value="lazreport"/>

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

@ -238,9 +238,6 @@ end;
procedure TfrTNPDFExportFilter.ShowShape(View: TfrShapeView; x, y, h, w: integer procedure TfrTNPDFExportFilter.ShowShape(View: TfrShapeView; x, y, h, w: integer
); );
var
Canvas: TPDFCanvas;
PRRect: TPRRect;
function CreateShape(ShapeClass: TPRShapeClass): TPRShape; function CreateShape(ShapeClass: TPRShapeClass): TPRShape;
begin begin
@ -257,7 +254,6 @@ var
end; end;
begin begin
Canvas := PDF.GetPdfDoc.Canvas;
case View.ShapeType of case View.ShapeType of
frstRectangle: frstRectangle:
CreateShape(TPRRect); CreateShape(TPRRect);
@ -265,6 +261,11 @@ begin
frstEllipse: frstEllipse:
CreateShape(TPREllipse); CreateShape(TPREllipse);
frstRoundRect:
with TPRRect(CreateShape(TPRRect)) do begin
Radius := -1.0;
end;
frstTriangle: frstTriangle:
with TPRPolygon(CreateShape(TPRPolygon)) do begin with TPRPolygon(CreateShape(TPRPolygon)) do begin
SetLength(Points, 3); SetLength(Points, 3);
@ -310,9 +311,6 @@ begin
ShowBarCode(TfrBarCodeView(View), nx, ny, ndy, ndx) ShowBarCode(TfrBarCodeView(View), nx, ny, ndy, ndx)
else if View is TfrPictureView then else if View is TfrPictureView then
ShowPicture(TfrPictureView(View), nx, ny, ndy, ndx); ShowPicture(TfrPictureView(View), nx, ny, ndy, ndx);
// For debugging only
// else if not View is TfrMemoView then
// MessageDlg(View.ClassName, mtWarning, [mbOK], 0);
if (View.Frames<>[]) and not (View is TfrBarCodeView) then if (View.Frames<>[]) and not (View is TfrBarCodeView) then
ShowFrame(View, nx, ny, ndy, ndx); ShowFrame(View, nx, ny, ndy, ndx);