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

LCL: Fix fpc version check in LazCanvas' polygon fill routine.

Browse Source 
(cherry picked from commit a39b58d8cd)
This commit is contained in:
wp_xyz 2023-06-27 15:09:04 +02:00 committed by Maxim Ganetsky
parent 5d47fc0e33
commit cb1b303b34
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/lazcanvas.pas
View File

@ -860,9 +860,7 @@ end;
procedure TLazCanvas.Polygon(const Points: array of TPoint; Winding: Boolean); procedure TLazCanvas.Polygon(const Points: array of TPoint; Winding: Boolean);
begin begin
{$if FPC_FullVersion < 30203}
PolygonNonZeroWindingRule := Winding; PolygonNonZeroWindingRule := Winding;
{$ENDIF}
inherited Polygon(Points); inherited Polygon(Points);
end; end;