FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Cambiar Letra en el Menu y conservar la Imagen
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;
__________________
Saludos Alonso |
|
|
|