Bueno, tampoco está mal darse un poco de idea.
Para lo que quieres debes hacer esto:
1) Pones un MenuItem en blanco
a la izquierda de tu menú, o sea, en primer lugar, antes del "Archivo", por ejemplo, llamado MiMenuItem, y en su propiedad
Bitmap asignas tu mapa de bits.
2) Al MenuItem "Archivo" le pones la propiedad
Break=mbBarBreak
3) Pones el MainMenú con la propiedad
OwnerDraw=true
4) Pones este código en el evento
OnAdvancedDrawItem del
MiMenuItem.
Código Delphi
[-]procedure TForm1.MiMenuItemAdvancedDrawItem(Sender: TObject; ACanvas: TCanvas;
ARect: TRect; State: TOwnerDrawState);
begin
ACanvas.StretchDraw(Rect(ARect.Left,ARect.top,ClientWidth,ARect.Bottom),MiMenuItem.Bitmap);
end;
5) Listo!!!!
Espero sea eso lo que querías, ya que no pude ver tu imágen.