Como adicionar imagem e mudar fonte do menu?

Delphi

05/01/2009

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_

Pestana_

Curtidas 0

Respostas

Pestana_

Pestana_

05/01/2009

mas consegui!


corrigindo:
mas [b:230ebac6b2]não[/b:230ebac6b2] consegui!


GOSTEI 0
Pestana_

Pestana_

05/01/2009

UP


GOSTEI 0
Dbergkamps10

Dbergkamps10

05/01/2009

Olá,
Eu queria adicionar uma imagem do imageList

Seria isso: 
ImageList1.Add(´c:\imagem.bmp´);


alterar a fonte do item do menu

Seria isso:
http://www.geocities.com/SiliconValley/8055/menu.zip
Espero ter ajudado
Att
Dalton[/code]


GOSTEI 0
Pestana_

Pestana_

05/01/2009

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!


GOSTEI 0
Pestana_

Pestana_

05/01/2009

tentei assim, mas não resolveu:

setei para true a propriedade OwnerDraw do TMainMenu.
procedure TfrmPrincipal.N1DrawItem(Sender: TObject; ACanvas: TCanvas;
  ARect: TRect; Selected: Boolean);
begin
   ACanvas.Font.Color  := clBlack;
   ACanvas.Font.Name   := ´verdana´;
end;



GOSTEI 0
Dbergkamps10

Dbergkamps10

05/01/2009

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

Att
Dalton


GOSTEI 0
Pestana_

Pestana_

05/01/2009

resolvi fazendo desta maneira:

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;


valeu dbergkamps10 pela atenção!


GOSTEI 0
POSTAR