From 152f233f2c9a55369929e0f1600a75bda1e8faf6 Mon Sep 17 00:00:00 2001 From: Maxim Ganetsky Date: Tue, 27 Jun 2023 01:28:26 +0300 Subject: [PATCH] LCL: adjusted IFDEFs for TLazCanvas.DoPolygonFill method (DoPolygonFill was merged to FPC 3.2.3) (cherry picked from commit 261a62e7486216b72703f6398c7b46d99d631bfe) --- lcl/lazcanvas.pas | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lcl/lazcanvas.pas b/lcl/lazcanvas.pas index 8842e17a7b..e1db6788ae 100644 --- a/lcl/lazcanvas.pas +++ b/lcl/lazcanvas.pas @@ -104,7 +104,7 @@ type // Routines broken/unimplemented/incompatible in FPC procedure DoRectangle (const Bounds:TRect); override; procedure DoRectangleFill (const Bounds:TRect); override; - {$if FPC_FullVersion < 30301} + {$if FPC_FullVersion < 30203} procedure DoPolygonFill (const points:array of TPoint); override; {$endif} // Routines which don't work with out extended clipping in TFPImageCanvas @@ -339,7 +339,7 @@ begin end; end; -{$IF FPC_FullVersion < 30301} +{$IF FPC_FullVersion < 30203} // unimplemented in FPC // algorithm explained here: http://alienryderflex.com/polygon_fill/ procedure TLazCanvas.DoPolygonFill(const points: array of TPoint);