David Duffy

Use the Bass audio library (DLLs) ?

I've not found that to be the case on my machines.

Maybe take a look at the Bass audio library?

No idea sorry. I would guess most users set up the printer once.

Do you really need to change the port for the printer, or do you want to select a specific printer to print to?

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?