TRichEdit - 如何添加尺寸变化的空行?

时间:2016-08-27 13:15:36

标签: delphi delphi-7 richedit trichedit

我有一些字符串数组,我想在其中一些字符串之间添加一个较小的空行。 所以我有一个代码:

  const _n=#13#10;
  //...
  r1.Lines.Clear;
  r1.SelAttributes.Size:=18;
  r1.SelText:='TEST';
  r1.SelAttributes.Size:=6;
  r1.SelText:=_n+'............';
  r1.SelAttributes.Size:=18;
  r1.SelText:=_n+'test1';
  r1.SelAttributes.Size:=6;
  r1.SelText:=_n+' ';
  r1.SelAttributes.Size:=18;
  r1.SelText:=_n+'test2';

并且尺寸更改适用于第一行(带点),但test1和test2之间的行具有相同的大小(18)以某种方式= \

有什么建议吗?

2 个答案:

答案 0 :(得分:0)

我找到了一些解决方法:可以使用制表符号代替空格。

所以下面的代码工作正常:

link

答案 1 :(得分:0)

您可以通过向Richedit发送EM_SETPARAFORMAT消息来更改单行的行间距,而不是插入空行。看到这个问题

  

How to decrease line space of tRichEdit

举个例子。要增加行间距,请更改“Para.dyLineSpacing”的值。使用“500”来了解效果。