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