Einzelnen Beitrag anzeigen

Aviator

Registriert seit: 3. Jun 2010
1.611 Beiträge
 
Delphi 10.3 Rio
 
#1

Deaktiviertes TMenuItem wird falsch gezeichnet

  Alt 15. Feb 2015, 19:44
Hallo Leute,
ich habe ein kleines Problem mit einem von mir gezeichneten TMenuItem in einem TPopupMenu. Ich würde gerne erreichen, dass das TMenuItem ähnlich wie z.B. in Excel 2013 gemalt wird.
Praktisch ein Eintrag, der nur eine Rubrik vom Elementen abgrenzen soll. Einfach nur zum schön aussehen.

Das Zeichnen des Items klappt eigentlich auch fast so wie ich es haben möchte.
Allerdings gibt es auch noch 2 Punkte, die noch nicht so funktionieren wie sie sollen:
  1. Der Hintergrund wird nicht gezeichnet. Warum weiß ich nicht. Vielleicht kann mir da noch jemand weiterhelfen.
  2. Das Item, dass als Rubrik gelten soll, wird, beim drüberfahren mit der Maus, grau gemalt. Das Item ist im OI auf Enabled = false gesetzt (damit nicht anklickbar)
Bei letzterem Punkt scheint Windows reinzupfuschen, denn in meiner OnDraw Routine wird immer nur der Zustand gezeichnet, wie es im aktivierten Zustand aussehen sollte.

Hier mal der EventHandler des OnDraw Events:
Delphi-Quellcode:
procedure TfrmMain.OnDrawItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect; Selected: Boolean);
const
  MENUTEXT = 'Benutzeroptionen:';
begin
  if (Sender is TMenuItem) then begin
    if ((Sender as TMenuItem) = pmiN1) then begin
      SetBkMode(ACanvas.Handle, TRANSPARENT);
      ACanvas.Brush.Color := $00EEEEEE;
      ACanvas.FillRect(ARect);
      ilSmall.Draw(ACanvas, 5, ARect.Height DIV 2 - 8, 18);
      ACanvas.Pen.Color := $00777777;
      ACanvas.Brush.Style := bsClear;
      ACanvas.Font.Style := [fsBold];
      ACanvas.TextOut(31, ARect.Height DIV 2 - ACanvas.TextHeight(MENUTEXT) DIV 2, MENUTEXT);
    end;
  end;
end;
Im Anhang befinden sich noch zwei kleine Screenshots des PopupMenus um das Problem zu verdeutlichen. Es handelt sich um das erste Item im Menü. Das erste Bild zeigt das Menü im nicht ausgewählten Zustand. Das zweite im ausgewählten Zustand.

Edit:
Das dritte Bild zeigt, wie es in Excel aussieht. So hätte ich das gerne.
Miniaturansicht angehängter Grafiken
contextnotselected.png   contextselected.png   excel2013.png  
  Mit Zitat antworten Zitat