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

LCL: adjusted IFDEFs for TLazCanvas.DoPolygonFill method (DoPolygonFill was merged to FPC 3.2.3)

Browse Source 
(cherry picked from commit 261a62e748)
This commit is contained in:
Maxim Ganetsky 2023-06-27 01:28:26 +03:00
parent 7b9a6b27d1
commit 152f233f2c
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

@ -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);