paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-06 06:09:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

Win32: comments regarding issue #0037105.

Browse Source 
git-svn-id: trunk@63241 -
This commit is contained in:
bart 2020-05-28 16:44:59 +00:00
parent 0d191847d7
commit f6a9533a52
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -470,16 +470,17 @@ begin
Windows.SendMessage(BitBtnHandle, BCM_SETIMAGELIST, 0, LPARAM(@ButtonImageList));
end else
begin
//unthemed
OldBitmap := HBITMAP(Windows.SendMessage(BitBtnHandle, BM_GETIMAGE, IMAGE_BITMAP, 0));
if NewBitmap <> 0 then
DrawBitmap(BitBtnEnabledToButtonState[IsWindowEnabled(BitBtnHandle) or (csDesigning in BitBtn.ComponentState)], False, False);
Windows.SendMessage(BitBtnHandle, BM_SETIMAGE, IMAGE_BITMAP, LPARAM(NewBitmap));
if OldBitmap <> 0 then
DeleteObject(OldBitmap);
//Don't do a DeleteObject(NewBitmap) here: if you do, there will be no glyph and caption on the button.
//We release the bitmap upon WM_Destroy. Issue #0037105
end;
DeleteDC(hdcNewBitmap);
{ if NewBitmap <> 0 then
DeleteObject(NewBitmap);}
ReleaseDC(BitBtnHandle, BitBtnDC);
BitBtn.Invalidate;
end;
@ -519,6 +520,7 @@ begin
end;
end else
begin
//unthemed BitBtn
OldBitmap := HBITMAP(Windows.SendMessage(Window, BM_GETIMAGE, IMAGE_BITMAP, 0));
if OldBitmap <> 0 then
DeleteObject(OldBitmap);