GitHub-Mirror/x2utils
1
0
Fork 0
mirror of synced 2024-12-22 17:23:07 +01:00
Code Issues Projects Releases Wiki Activity

Fixed: BlendColors was off by 1 level for each channel (shr 8 = div 256, not div 255 dummy!)

Browse Source
This commit is contained in:
Mark van Renswoude 2006-03-19 14:50:39 +00:00
parent d96cbe45a4
commit 5a274c11ef
1 changed files with 19 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
X2UtGraphics.pas
View File

@ -164,19 +164,28 @@ function BlendColors(const ABackground, AForeground: TColor;
var
cBack: Cardinal;
cFore: Cardinal;
bBack: Byte;
iBack: Integer;
iFore: Integer;
begin
if AAlpha = 0 then
Result := ABackground
else if AAlpha = 255 then
Result := AForeground
else
begin
cBack := ColorToRGB(ABackground);
cFore := ColorToRGB(AForeground);
bBack := 255 - AAlpha;
iBack := 256 - AAlpha;
iFore := Succ(AAlpha);
Result := RGB(((GetRValue(cBack) * bBack) +
(GetRValue(cFore) * AAlpha)) shr 8,
((GetGValue(cBack) * bBack) +
(GetGValue(cFore) * AAlpha)) shr 8,
((GetBValue(cBack) * bBack) +
(GetBValue(cFore) * AAlpha)) shr 8);
Result := RGB(((GetRValue(cBack) * iBack) +
(GetRValue(cFore) * iFore)) shr 8,
((GetGValue(cBack) * iBack) +
(GetGValue(cFore) * iFore)) shr 8,
((GetBValue(cBack) * iBack) +
(GetBValue(cFore) * iFore)) shr 8);
end;
end;