缩进子弹

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;

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

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