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;
|