快速报告 - 项目符号文本

Question

有没有办法可以在快速报告 4.13 中添加 tekst？我有一个备忘录字段，我想用项目符号显示。如果不在快速报告中，还有其他可以做到这一点的 delphi 组件吗？

Answer 1

RichText 对象 (TfrxRichView) 支持项目符号文本。

可能自然会提出的问题是如何从代码中创建项目符号列表。嗯，这很容易。您只需将TfrxRichView 对象的内部RichEdit 的当前Paragraph 的Numbering 属性设置为nsBullet。假设您有一个名为 Rich1 的 RichText 对象放在报告 frxReport1 上，您可以使用这样的代码来制作三个项目符号：

uses
  frxClass, frxRich, frxRichEdit;

procedure TForm2.Button1Click(Sender: TObject);
var
  Component: TfrxComponent;
begin
  Component := frxReport1.FindObject('Rich1');
  if Component is TfrxRichView then
  begin
    TfrxRichView(Component).RichEdit.Clear;
    TfrxRichView(Component).RichEdit.Paragraph.Numbering := nsBullet;

    TfrxRichView(Component).RichEdit.Lines.Add('Item 1');
    TfrxRichView(Component).RichEdit.Lines.Add('Item 2');
    TfrxRichView(Component).RichEdit.Lines.Add('Item 3');

    frxReport1.ShowReport;
  end;
end;