FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
obtener color de FontDialog1
La idea es conseguir el codigo de color, si está en negrita, si está en cursiva y el tamaño de la letra de un FontDialog1. Solo consigo el nombre de la fuente con la orden edit1.text:=RichEdit1.SelAttributes.Name.
Alguna idea ? Gracias procedure TForm1.SelectFont(Sender :TObject); begin FontDialog1.Font.Assign(RichEdit1.SelAttributes); if (FontDialog1.Execute) then RichEdit1.SelAttributes.Assign( FontDialog1.Font ); edit1.text:= RichEdit1.SelAttributes.Name; RichEdit1.SetFocus; end; |
|
|
|