paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-09 18:47:16 +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);
EInvalidGraphicOperation = class(EGraphicException);
{$IF FPC_FullVersion >= 30301}
type
TGradientDirection = FPCanvas.TFPGradientDirection;
const
gdVertical = FPCanvas.gdVertical;
gdHorizontal = FPCanvas.gdHorizontal;
{$ELSE}
type
TGradientDirection = (
gdVertical, // Fill vertical
gdHorizontal // Fill Horizontal
);
{$IFEND}
type
TAntialiasingMode = (
amDontCare, // default antialiasing
amOn, // enabled