Hola a Todos:
Ya habia pedido su ayuda para este tema
y me recomendaron usar el evento OnDrawItem y OnMeasureItem
de la opcion para cambiar el tipo de letra,
el problema ahora fue de que trate de poner una imagen
dentro de la opción del menu pero no me la hace visible
por esos eventos, osea que puedo usar las imagenes
pero tengo que conservar el tamaño de
letra original del menu o puedo cambiar el tipo de letra
pero no puedo ver las imagenes que inserte en las opciones.
Ojala Puedan Ayudarme.
Laso opciones quedaban asi
procedure TForm1.Opciones1DrawItem(Sender: TObject;
ACanvas: TCanvas; ARect: TRect; Selected: Boolean);
begin
with ACanvas do
begin
Font.Name:='Arial';
Font.Color:=clblack;
font.Size:=10;
DrawText(Handle,PChar((Sender as TMenuItem).Caption),-1,ARect,DT_VCENTER);
end;
end;
procedure TForm1.Opciones1MeasureItem(Sender: TObject;
ACanvas: TCanvas; var Width, Height: Integer);
begin
Width:=180;
Height:=30;
end;