Dicas - Colocando banners no Menu

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (1)  (0)

Veja nesta dica, como adicionar um "banner" em um componente MainMenu e PopupMenu.

Colocando banners no Menu

 

Vamos adicionar em um menu, uma imagem no estilo “banner”. Para isso, adicione no formulário um Image e carregue uma imagem de sua preferência. Selecione todos os itens do menu e no evento OnDrawItem digite o seguinte código:

 

procedure TForm1.Exit1DrawItem(Sender: TObject;

  ACanvas: TCanvas; ARect: TRect; Selected: Boolean);

begin

  ACanvas.FillRect(ARect);

  ACanvas.TextOut(ARect.Left+48, ARect.Top,

    StripHotkey((Sender as TMenuItem).Caption));

  ACanvas.Draw(0, 0, Image1.Picture.Graphic);

  ImageList1.Draw(ACanvas, ARect.Left+30, ARect.Top,

    (Sender as TMenuItem).ImageIndex);

end;

 

Rode e teste a aplicação (Figura). A dica mostrada com o MainMenu se estendem ao PopupMenu.

Menu.gif 

 

Luciano Pimenta®

Editor Web do Portal ClubeDelphi.NET

webeditor@clubedelphi.net

www.clubedelphi.net

 

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Ficou com alguma dúvida?