MainMenu ownerdrawn vs. Styles

[striderx]

Ich habe für ein MainMenu mit Ownerdraw / MeasureItem / AdvancedDrawItem die Darstellung angepaßt (vor allem größere Schrift). Das klappt auch wunderbar, bis ich für die Anwendung (VCL) einen Style aktiviere. Dann werden die MenuItems der ersten Ebene nicht mehr korrekt dargestellt (auf den Ebenen darunter ist alles in Ordnung).

Jetzt kann man für ein MainMenu die Styles ja nicht selektiv deaktivieren (zumindest nicht über den Objekt-Inspektor). Hat jemand einen Tipp?

[KodeZwerg]

Versuche mal auf TActionMainMenuBar umzustellen.
Damit sollten Styles funktionieren.

[striderx]

Zitat:

Zitat von KodeZwerg (Beitrag 1473931)

Versuche mal auf TActionMainMenuBar umzustellen.

Auf TActionMainMenuBar bin ich auch schon gestossen, aber ich blicke da überhaupt nicht durch. Abgesehen davon würde das bedeuten, in mehreren Anwendungen ca. 80 MenuItems umzubauen - so reizvoll ist das dann auch nicht unbedingt.

Zitat:

Damit sollten Styles funktionieren.

Sollten? So genau weißt du das also auch nicht? :)


Ansonsten habe ich das hier gefunden:

Delphi-Quellcode:

TStyleManager.SystemHooks := TStyleManager.SystemHooks - [shMenus];

Ich bekomme es nur leider nicht zum funktionieren.

[KodeZwerg]

Ich kann nicht für Deine Delphi Version sprechen. Bei 10.3 bin ich so an styled menus gekommen.
Es ist aufwändiger aber man mag was hinten raus kommt, sprich: es lohnt sich!

how-to-add-submenus-to-tactionmainmenubar-programatically auf stackoverflow zeigt einem wie man dynamisch vorgehen könnte.

Delphi-Quellcode:

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  iActionClientItem : TActionClientItem;
  iSubMenuItem : TActionClientItem;
  iFileAction : TCustomAction;
  iChildMenu : TActionBarItem;
begin
  ActionManager1.AddSeparator( ActionManager1.FindItemByAction(FileExit1), FALSE );
  iActionClientItem := ActionManager1.AddSeparator( ActionManager1.FindItemByAction(FileExit1) );
  iFileAction :=  TCustomAction.Create( self ); // we want to put in same collection
  iFileAction.Caption := 'Fred';
  // etc.. to build what is wanted
  iActionClientItem := ActionManager1.AddAction( iFileAction, iActionClientItem )  ;

  //*********************************
  // Build sub menu (from Fred) - stage 1 add the visual element - a new action bar
  iChildMenu :=  ActionManager1.ActionBars.Add;
  iActionClientItem.ChildActionBar := iChildMenu.ActionBar;

  // we add a dummy entry that we can build from.
  // We could set the properties manually, but when we use the action manager
  // it does that automatically, so it is easier just to set this item to not visible
  // then use action manager to do the rest.
  iSubMenuItem := iActionClientItem.Items.Add;
  iSubMenuItem.Visible := FALSE;

  // Now the real build...

  iFileAction :=  TCustomAction.Create( self ); // we want to put in same collection
  iSubmenuItem := ActionManager1.AddAction( iFileAction, iSubMenuItem );
  iSubmenuItem.Caption := 'Fred 1';
  // etc

  iFileAction :=  TCustomAction.Create( self ); // we want to put in same collection
  iSubmenuItem := ActionManager1.AddAction( iFileAction, iSubMenuItem );
  iSubmenuItem.Caption := 'Fred 2';
  // etc
end;

[striderx]

Das sieht ein wenig gruselig aus. Und das Ganze dann für ca. 80 MenuItems nur um die Schriftgröße anzupassen - nee.

Aber vielen Dank!