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

PowerPDF: fix fpc 2.4.4 compile

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2184 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
jesusr
2011-12-07 19:17:44 +00:00
parent 6d2a15426e
commit 39274a6133
1 changed files with 15 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
components/powerpdf/PReport.pas
View File

@ -38,6 +38,10 @@ unit PReport;
interface
{$IFDEF LAZ_POWERPDF}
{$mode objfpc}{$H+}
{$ENDIF}
//{$DEFINE USE_JPFONTS}
//{$DEFINE USE_GBFONTS}
@ -427,7 +431,7 @@ type
procedure SetFillColor(Value: TColor);
procedure SetLineWidth(Value: Single);
procedure SetLineStyle(Value: TPenStyle);
procedure StdFillOrStroke(Canvas: TPdfCanvas);
procedure StdFillOrStroke(ACanvas: TPdfCanvas);
protected
procedure SetDash(ACanvas: TPdfCAnvas; APattern: TPenStyle);
function IsFillable: boolean; virtual;
@ -467,7 +471,7 @@ type
{ TPRPolygon }
TPRPolygon = class(TPRShape)
protected
procedure Print(ACanvas: TPRCanvas; ARect: TRect); override;
procedure Print(prCanvas: TPRCanvas; ARect: TRect); override;
function IsFillable: boolean; override;
public
Points: TPRPointArray;
@ -2110,9 +2114,9 @@ begin
end;
end;
procedure TPRShape.StdFillOrStroke(Canvas: TPdfCanvas);
procedure TPRShape.StdFillOrStroke(ACanvas: TPdfCanvas);
begin
with Canvas do
with ACanvas do
begin
if (FillColor <> clNone) and IsFillable then
SetRGBFillColor(FFillColor);
@ -2672,9 +2676,9 @@ end;
{ TPRPolygon }
procedure TPRPolygon.Print(ACanvas: TPRCanvas; ARect: TRect);
procedure TPRPolygon.Print(prCanvas: TPRCanvas; ARect: TRect);
var
Canvas: TPDFCanvas;
ACanvas: TPDFCanvas;
i,h: Integer;
Pts: TPRPointArray;
begin
@ -2690,15 +2694,15 @@ begin
Pts[i].y := h - Points[i].y;
end;
Canvas := ACanvas.PDFCanvas;
ACanvas := prCanvas.PDFCanvas;
SetDash(Canvas, FLineStyle);
SetDash(ACanvas, FLineStyle);
Canvas.MoveTo(Pts[0].x, Pts[0].y);
ACanvas.MoveTo(Pts[0].x, Pts[0].y);
for i:=1 to Length(Pts)-1 do
Canvas.LineTo(Pts[i].x, Pts[i].y);
ACanvas.LineTo(Pts[i].x, Pts[i].y);
StdFillOrStroke(Canvas);
StdFillOrStroke(ACanvas);
end;
function TPRPolygon.IsFillable: boolean;