TRichEdit - 空の行をサイズ変更して追加するには？

Question

私は文字列の配列を持っているので、それらの間に小さなサイズの空の行を追加したいと思います。 だから私は、コードを持っている：

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'; 

やサイズ変更は（ドット付き）最初の行のために動作しますが、彼ら（18）は何とか

\任意の提案を=としてTEST1とTEST2の間の線は、同じサイズを持っていますか？

Answer 1

回避策がいくつか見つかりました。スペースの代わりにタブ記号を使用することができます。

ので、次のコードは正常に動作します：

r1.SelAttributes.Size:=18; 
    r1.SelText:=_n+'test1'; 
    r1.SelAttributes.Size:=6; 
    r1.SelText:=_n+#9; // <- tab here 
    r1.SelAttributes.Size:=18; 
    r1.SelText:=_n+'test2'; 

Answer 2

の代わりにあなたはリッチエディットにEM_SETPARAFORMATメッセージを送信することにより、個々の行の行間隔を変更することができ、空行を挿入します。この質問例えば

How to decrease line space of tRichEdit

を参照してください。行間隔を広げるには、 "Para.dyLineSpacing"の値を変更します。エフェクトのアイデアを得るには "500"を使います。