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;
God... please help me become the person my dog thinks I am.