缩进子弹

Question

这是不够坏，我是如此新的编程;本周，我做了更多的Google搜索，而Google的搜索量也比以前少了。

德尔福V7

我已经找到了如何在我的RichEdit控件子弹。我找不到的是如何在用户创建它们时缩进它们。

任何想法？

Answer 1

设置TRichEdit.Paragraph.FirstIndent。子弹将缩进额外的FirstIndent。 （您使用FirstIndent因为子弹产品新段落的首行。）

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

下面是基于多数民众赞成附带德尔福多年的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文档，但它们大致相同）