Definierte Zugriffstasten werden nicht unterstrichen angezeigt

[uligerhardt]

Zitat von gandalf100:

In dem Augenblick, in dem ich einem der Menüpunkte (hier Oeffnen) eine Bitmapgrafik zuordne verschwinden teilweise die Unterstreichungen. Das Zeichen „x“ sei der Platzhalter für die Grafik, die Punkte sollen Leerzeichen darstellen. Eine alternative Zuordnung einer TImageList und Auswahl über den ImageIndex zeigt exakt das identische Phänomen.Im ausgeführten Programm erscheint das Menü wie folgt:

Datei
x...Oeffnen
....Speichern

Die Unterstreichung beim „D“ bleibt erhalten aber bei „O“ und auch beim „S“ sind sie plötzlich verschwunden.
Was mache ich falsch ?

AFAIK machst du nix falsch, sondern die VCL. Die zeichnet schaltet nämlich bei Verwendung von Bitmaps auf Owner-Drawing um und versemmelt es dabei, den Text richtig (d.h. mit Unterstreichungen) zu malen.

[Codehunter]

Funktionieren denn die Shortcuts überhaupt? Also wenn die Bitmaps zugewiesen sind und die Unterstriche nicht gezeichnet werden, was passiert wenn du bei aufgeklapptem Menü "o" oder "s" drückst?

[gandalf100]

Wenn das Menü aufgeklappt ist funktionieren die Shortcuts einwandfrei. Bem Drücken von "O" oder "S" werden die hinterlegten Procedures sauber ausgeführt.

Noch etwas ist merkwürdig:
Wenn das Menü zugeklappt ist (nur Datei ist zu lesen) und ich drücke die ALT Taste, dann wird "Datei" mit einem Rahmen umgeben und wenn man dann das Menü mit der Maus öffnet, erscheinen plötzlich die unterstrichenen Buchstaben. Allerdings ist das nur ein temporäres Verhalten und funktioniert nur 1 mal. Beim erneuten Öffnen des Menüs ist wieder alles beim alten sprich: keine unterstrichenen Buchstaben; erneutes drücken von ALT und beim nächsten Öffnen sind die unterstrichenen Buchstaben wieder da.

[Dalai]

Ich habe dieses Problem mit einem TPopupMenu ebenfalls gehabt und so gelöst:

Delphi-Quellcode:

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

type
  TMainForm = class(TForm)
    procedure popupMenuMainPopup(Sender: TObject);
  end;

var
  ShowAccel : BOOL;


procedure TMyMenuItem.AdvancedDrawItem(ACanvas: TCanvas; ARect: TRect;
      State: TOwnerDrawState; TopLevel: Boolean);
begin
    if ShowAccel AND Assigned(Self.GetParentMenu.Images) then
        State:= State - [odNoAccel];
    inherited;
end;


procedure TMainForm.popupMenuMainPopup(Sender: TObject);
begin
    SystemParametersInfo(SPI_GETMENUUNDERLINES, 0, @ShowAccel, 0);
end;

procedure TMainForm.FormShow(Sender: TObject);
begin
    if Assigned(Self.PopupMenu) then
    begin
      for i:=0 to 8 do
          Self.PopupMenu.Items.Add(TMyMenuItem.Create(Self));
    end;
end;

procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    Self.PopupMenu.Items.Clear;
end;

Ob der Code in der Form funktioniert, weiß ich nicht, weil ich das jetzt aus dem Projekt aus dem verlinkten Thread zusammenkopiert habe. Das Grundprinzip ist aber recht einfach: bei jedem Popup wird der Status der Einstellung ermittelt und in einer globalen Variable gespeichert. Ja, ich weiß, is böse , geht aber an der Stelle nicht anders, weil 2 Klassen auf diese Variable zugreifen können müssen, es sei denn, man manscht das alles zu einer Klasse zusammen, aber man kann's auch übertreiben. Beim Zeichnen eines MenuItems wird der entsprechende Status der Einstellung mit berücksichtigt, weil die VCL das nicht tut.

MfG Dalai

[gandalf100]

Erst mal vielen Dank - ich werd mir das mal in Ruhe anschauen und versuchen das nachzubauen.