如何将一行中的前4个字符添加为粗体?
例:

richedit1.Lines.Add('Test123');

我希望Test为大胆,但保持123正常。

有人能帮我吗?

#1楼 票数:1 已采纳

尝试这样的事情:

procedure TForm1.AddFormattedText(const AText: string; AStyle: TFontStyles);
begin
  RichEdit1.SelStart := RichEdit1.GetTextLen;
  RichEdit1.SelLength := 0;
  RichEdit1.SelAttributes.Style := AStyle;
  RichEdit1.SelText := AText;
end;

AddFormattedText('Test', [fsBold]);
AddFormattedText('123'+sLineBreak, []);

  ask by jwz104 translate from so

未解决问题?本站智能推荐:

1回复

如何在RichEdit中显示不可打印的字符?

有没有办法在TRichEdit控件中显示任何不可打印的字符 ? 还是至少每行末尾有一段 ? 我已经快速预览了丰富的编辑消息,但是看不到任何与此相关的特定内容。 我只是很好奇,希望有一种比替换字符更干净的方法(至少对于该段而言)。 谢谢
1回复

如何在Delphi中获取RichEdit的文本范围

有没有人知道如何在TRichEdit控件中获取文本的宽度和高度,就像在TCanvas上使用TextWidth和TextHeight一样? 我需要知道这样做的原因是我在一个不可见的表单上有一个RichEdit,我使用Richedit.Perform(EM_FORMATRANGE,...)将内容
1回复

如何修复对话框中的RichEdit重绘错误

我遇到了一个重绘错误,看起来不太愉快(Delphi 5,Windows 7 64位,经典主题) 如果创建带有客户端对齐的RichEdit的可调整大小对话框,并提供该功能 那么至少在Windows 7上调整对话框大小时,这些行不会重新包装,而是来自chars的像素不断填充该空间,并且看起来
1回复

如何在Delphi中更改RichEdit的字体平滑(抗锯齿)质量?

我有一个Delphi 7应用程序,在其中将文本绘制到TBitmap 。 我需要能够控制文本的抗锯齿质量。 为此,我正在使用以下过程: 我这样称呼我的TBitmap : SetFontQuality(MyBitmap.Canvas.Font, ANTIALIASED_QUALITY) 。
2回复

从Delphi中的richedit获取richtext

有没有办法从richedit获取RTF数据而不使用savetostream
1回复

当我在OnChange事件中调用Delete时,为什么会出现RichEdit行插入错误?

我用谷歌搜索并检查了许多地方的解决方案,但我发现的所有情况都不同或涉及比简单地添加或删除行更先进的东西。 基本上,我想进行一种滚动丰富的编辑(替代方案是将插入符号移到底部,我已经找到了解决方案)。 我正在为它添加行并使用富编辑的OnChange事件检查Lines.Count ,并且一旦达到
2回复

RichEdit2.0将单个CR字符用作换行符会引发SelStart计算(DelphiXE2)

从Delphi 2006过渡到Delphi XE2时,我们了解到的一件事是RichEdit 2.0用一个CR字符替换了内部CRLF对。 不幸的是,这会导致基于VCL端实际文本字符串的所有字符索引计算中断。 通过浏览VCL代码可以看到以下行为: 发送WM_GETTEXT消息(在TCon
1回复

删除RichEdit中的突出显示

我正在使用以下代码突出显示RichEdit中的选定文本。 谁能告诉我如何删除突出显示或“无颜色”(相当于Microsoft Word中的“无颜色”)的颜色值。 我在网上找不到有关此主题的任何相关信息。