Problem jest jednak innego typu:
Wcześniej miałem tak:
procedure TmainForm.richEdit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
richEdit1.SelAttributes.name := Panel1.Font.Name;
end;
procedure TmainForm.Panel1Click(Sender: TObject);
begin
FontDialog.Execute;
Panel1.Font.Name := FontDialog.Font.Name;
RichEdit1.SelAttributes.Name := fontDialog.Font.Name; //<-- tez nie dziala.
end;
Potrzebuję czegoś co zmienia czcionkę podczas pisania, czyli piszę sobie w Arialu, klikam na panel wybieram fonta i piszę dalej w inne czcionce. Żeby parę rodzajów czcionek uzyskać w jednej linijce.
Niestety takie kopiowanie atrybutów nie działa.
Gdy wpiszę RichEdit1.font := Panel1.Font.
lub RichEdit1.Font := FontDialog1.Font.
Wtedy cały tekst zamienia się nawet na te bardziej graficzne czcionki.
W skrócie: jak zmieniać czcionkę (tylko czcionkę) podczas pisania, na bieżąco. (wykorzystując FontDialog)