diff --git a/lcl/interfaces/carbon/carbonmenus.pp b/lcl/interfaces/carbon/carbonmenus.pp index c93cd20cf0..0382b16c92 100644 --- a/lcl/interfaces/carbon/carbonmenus.pp +++ b/lcl/interfaces/carbon/carbonmenus.pp @@ -582,13 +582,12 @@ begin AHandle := nil; CGImage := nil; - if (ABitmap <> nil) and (ABitmap.Width > 0) and (ABitmap.Height > 0) then + if (LCLMenuItem.HasIcon) and (ABitmap <> nil) and (ABitmap.Width > 0) and (ABitmap.Height > 0) then begin if not CheckBitmap(ABitmap.Handle, SName) then Exit; IconType := kMenuCGImageRefType; - CGImage := - TCarbonBitmap(ABitmap.Handle).CreateMaskedImage(TCarbonBitmap(ABitmap.MaskHandle)); + CGImage := TCarbonBitmap(ABitmap.Handle).CreateMaskedImage(TCarbonBitmap(ABitmap.MaskHandle)); if CGImage <> nil then AHandle := Pointer(CGImage); end;