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

LCL: fixed compilation with FPC 3.2.3 (PolygonNonZeroWindingRule was merged into it), issue #40339

Browse Source
This commit is contained in:
Maxim Ganetsky 2023-06-21 17:37:27 +03:00
parent 800703be6c
commit 82af317c33
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/lazcanvas.pas
View File

@ -85,7 +85,7 @@ type
FAssignedFont: TFPCustomFont;
FAssignedPen: TFPCustomPen;
FBaseWindowOrg: TPoint;
{$if FPC_FullVersion < 30301}
{$if FPC_FullVersion < 30203}
PolygonNonZeroWindingRule: Boolean;
{$endif}
{$if defined(ver2_6)}
@ -860,7 +860,7 @@ end;
procedure TLazCanvas.Polygon(const Points: array of TPoint; Winding: Boolean);
begin
{$if FPC_FullVersion < 30301}
{$if FPC_FullVersion < 30203}
PolygonNonZeroWindingRule := Winding;
{$ENDIF}
inherited Polygon(Points);