David Duffy

I have it working nicely with fixed colours. Having it theme aware would have been nice but is not a real issue. It was more about learning.

OK, is there a way to get the ActiveStyle another way in XE ?

Is TStyleManager available in Delphi XE ?

@nglthach what was the component / solution you posted the image of?

I think TMS have a menu that can do that.

Yes, sorry I didn't realise at the time of posting that it was specific to the TMS version.

It was and by a very smart guy! 😄

My guess is that the greyed out ones have TabStop set to false.

Here's the code: procedure TfmMain.UpdateHelpMenu; var MI: TMenuItem; x: Integer; begin while mnShortcutList.Count > 0 do mnShortcutList.Delete(0); for x := 0 to Prefs.Shortcuts.Count-1 do begin MI := TMenuItem.Create(mnShortcutList); MI.Caption := Prefs.Shortcuts[x].HelpCaption; MI.ShortCut := Prefs.Shortcuts[x].Shortcut; mnShortcutList.Add(MI); end; end;

Hi all, In my Delphi XE application I have a main menu and some of the menu items have a sub menu. The sub menus that are created at design time are aligned to the parent menu item correctly, but the ones I create in code always have a gap between the menu item and the sub menu. Is there some other property of the sub menu items I need to set apart from owner and parent to get them to display correctly?