[jymy788]

Estoy trabajando con delphi 5. El código donde lo estoy probando es solo un formulario con un mainmenu con dos items y lo hice como me dijiste:

procedure TForm1.primero1DrawItem(Sender: TObject; ACanvas: TCanvas;
ARect: TRect; Selected: Boolean);
begin
with ACanvas do
begin
Font.Name:='Arial';
Font.Color:=clRed;
DrawText(Handle,PChar((Sender as TMenuItem).Caption),-1,ARect,DT_VCENTER);
end;
end;

Pero a veces cambia el font y deja de funcionar y otras veces ni lo cambia.

No sé que hacer pero no me gustaría tener que probar algún otro componente.