cambiar el color de un mainmenu

[tato]

Hola a todos, me podrian decir si hay alguna forma de cambiar el color del mainmenu, la verdad es que he tratado de hacerlo, pero no he podido. Agradesco cualquier ayudaque me puedan dar gracias

[reina]

Hola! a ver si te sirve. En la propiedad OwnerDraw del menu la pones en true.
Luego en el evento OnDrawItem (creo que es) de cada item del menu pones esto..es decir lo haces una sola vez..y le linkeas a todos el mismo no..je

Código Delphi [-]
begin
    with ACanvas do
    begin
         Font.Name:='Arial';
         Font.Size:=8;
         Font.Pitch:=fpFixed;
         Font.Color:=clBlack;
  
        If not Selected then
             Brush.Color:=clWhite
        else
             Brush.Color:=colorForm;
         FillRect(ARect);
      DrawText(Handle,PChar((Sender as TMenuItem).Caption),-1,ARect,DT_VCENTER);
    end;
end;

Aqui se trabaja con el canvas..fijate que le podes cambiar el color la letra..que se ponga de un color si esta seleccionado..etc.
Exitossss

LA PATRIA SERA LIBRE!

[tato]

hola raina, tu consejo me sirve en cierta forma, pero yo en realidad estoy buscando que todo el menu, me cambie de color, y no solo item por item, pues aunque cambien el color de todos estos, simpre me va quedar una porcion de menu de un color diferente. de casualidad no conoces y lo que yo quiero hacer se puede o no; gracias por tu ayuda, de antemano

[[egostar]]

Checa este link, ahi hay un componente que te puede ayudar con lo que necesitas Torry.net

Saludos.