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 ?

[marabu]

Hallo Nils,

probiere es so:

Delphi-Quellcode:

uses 
  Windows;

var
  e: Integer;
  rgb: TColorRef;

begin
  e := COLOR_MENUTEXT;
  rgb := clWhite;
  SetSysColors(1, e, rgb);
end;

Grüße vom marabu

[Nils_13]

Ahhhhhhhhhhhhhhhhhhhhhh!

Ich sehe nur noch weiß !!!

Wie kann ich das rückgänig machen ?

[Rastaman]

Indem du clWhite mit clBlack ersetzt

[Nils_13]

@rastaman: Hälst du mich für dumm ? Hat nichts gebracht, der neustart war die einzige Lösung, gut wieder schwarz.

Also : Ich möchte nur das MainMenu in meinen Programm verändern.

[marabu]

Nils, es ist tatsächlich so, wie Rastaman geschrieben hat - und wenn eine Antwort auf deine Fragen hier im Forum mal nicht hundertprozentig passt, dann komme bloß nicht auf die Idee, es könnte an deiner ungenau formulierten Frage gelegen haben.

Das MainMenu deiner Form wird vom window manager gezeichnet. Ein Benutzer sollte sich unter Windows darauf verlassen können, dass es so aussieht, wie er es in den desktop color settings festgelegt hat. Auch die Funktionsweise darf nicht verändert werden. Wenn du dich über diese Regeln hinweg setzen willst, warum verwendest du dann Windows?

Freundliche Grüße vom marabu

[Nils_13]

Ähh was ? Ich kann mir meinem Menü machen was ich will.
In vielen Programmen ist ein richtiges Design aufgetaucht, das nichts mit Windows zu tun hat und keinen Schaden anrichtet.

[mirage228]

Hi,

Dann zeiche "dein" Menü einfach selbst. Entweder über OwnerDraw, falls verfübgar, oder mittels Komponenen wie Toolbar2000, wo Du komplett eigenen Styles erstellen kannst.

mfG
mirage228

[Nils_13]

Seit wann geht das ? Ich konnte bisher immer nur die fertigen nehmen.

[mirage228]

Zitat von Nils_13:

Seit wann geht das ? Ich konnte bisher immer nur die fertigen nehmen.

Du musst TBX installieren, dort kannst du dir ja mal die mitgelieferten Style-Dateien ("Stripes" und "OfficeXP" z.B.) anschauen und herausfinden, wie du deinen eigenen Style kreierst

mfG
mirage228