[D2009] MainMenu Hotkey/Unterstriche immer Sichtbar

[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

[KodeZwerg]

Zitat von 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

Es ist bereits über ein Boolean realisiert, default bei mir ist erstmal mit Striche. Ich muss noch ein wenig herum suchen wie ich die Farbe von selektierten Eintrag ändern kann, im OwnerDraw ist Hauptmenu selektionsfarbe vom Hintergrund dunkelblau, im nicht-OwnerDraw wird Windows Theme Farbe verwendet (Untermenu ist anscheinend immer Themed, bei mir so babyblau). Das stört mich noch nicht, wichtiger war mir der permanente Strich da ich je nach Auswahl in Filebox andere Hauptmenu Einträge einblende die halt eigene Hotkeys haben.

Falls es jemand auch so haben möchte, hier zur Vollständigkeit noch mal der Code von Dalai/SO in funktionstüchtig:

Delphi-Quellcode:

type
  TfrmMain = class(TForm)
    ....
    ....
    ....
  protected
    procedure WndProc(var Message: TMessage); override;
  end;

implementation

procedure TfrmMain.WndProc(var Message: TMessage);
const
  ODS_NOACCEL = $100; // <- neuere Delphis könnten das eventuell bereits in Windows.pas haben, meines nicht.
var
  pDIS: PDrawItemStruct;
begin
  if EineCheckBox.Checked then // <- das ist ein Boolean aus Konfiguration für On/Off
   begin
     if (Message.Msg = WM_DRAWITEM) then
      pDIS := PDrawItemStruct(Message.LParam);
      if (pDIS^.CtlType = ODT_MENU) then
       pDIS^.itemState := pDIS^.itemState and not ODS_NOACCEL;
   end;
  inherited;
end;

Screenshot - 27.08.2018 , 20_33_24.png Hier eine Vorschau was euch erwartet.

[Dalai]

Bis auf den direkten Vergleich des Boolean mit dem True sieht das soweit gut aus.

Dass die Owner-drawn Menus eine andere Farbe und auch Markierungsfarbe (und ggf. weitere abweichende Farben) haben, ist völlig normal. Wird eben auf eine andere Art gezeichnet.

Grüße
Dalai