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

fpvectorial: Fixes compilation

Browse Source 
git-svn-id: trunk@51646 -
This commit is contained in:
sekelsenmat 2016-02-17 07:35:16 +00:00
parent 2cf907dc97
commit a4a5e66924
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/fpvectorial/fpvectorial.pas
View File

@ -4072,7 +4072,7 @@ begin
lBrush := LCLIntf.CreateBrushWithRadialGradient(lLogRadGrad);
lOldBrush := TCanvas(ADest).Brush.Handle;
TCanvas(ADest).Brush.Handle := lBrush;
TCanvas(ADest).Polygon(polypoints);
TCanvas(ADest).Polygon(APoints);
TCanvas(ADest).Brush.Handle := lOldBrush;
{$endif}
end;