Deaktiviertes TMenuItem wird falsch gezeichnet

[Aviator]

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.

[himitsu]

Zitat von Aviator:

1. Der Hintergrund wird nicht gezeichnet. Warum weiß ich nicht.

Vielleicht durch das TRANSPARENT?

[Aviator]

Zitat von himitsu:

Vielleicht durch das TRANSPARENT?

Nein, damit hatte es leider auch nichts zu tun. Andere Ideen? Vielleicht auch für mein anderes Problem?

[hemmingway]

TStyleManager.SystemHooks := [];

könnte helfen. Ist das so?

[Aviator]

Zitat von hemmingway:

TStyleManager.SystemHooks := [];

könnte helfen. Ist das so?

Hi, ist vielleicht nicht direkt ersichtlich, aber hier geht es nur um VCL. TStyleManager wird ja so viel wie ich weiß nur in FMX verwendet, lasse mich aber gern eines besseren belehren.

[Redeemer]

ACanvas.Font.Color := $00777777; ?