![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
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; |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
![]() |
|