RTF issue in TRichViewEdit when created run-time
Posted: Thu May 22, 2025 1:08 pm
This code works perfectly:
This loads RTF file without font styles (like plain text):
Any idea is appreciated.
Code: Select all
begin
MyRichView.Style := RVStyle1;
OpenDialog1.DefaultExt:='rtf';
OpenDialog1.Filter:='RTF Document (*.rtf)|*.rtf';
if OpenDialog1.Execute then
begin
MyRichView.Clear;
MyRichView.LoadRTF(OpenDialog1.FileName);
MyRichView.Format;
end;
end;
Code: Select all
var
MyRichView: TRichViewEdit;
begin
MyRichView := TRichViewEdit.Create(Self);
MyRichView.Parent := Self;
MyRichView.Align := alClient;
MyRichView.Style := RVStyle1;
OpenDialog1.DefaultExt:='rtf';
OpenDialog1.Filter:='RTF Document (*.rtf)|*.rtf';
if OpenDialog1.Execute then
begin
MyRichView.Clear;
MyRichView.LoadRTF(OpenDialog1.FileName);
MyRichView.Format;
end;
end;