MainMenu Schriftfarbe

[Nils_13]

Hi,

bei einem Hauptmenü (TMainMenu) kann man die Hintergrund Farbe abändern (in dem Fall schwarz):

Delphi-Quellcode:

procedure TForm1.SetMainMenuBGColor;
var
  MenuInfo : TMenuInfo;  
  fMenuBrush : TBrush;
begin
  fMenuBrush := TBrush.Create;   
  fMenuBrush.Color := clBlack;    

  MenuInfo.cbSize  := SizeOf(MenuInfo);    
  MenuInfo.hbrBack := fMenuBrush.Handle;  
  MenuInfo.fMask   := MIM_BACKGROUND;       
  SetMenuInfo(MainMenu1.Handle, MenuInfo); 
end;

Aber wie kann ich die Schriftfarbe in weiß statt schwarz verwandeln ?