Hay que poner la propiedad del
OwnerDraw del
MainMenu a
True.
Y escribir este código en el evento OnDrawItem de la opción del menú que queremos aparezca con distintas carácterísticas.
Código Delphi
[-]
procedure TForm1.TuMenuDrawItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect; Selected: Boolean);
begin
with ACanvas do
begin
Font.Name:='Arial';
Font.Color:=clGreen;
DrawText(Handle,PChar((Sender as TMenuItem).Caption),-1,ARect,DT_VCENTER);
end;
end;
Un Saludo.