UPD: set Application.ShowMenuGlyphs as the main switch for IconsInMenu to avoid inconsistencies across menus.

This commit is contained in:
rich2014 2026-04-05 18:36:01 +08:00
commit ea416ee321

View file

@ -3214,6 +3214,10 @@ begin
gCustomIcons := TCustomIconsMode(GetValue(Node, 'CustomIcons', Integer(gCustomIcons)));
gIconsInMenus := GetAttr(Node, 'ShowInMenus/Enabled', gIconsInMenus);
gIconsInMenusSize := GetValue(Node, 'ShowInMenus/Size', gIconsInMenusSize);
if gIconsInMenus then
Application.ShowMenuGlyphs:= sbgAlways
else
Application.ShowMenuGlyphs:= sbgNever;
Application.ShowButtonGlyphs := TApplicationShowGlyphs(GetValue(Node, 'ShowButtonGlyphs', Integer(Application.ShowButtonGlyphs)));
end;