RichEdit设置行格式

发布: 2023-08-09 作者: admin 浏览: 62 评论: 0 分类: C++ 标签: SelStart,SelText,SelLength

The TRichEdit Delphi control is a wrapper for a Windows rich text edit control. You can use a Rich Edit control to display and edit RTF files.

TRichEdit Delphi控件是Windows RTF编辑控件的包装。 您可以使用Rich Edit控件来显示和编辑RTF文件。

While you can create nice user interface "around" the Rich Edit control with toolbar buttons to set and change text display attributes, adding formatted lines to Rich Edit programmatically is fairly cumbersome - as you will see.

尽管您可以使用工具栏按钮在Rich Edit控件“周围”创建漂亮的用户界面来设置和更改文本显示属性，但是以编程方式将格式化的行添加到Rich Edit相当麻烦-您将看到。
如何将带格式的行添加到Rich Edit ( How to Add Formatted Lines to Rich Edit )
To create bold text from a selection of text displayed in the Rich Edit control, at runtime, you need to make a section of text and then set the selection's properties to SelAttributes.

要从Rich Edit控件中显示的文本选择中创建粗体文本，在运行时，您需要截取一部分文本，然后将所选内容的属性设置为SelAttributes 。

However, what if you're not dealing with a selection of text and instead want to add (append) formatted text to a Rich Edit control? You might think Lines property can be used to add bold or colored text to Rich Edit. However, Lines is a simple TStrings and will accept only plain, unformatted text.

但是，如果您不处理选定的文本，而是想将格式文本添加(附加)到Rich Edit控件中怎么办？ 您可能认为Lines属性可用于向Rich Edit添加粗体或彩色文本。 但是， Lines是一个简单的TStrings ，将仅接受纯格式的文本。
Don't give up - of course, there's a solution.

不要放弃-当然，有解决方案。

Look at this example for some help:

查看此示例以获取一些帮助：
```delphi
//richEdit1 of type TRichEdit
with richEdit1 do
begin
//move caret to end
SelStart := GetTextLen;
//add one unformatted line
SelText := 'This is the first line' + #13#10;
//add some normal font text
SelText := 'Formatted lines in RichEdit' + #13#10;
//bigger text
SelAttributes.Size := 13;
//add bold + red
SelAttributes.Style := [fsBold];
SelAttributes.Color := clRed;
SelText := 'About';
//only bold
SelAttributes.Color := clWindowText;
SelText := ' Delphi ';
//add italic + blue
SelAttributes.Style := [fsItalic];
SelAttributes.Color := clBlue;
SelText := 'Programming';
//new line
SelText := #13#10;
//add normal again
SelAttributes.Size := 8;
SelAttributes.Color := clGreen;
SelText := 'think of AddFormattedLine custom procedure...';
end;
```
To start, move the caret to the end of the text in the Rich Edit. Then, apply formatting before you actually append the new text.

首先，将插入标记移动到Rich Edit中文本的末尾。 然后，在实际附加新文本之前应用格式。