缩进子弹

Question

我对编程如此陌生并不够糟糕;本周我做了更多谷歌搜索，而不是以前的谷歌搜索。

Delphi 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;

以下是添加了一些项目的示例新文档：

有关详情，请参阅Numbering和FirstIndent上的文档（XE2文档，但它们大致相同）