paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-14 11:49:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from Pascal RiekenBerg to fix distortion in image renderer (Bug ID 32449)

Browse Source 
git-svn-id: trunk@37270 -
This commit is contained in:
michael 2017-09-20 15:02:42 +00:00
parent 06563f73f6
commit 6e67a1a332
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fcl-report/src/fpreportcanvashelper.pp
View File

@ -77,8 +77,8 @@ function TFPReportCanvasHelper.CoordToRect(const APos: TFPReportPoint;
begin
Result.Left:=mmToPixels(APos.Left);
Result.Top:=mmToPixels(APos.Top);
Result.Right:=mmToPixels(APos.Left+AWidth);
Result.Bottom:=mmToPixels(APos.Top+AHeight);
Result.Right:=mmToPixels(APos.Left+AWidth)-1;
Result.Bottom:=mmToPixels(APos.Top+AHeight)-1;
end;
function TFPReportCanvasHelper.CoordToPoint(const APos: TFPReportPoint;
@ -132,6 +132,10 @@ begin
Canvas.Pen.FPColor:=ColorToRGBTriple(TFPReportShape(AShape).Color);
Canvas.Pen.Style:=psSolid;
Canvas.Pen.Width:=1;
{ exit if Shape will not be visible. }
if (TFPReportShape(AShape).Color = clNone)
or (TFPReportShape(AShape).Color = TFPReportShape(AShape).Frame.BackgroundColor) then
exit;
case TFPReportShape(AShape).ShapeType of
stEllipse: RenderShapeEllipse(lpt1,AShape.RTLayout);
stCircle: RenderShapeCircle(lpt1,AShape.RTLayout);