在 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;
它运作良好:
但是,每个缩进的段落都使用相同的项目符号。如何根据段落缩进的程度自动使用不同的项目符号?