[D2009] MainMenu Hotkey/Unterstriche immer Sichtbar

[KodeZwerg]

Bei mir wäre es eher ALT/F/E bzw ALT+F4.
Guckst Du

Dalai sein Tipp will noch nicht so ganz, irgendwas mache ich da noch falsch.

[Dalai]

Die auf die hier benötigen Teile reduzierte Variante müsste so aussehen:

Delphi-Quellcode:

type TMyMenuItem = class(TMenuItem)
  protected
     procedure AdvancedDrawItem(ACanvas: TCanvas; ARect: TRect;
      State: TOwnerDrawState; TopLevel: Boolean); override;
  end;

implementation

procedure TMyMenuItem.AdvancedDrawItem(ACanvas: TCanvas; ARect: TRect;
      State: TOwnerDrawState; TopLevel: Boolean);
begin
    State:= State - [odNoAccel];
    inherited;
end;

Beachte, dass deine MenuItems von dieser Klasse sein müssen (oder davon abgeleitet). Keine Ahnung, ob Class Helper der neueren Delphis hier helfen könnten (hab ich noch nie benutzt) oder ob man die Klasse TMenuItem einfach redefinieren kann, so dass die erweiterte Klasse denselben Namen hat.

Grüße
Dalai

[KodeZwerg]

Zitat von Dalai:

Beachte, dass deine MenuItems von dieser Klasse sein müssen (oder davon abgeleitet).

Ahhhh da liegt bestimmt mein Fehler, das werde ich mal ausprobieren, Super Tipp für meinen banalen Wunsch nach Unterstrichen.

[Dalai]

Just for the record (und die Nachwelt): Eine PN von KodeZwerg nahm ich zum Anlass, zu graben, warum ich die Funktion TMenuItem.AdvancedDrawItem damals im Delphi 5 überschrieben habe und warum er mit meinem Vorschlag keinen Erfolg verzeichnen kann.

Die Ursache liegt darin, dass die Funktion AdvancedDrawItem nur gerufen wird, wenn einem TMenu/TPopupMenu eine TImageList zugewiesen ist, oder TMenu.OwnerDraw:= True ist. Siehe z.B. auch dieser Uralt-Thread in den Delphigroups. Für ein TMenu/TPopupMenu ohne ImageList und ohne OwnerDraw bringt mein Vorschlag keine Veränderung (=nichts).

Sollte also jemand versuchen, meinen Vorschlag umzusetzen und sich wundern, warum er nicht tut, so liegt es daran. Das wollte ich nur festgehalten haben. Es gibt aber andere Wege, z.B. der über WndProc.

Grüße
Dalai

[KodeZwerg]

*entfernt*

Da war der Wurm drinnen.

[Dalai]

Damit schaltest du aber die Menu Accelerators global für ALLE Programme ein! Du änderst also in deinem Programm eine Systemeinstellung, die der Nutzer evtl. explizit ausgeschaltet hat.

Grüße
Dalai

[KodeZwerg]

Ja, das habe ich gerade auch feststellen müssen, habe den gefährlichen Beitrag entfernt. Ein setzen auf False mit dem entfernten Beitrag funktioniert nicht, ich lasse es bleiben, soll halt nicht sein. Sicher werde ich noch rumprobieren aber viel Hoffnung seh ich da nicht für mich. Die Links habe ich ja, Danke dafür, werde es nochmal Superlangsam mir auf der Zunge zergehen lassen, vielleicht finde ich ja noch raus was bei mir falsch ist, oder auch nicht.

Danke fürs Lesen.

[Dalai]

Das mit der WncProc müsste tun, aber du musst den Code natürlich deinen Bedürfnissen anpassen. Das SystemParametersInfo kannst du dir komplett sparen, weil du die Anzeige ja (vorerst) erzwingen willst. Du müsstest den Code so gestalten, dass pauschal ODS_NOACCEL aus dem Set pDIS^.itemState entfernt wird. Vielleicht so:

Delphi-Quellcode:

procedure TYourForm.WndProc(var Message: TMessage);
const
  ODS_NOACCEL = $100;
var
  pDIS: PDrawItemStruct;
begin
  if (Message.Msg = WM_DRAWITEM) then begin
    pDIS := PDrawItemStruct(Message.LParam);
    if (pDIS^.CtlType = ODT_MENU) then begin
        pDIS^.itemState := pDIS^.itemState and not ODS_NOACCEL;
    end;
  end;
  inherited;
end;

ODT_MENU steht allerdings für Owner-drawn menu. Insofern kann es sein, dass das genau wie der Weg via AdvancedDrawItem nur funktioniert, wenn OwnerDraw:= True ist. Weiß nicht, was MS als Owner-drawn bezeichnet, und ob das von dem abweicht, was die VCL als Owner-drawn sieht.

Grüße
Dalai

[KodeZwerg]

Das klappt!!! Ich war da echt zu doof für.

Super Sache das!

[Dalai]

Kein Ding, jeder steht mal auf dem Schlauch oder auf welchem Objekt der Flüssigkeitszuführung auch immer . Freut mich, wenn es tut, denn getestet habe ich den Code nicht . Den Einbau der Programmoption in Abhängigkeit von der Systemeinstellung bekommst du ja sicherlich selber hin.

Grüße
Dalai