Hola! a ver si te sirve. En la propiedad OwnerDraw del menu la pones en true.
Luego en el evento OnDrawItem (creo que es) de cada item del menu pones esto..es decir lo haces una sola vez..y le linkeas a todos el mismo no..je
Código Delphi
[-]
begin
with ACanvas do
begin
Font.Name:='Arial';
Font.Size:=8;
Font.Pitch:=fpFixed;
Font.Color:=clBlack;
If not Selected then
Brush.Color:=clWhite
else
Brush.Color:=colorForm;
FillRect(ARect);
DrawText(Handle,PChar((Sender as TMenuItem).Caption),-1,ARect,DT_VCENTER);
end;
end;
Aqui se trabaja con el canvas..fijate que le podes cambiar el color la letra..que se ponga de un color si esta seleccionado..etc.
Exitossss
LA PATRIA SERA LIBRE!