From 2801ad9f1ca98f97d0674a1523beefbecb2fd1a4 Mon Sep 17 00:00:00 2001
From: ondrej <ondrej@lazarus-ide.org>
Date: Sun, 4 Feb 2018 00:28:49 +0000
Subject: [PATCH] LCL: menu item: don't store bitmap if ImageIndex is assigned

git-svn-id: trunk@57243 -
---
 lcl/include/menuitem.inc | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lcl/include/menuitem.inc b/lcl/include/menuitem.inc
index 9afae15000..a3c0ea7a0f 100644
--- a/lcl/include/menuitem.inc
+++ b/lcl/include/menuitem.inc
@@ -561,7 +561,8 @@ begin
   else Result :=
      FBitmapIsValid and
      (FBitmap <> nil) and (not FBitmap.Empty) and
-     (FBitmap.Width > 0) and (FBitmap.Height > 0);
+     (FBitmap.Width > 0) and (FBitmap.Height > 0) and
+     (ImageIndex < 0);
 end;
 
 {------------------------------------------------------------------------------