delphi - 缩进项目符号

Question

我对编程如此陌生还不够糟糕；本周我进行了比以往更多的 Google 搜索和更少的 Google 搜索。

德尔福 v7

我已经弄清楚如何在我的 Richedit 控件中创建项目符号。我不知道当用户创建它们时如何缩进它们。

有任何想法吗？

Answer 1

设置TRichEdit.Paragraph.FirstIndent. 项目符号将缩进额外的数量FirstIndent。（您使用FirstIndent项目符号项是因为项目符号是新段落的第一行。）

RichEdit1.Paragraph.FirstIndent := RichEdit1.Paragraph.FirstIndent + 10;

这是一个基于多年来随 Delphi 提供的 RichEdit 演示的快速演示。我只是添加了两个新TToolButtons按钮ToolBar（最右边的两个按钮，分别命名为tbLessIndent和，tbMoreIndent分别使用 Delphi 提供的 GlyFx 图像中的字形），并将以下事件处理程序添加到现有表单中作为ToolButton.OnClick事件：

procedure TMainForm.tbLessIndentClick(Sender: TObject);
begin
  Editor.Paragraph.FirstIndent := Editor.Paragraph.FirstIndent - 10;
  tbLessIndent.Enabled := Editor.Paragraph.FirstIndent > 9;
end;

procedure TMainForm.tbMoreIndentClick(Sender: TObject);
begin
  Editor.Paragraph.FirstIndent := Editor.Paragraph.FirstIndent + 10;
  tbLessIndent.Enabled := True;
end;

这是一个示例新文档，其中添加了一些项目：

有关详细信息，请参阅有关编号和FirstIndent的文档（XE2 文档，但它们大致相同）