如何解决Delphi - FastReport 发送内容的richEdit
我已尝试将 Rich Edit 的文本发送到 FastReport,以便将输出保存为 PDF。
我使用了 OnGetValue
procedure TfrmEmediaInvoice.frxReport1GetValue(const VarName: string;
var Value: Variant);
begin
value := redInvoice.Text;
end;
问题是它没有保留标签 #9。
有人可以告诉我将富编辑内容打印或导出为 PDF 的正确方法吗? 谢谢
解决方法
我设法使用自定义制表符间距导出格式化的 Rich Edit 组件的内容。
在 FastReports 中,我使用了 tfrxRichView 框。这个问题是,当你通过 OnGetValue 事件将它发送到 FastReports 时,它失去了它的自定义制表符间距。
我通过将 Rich Edit 的内容保存到 .rtf 文件解决了这个问题
redInvoice.Lines.SaveToFile('Invoice - ' + sInvoice + '.rtf');
然后我在 FastReports tfrxRichView 框中打开了 .rtf 文件。
RichView := TfrxRichView(frxReport1.FindObject('Rich1'));
if RichView = nil then
Exit;
Stream := TMemoryStream.Create;
try
Stream.LoadFromFile('Invoice - ' + sInvoice + '.rtf');
SetLength(Str,Stream.Size);
Stream.Read(Str[1],Stream.Size);
RichView.RichEdit.Text := Str;
finally // wrap up
Stream.Free;
end; // try/finally
最后,我将其导出为 PDF。 “ExportPDF”是我用来保存冗长的导出代码的方法。
frxUserDataSet1.RangeEnd := recount;
frxUserDataSet1.RangeEndCount := redInvoice.Lines.Count;
try
ExportPDF;
Showmessage('Invoice published.');
except
showmessage('Error - Invoice not published.');
end;
是的,您需要在 FastReports 的 MasterData 部分使用 frxUserDataSet。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。