Mudança De Cor

[eldrey]

Pessoal será que alguém conhece algum componente PopupMenu, onde se possa mudar a cor da fonte e a cor do próprio PopupMenu, queria tirar aquele cinza, colocar uma outra cor, será que alguém sabe como fazer?

[s3c]

Olá colega, você pode fazer isso no próprio TPopupMenu.

1-Ative a propriedade OwnerDraw.

2-No evento onDrawItem dos TMenuItem coloque:

ACanvas.Brush.Color := {cor de fundo};

ACanvas.Font.Color := {cor da fonte};

ACanvas.TextRect(ARect, 3, 2, 'Descrição do ítem');

[nightmare]

instale o componente xpmenu, aí vai o link

XpMenu.zip

[Paulo Nobre]

Olá s3c,

Tem certeza que apenas com isso que você colocou consigo colocar as cores

e o texto.

Tentei aqui e os submenus ficaram com ula largura infima.

Você chegou a testar?

Olá Nighmare,

baixei o componente, mas ele parece que só serve até D6, meu delphi é o 7.

Existe, já para o D7?

[s3c]

Olá Paulo, na verdade o código que passei está errado na informação do Top em ACanvas.TextRect.

Só funciona no primeiro ítem. O correto seria:

ACanvas.TextRect(ARect, ARect.Left+3, ARect.Top+2, 'Descrição do Ítem');

[Paulo Nobre]

Obrigado s3c, agora ficou redondinho.