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

fpvectorial: Fix initialization error in fpvutils.AlphaBlendColor

Browse Source
This commit is contained in:
wp_xyz 2023-01-02 18:28:33 +01:00
parent e9a6b95bef
commit 7274858123
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/fpvectorial/fpvutils.pas
View File

@ -182,8 +182,8 @@ function AlphaBlendColor(AColorBase, AColor: TFPColor): TFPColor;
var
f1, f2: Double;
begin
f1 := 1 - f2;
f2 := AColor.Alpha / alphaOpaque;
f1 := 1 - f2;
Result.Alpha := Round(AColorBase.Alpha * f1 + AColor.Alpha * f2);
Result.Red := Round(AColorBase.Red * f1 + AColor.Red * f2);
Result.Green := Round(AColorBase.Green * f1 + AColor.Green * f2);