diff --git a/lcl/interfaces/win32/win32wsmenus.pp b/lcl/interfaces/win32/win32wsmenus.pp index 3ec0a38605..4ea943ba2e 100644 --- a/lcl/interfaces/win32/win32wsmenus.pp +++ b/lcl/interfaces/win32/win32wsmenus.pp @@ -656,8 +656,6 @@ begin end; Tmp := ThemeServices.GetElementDetails(tmPopupGutter); ThemeServices.DrawElement(AHDC, Tmp, GutterRect, nil); - // draw menu item - ThemeServices.DrawElement(AHDC, Details, ARect, nil); if AMenuItem.IsLine then begin @@ -679,6 +677,8 @@ begin end else begin + // draw menu item + ThemeServices.DrawElement(AHDC, Details, ARect, nil); // draw check/image if AMenuItem.HasIcon then begin