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

LCL/Graphics: Fix compilation issue of AggPas, BGRABitmap, ... after introduction of GradientFill in FPCanvas of FPC 3.3.1. Issue #41642.

Browse Source
This commit is contained in:
wp_xyz 2025-05-15 22:42:48 +02:00
parent 2adbf891cc
commit f9cc0dca29
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/graphics.pp
View File

@ -959,12 +959,21 @@ type
EInvalidGraphic = class(EGraphicException); EInvalidGraphic = class(EGraphicException);
EInvalidGraphicOperation = class(EGraphicException); EInvalidGraphicOperation = class(EGraphicException);
{$IF FPC_FullVersion >= 30301}
type
TGradientDirection = FPCanvas.TFPGradientDirection;
const
gdVertical = FPCanvas.gdVertical;
gdHorizontal = FPCanvas.gdHorizontal;
{$ELSE}
type type
TGradientDirection = ( TGradientDirection = (
gdVertical, // Fill vertical gdVertical, // Fill vertical
gdHorizontal // Fill Horizontal gdHorizontal // Fill Horizontal
); );
{$IFEND}
type
TAntialiasingMode = ( TAntialiasingMode = (
amDontCare, // default antialiasing amDontCare, // default antialiasing
amOn, // enabled amOn, // enabled