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

lcl: don't set maskbitsperpixel to 0 if no mask present for icon since windows needs mask (#0011585)

Browse Source 
git-svn-id: trunk@15632 -
This commit is contained in:
paul 2008-07-01 00:55:38 +00:00
parent 542dac1b27
commit 1ac3288628
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/icon.inc
View File

@ -613,8 +613,8 @@ begin
// Add image // Add image
IntfImage.GetRawImage(RawImage, True); IntfImage.GetRawImage(RawImage, True);
if not IntfImage.HasMask // Paul: don't set MaskBitsPerPixel to zero => windows will fail with no mask
then RawImage.Description.MaskBitsPerPixel := 0; // Even empty mask is better than no mask. But maybe CreateIconIndirect must be fixed on windows?
with TSharedIcon(FSharedImage) do with TSharedIcon(FSharedImage) do
begin begin
IconImage := GetImagesClass.Create(RawImage); IconImage := GetImagesClass.Create(RawImage);