• Registered: 2016-07-28
  • Posts: 1,030

Topic: RTF Paste

How to apply the following to when pasting text on RTF component:


procedure frmRepDet_OnShow (Sender: TObject; Action: string);
begin
frmNotes.RichEdit1.Style.TextStyles[0].FontName := 'Segoe UI';
frmNotes.RichEdit1.Style.TextStyles[0].Size := 11;
frmNotes.RichEdit1.Style.TextStyles[0].Color := clBlack;
//frmNotes.RichEdit1.Style.TextStyles[0].Style := fsBold+fsItalic+fsUnderline;
frmNotes.RichEdit1.ApplyTextStyle(0);
end;
Adam
God... please help me become the person my dog thinks I am.
  • Registered: 2016-07-28
  • Posts: 1,030

Re: RTF Paste

In case my question wasn't clear...
What I like to do is apply the above font script, when pasting text from external source into RichEdit component. I don't know how to apply paste action.


In future update, perhaps Dmitry may consider to font size, face, style etc to RichEdit component.properties.

Adam
God... please help me become the person my dog thinks I am.