Menu Fontsize mit VCL-Styles

[Harry Stahl]

Gibt es einen einfachen Weg, um bei Verwendung der VCL-Styles auch den Font der Menu-Items zu vergrößern?

Wenn keine Styles verwendet werden, reicht es per

Delphi-Quellcode:

Screen.MenuFont.Name := 'Arial';
Screen.MenuFont.Size := 9;

sein Ziel zu erreichen. Bei Verwendung von Styles werden die Menuitems immer in Font-Größe 8 gezeichnet. Ich würde ungern in eine Ownerdraw-Lösung gehen wollen...

Für das aktuell bearbeite Projekt verwende noch Delphi XE7.

[Harry Stahl]

Zitat:

Zitat von Frühlingsrolle (Beitrag 1452967)

Guten Abend Harry Stahl,

der indirekte Weg wäre über CreateFont() & WM_SETFONT jedoch bezweifle ich, dass Screen ein Handle vorweist.
Wieso greifst du überhaupt auf Screen zurück?

Was meinst Du mit indirekten Weg? Wo und wie müsste man CreateFont aufrufen?

Warum ich darauf zugreife? Weil ich eben keinen anderen Weg kenne, um die Fontgröße bei Verwendung der VCL-Styles größer zu kriegen (außer mit eigenem Ownerdraw, was ich derzeit notgedrungen mache, ist mir aber zu fummelig und zu umständlich)...