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

win32 interface: fixed bitmap drawing in menu items (issue #7427) from Martin Smat

Browse Source 
git-svn-id: trunk@10006 -
This commit is contained in:
vincents 2006-09-30 09:58:05 +00:00
parent 0c307f6bf0
commit 4261b2aceb
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/interfaces/win32/win32wsmenus.pp
View File

@ -395,11 +395,10 @@ procedure DrawMenuItemIcon(const aMenuItem: TMenuItem; const aHDC: HDC; const aR
var hdcMem: HDC;
hbmpOld: HBITMAP;
begin
hdcMem := CreateCompatibleDC(aHDC);
hdcMem := aMenuItem.Bitmap.Canvas.Handle;
hbmpOld := SelectObject(hdcMem, aMenuItem.Bitmap.Handle);
TWin32WidgetSet(WidgetSet).MaskBlt(aHDC, aRect.left + LeftIconPosition, aRect.top + TopPosition(aRect.bottom - aRect.top, aMenuItem.Bitmap.Height), aMenuItem.Bitmap.Width, aMenuItem.Bitmap.Height, hdcMem, 0, 0, aMenuItem.Bitmap.MaskHandle, 0, 0);
SelectObject(hdcMem, hbmpOld);
DeleteDC(hdcMem);
end;
procedure DrawMenuItem(const aMenuItem: TMenuItem; const aHDC: HDC; const aRect: Windows.RECT; const aSelected: boolean);