Graue Farbe neben den Menüitems ändern? (XPMenu)

[Muetze1]

Moin!

Ich arbeite mit Delphi 5 und 7 aber für mein Projekt darf ich nur Delphi 5 nutzen, daher nix mit den ActionBands...

Delphi-Quellcode:

Procedure Tfrm_FBIIMainForm.SetMainMenuBGColor;
Var
  MenuInfo : TMenuInfo;  // Struktur für die SetMenuInfo() Funktion der WinAPI
Begin
    // du musst dir eine globale Variable anlegen namens fMenuBrush. Diese Variable enthält einen Brush
    // der so lange existieren sollte wie das Menu angezeigt wird, weil die Menufunktion beim malen immer
    // auf das Brush Handle zugreift.
  fMenuBrush := TBrush.Create;   // ok, diesen Brush einmal anlegen
  fMenuBrush.Color := clWhite    // Farbe zuweisen die das Menu haben soll

    // die MenuInfo Struktur füllen
  MenuInfo.cbSize  := SizeOf(MenuInfo);    // die WinAPI will die Grösse der Struktur eingetragen haben
  MenuInfo.hbrBack := fMenuBrush.Handle;   // dann will sie das Brush Handle haben zum malen
  MenuInfo.fMask   := MIM_BACKGROUND;      // dann müssen wir noch angeben, das dies für den Hintergrund ist
  SetMenuInfo(mnu_MainMenu.Handle, MenuInfo);  // nun für unser TMainMenu namens mnu_MainMenu den Hintergrundbrush setzen
End;

MfG
Muetze1