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

fpvectorial: Adds pen setting to the ellipse rendering

Browse Source 
git-svn-id: trunk@37237 -
This commit is contained in:
sekelsenmat 2012-05-10 10:20:28 +00:00
parent fc747d6013
commit 14ea0c8587
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/fpvectorial/fpvectorial.pas
View File

@ -1556,6 +1556,8 @@ var
ALCLDest: TCanvas absolute ADest;
{$endif}
begin
ApplyPenToCanvas(ADest);
CalculateBoundingBox(ADest, fx1, fy1, fx2, fy2);
x1 := CoordToCanvasX(fx1);
x2 := CoordToCanvasX(fx2);
@ -1586,8 +1588,6 @@ begin
else
{$endif}
begin
ADest.Pen.Style := psSolid;
ADest.Pen.FPColor := colBlack;
ADest.Ellipse(x1, y1, x2, y2);
end;
end;