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

LCL-Win32: Fixed blending of semi-transparent pixels of BitBtn glyph. Makes it consistent with TImage and SpeedButtons, issue #38897.

Browse Source
This commit is contained in:
Maxim Ganetsky 2023-11-27 02:28:48 +03:00
parent cbf59cc75a
commit 3fda0a9be8
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/interfaces/win32/win32wsbuttons.pp
View File

@ -189,17 +189,19 @@ var
OldFontHandle := SelectObject(TmpDC, BitBtn.Font.Reference.Handle);
OldTextAlign := GetTextAlign(TmpDC);
// clear background:
// for alpha bitmap clear it with $00000000 else make it solid color for
// further masking
if PaintBuffer = 0 then
begin
// Make background solid color for further masking.
Windows.FillRect(TmpDC, BitmapRect, GetSysColorBrush(COLOR_BTNFACE));
Color := BitBtn.Font.Color;
if Color = clDefault then
Color := BitBtn.GetDefaultColor(dctFont);
SetTextColor(TmpDC, ColorToRGB(Color));
end;
end
else
// Bitmap has alpha and themes are enabled, therefore BitmapRect is already initialized with $00000000.
// Fill glyph area with solid background to correctly blend semi-transparent pixels, issue #38897.
Windows.FillRect(TmpDC, Rect(XDestBitmap, YDestBitmap, XDestBitmap + glyphWidth, YDestBitmap + glyphHeight), GetSysColorBrush(COLOR_BTNFACE));
if AState <> bsDisabled then
begin