Schriftart oder drei Spalten Menü

[uligerhardt]

Zitat von binio:

Ich kann leider nicht alle Menüpunkt mit logischen Tastenkombinationen versehen.

Du könntest ja den Menüpunkten einen logischen Shortcut geben, für die du einen findest. Und beim Rest machst du wie die Chinesen:
http://i172.photobucket.com/albums/w3/phwee223/menu.png
D.h. "Eigentlicher Menütext (&1)".

[knochen]

Zitat von uligerhardt:

Öhm - da war doch was mit TScreen.MenuFont?

Das interessiert mich auch. Was genau war denn mit TScreen.MenuFont? Bei mir hat weder das Setzen der Eigenschaft einen Effekt, noch das Setzen von Werten in der Art wie

Screen.MenuFont.Name := 'Courier New';
Screen.MenuFont.Size := 16;

Auch dann nicht, wenn ich diesen Code bereits vor dem Erzeugen des Formulars ausführe.
Wie geht's richtig?

[uligerhardt]

Zitat von knochen:

Das interessiert mich auch. Was genau war denn mit TScreen.MenuFont? Bei mir hat weder das Setzen der Eigenschaft einen Effekt, noch das Setzen von Werten in der Art wie

Screen.MenuFont.Name := 'Courier New';
Screen.MenuFont.Size := 16;

Auch dann nicht, wenn ich diesen Code bereits vor dem Erzeugen des Formulars ausführe.
Wie geht's richtig?

Hab's grad ausprobiert - man muss OwnerDraw auf True setzen. Ein OnDrawItem ist nicht nötig. Das Ganze ist also wohl kein API-Feature.

[binio]

Also die Kombi:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin { TForm1.FormCreate }
  //Schriftart und Schriftgröße
  Screen.MenuFont.Name := 'Courier New';
  Screen.MenuFont.Size := 10;
  mainmenu1.OwnerDraw :=True;
  ...

klappt super !!!
Nur leider hab ich das Problem das ein Text in die Tastenkürzel reinragt (siehe Anhang).