Moin!
Jo, da ich mein Menu dank des Bugs in den TMenuItem auch selber malen muss, habe ich mein eigenes Design und musste die Farbe auch mal ändern, daher habe ich da eine Lösung:
Delphi-Quellcode:
Procedure Tfrm_FBIIMainForm.SetMainMenuBGColor;
Var
MenuInfo : TMenuInfo;
NewStyle : Boolean;
Begin
NewStyle := GetConfig(CM_NEWMENUSTYLE, Default_NewMenuStyle);
fMenuBrush := TBrush.Create;
If NewStyle Then
fMenuBrush.Color := clWhite
Else
fMenuBrush.Color := clMenu;
MenuInfo.cbSize := SizeOf(MenuInfo);
MenuInfo.hbrBack := fMenuBrush.Handle;
MenuInfo.fMask := MIM_BACKGROUND;
SetMenuInfo(mnu_MainMenu.Handle, MenuInfo);
End;
Ich denke mal in dem Code ist das wichtigste leicht zu erkennen.
Klassik Design
http://www.muetze1.de/images/boards/ClassicStyle.jpg
New Design
http://www.muetze1.de/images/boards/NewStyle.jpg
Menu wird von mir beides selbst gezeichnet. Das mit dem Menuhintergrund sieht man ja auch...
MfG
Muetze1