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

use mask enabled drawing functions

Browse Source 
git-svn-id: trunk@6482 -
This commit is contained in:
micha 2005-01-05 10:04:22 +00:00
parent 4d130c0508
commit 2837a6b930
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/buildlazdialog.pas
View File

@ -778,7 +778,10 @@ begin
DestRect.Top:=ARect.Top+((ARect.Bottom-ARect.Top-IconHeight) div 2);
DestRect.Right:=DestRect.Left+IconWidth;
DestRect.Bottom:=DestRect.Top+IconHeight;
ItemsListBox.Canvas.CopyRect(DestRect,CurIcon.Canvas,IconRect);
StretchMaskBlt(ItemsListBox.Canvas.Handle,
DestRect.Left, DestRect.Top, IconWidth, IconHeight,
CurIcon.Canvas.Handle, 0, 0, IconWidth, IconHeight,
CurIcon.MaskHandle, 0, 0, SRCCOPY);
end;
inc(x,ButtonWidth);
end;