1

在 Delphi 11 Alexandria 的 Windows 10 中的 32 位 VCL 应用程序中,我使用了新TRichEdit控件。我有以下代码来缩进当前段落:

procedure TformMain.menuitemIndentDecreaseClick(Sender: TObject);
begin
  richeditNotesEditor.Paragraph.FirstIndent := richeditNotesEditor.Paragraph.FirstIndent - 10;
  menuitemIndentDecrease.Enabled := richeditNotesEditor.Paragraph.FirstIndent > 9;
end;

procedure TformMain.menuitemIndentIncreaseClick(Sender: TObject);
begin
  richeditNotesEditor.Paragraph.FirstIndent := richeditNotesEditor.Paragraph.FirstIndent + 10;
  menuitemIndentDecrease.Enabled := True;
end;

它运作良好:

在此处输入图像描述

但是,每个缩进的段落都使用相同的项目符号。如何根据段落缩进的程度自动使用不同的项目符号?

4

0 回答 0