Dicas - Colocando banners no Menu

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.

Luciano Pimenta®

Editor Web do Portal ClubeDelphi.NET

webeditor@clubedelphi.net

www.clubedelphi.net