Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   cambiar el color de un mainmenu (https://www.clubdelphi.com/foros/showthread.php?t=30732)

tato 17-04-2006 07:40:30

cambiar el color de un mainmenu
 
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 17-04-2006 15:02:44

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:D

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 18-04-2006 02:30:45

duda
 
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 18-04-2006 03:07:41

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

Saludos.


La franja horaria es GMT +2. Ahora son las 19:14:14.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi