Como adicionar imagem e mudar fonte do menu?

Question

Colegas eu n�o tenho muito conhecimento com canvas, j� procurei na web algum m�terial, mas n�o obtive sucesso.

Eu queria adicionar uma imagem do imageList e alterar a fonte do item do menu. tentei utilizar o evento onDrawItem do menu, mas consegui!

Como posso resolver esse problema?

Atenciosamente,
Pestana.

Pestana_ · Answer

[quote:230ebac6b2=�Pestana_�]mas consegui![/quote:230ebac6b2]corrigindo:mas [b:230ebac6b2]n�o[/b:230ebac6b2] consegui!...

Pestana_ · Answer

UP...

Dbergkamps10 · Answer

Ol�,[quote:9be2b9262b]Eu queria adicionar uma imagem do imageList[/quote:9be2b9262b]Seria isso: [code:1:9be2b9262b]ImageList1.Add(�c:imagem.bmp�);[/code:1:9be2b9262b][quote:9be2b9262b]alterar a fonte do item do menu[/quote:9be2b9262b]Seria isso://www.geocities.com/SiliconValley/8055/menu.zipEspero ter ajudadoAttDalton[/code]...

Pestana_ · Answer

bom, n�o � muito bem isso, eu queria que o item do TMainMenu ficasse com uma fonte diferente, por ex.: verdana, vou ver se consigo encontrar mais alguma coisa na web.valeu!...

Pestana_ · Answer

tentei assim, mas n�o resolveu:setei para true a propriedade OwnerDraw do TMainMenu.[code:1:e4c13c70e8]procedure TfrmPrincipal.N1DrawItem(Sender: TObject; ACanvas: TCanvas;  ARect: TRect; Selected: Boolean);begin   ACanvas.Font.Color  := clBlack;   ACanvas.Font.Name   := �verdana�;end;[/code:1:e4c13c70e8]...

Dbergkamps10 · Answer

Ol�,O exemplo q eu peguei o link e postei ta funfando blz.... :lol:  :lol:  :lol: AttDalton...

Pestana_ · Answer

resolvi fazendo desta maneira:[code:1:d1fd1c39c0]procedure TfrmPrinc.N1DrawItem(Sender: TObject; ACanvas: TCanvas;  ARect: TRect; Selected: Boolean);begin   ACanvas.Brush.Color := clMenuBar;   ACanvas.Font.Color  := clNavy;   ACanvas.Font.Name   := �verdana�;   ACanvas.TextRect(ARect, 30, ARect.Top+3, �Texto...�);   imglstAtivo.Draw(ACanvas, 8, ARect.Top+1, 25);end;[/code:1:d1fd1c39c0]valeu dbergkamps10 pela aten��o!...

F�rum Como adicionar imagem e mudar fonte do menu? #367525