二つのRichEditの文字サイズや行間を統一するには？ (ID:19365)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

Mr.XRAYさんありがとうございます。
わかりにくい説明だったようで申し訳ありません。
RichEdit1で改行文字を判定…という形ではないです。
以下が一部分なんですが…
----
procedure TForm1.RichEdit1Change(Sender: TObject);
var
  i,j,k : Integer;
begin
  i := RichEdit1.Perform(Em_LineFromChar,$FFFF, 0);   //iにRichEdit1の最終行を代入
  j := RichEdit2.Perform(Em_LineFromChar,$FFFF, 0);   //jにRichEdit2の最終行を代入

if ((i>=j)=true) then
    begin
      for  k:=j to i do                             //kにjを代入し、iになるまで
      begin
        RichEdit2.Lines.Add(IntToStr(k+1)+'行:');      //RichEdit2に行数を加えていく
      end;
    end
  else
    begin                                         //もし、iは(j-1)未満で
      if ((i<j-1)=true) then
        begin
          if((i<j-2)=true) then                   //かつ、(j-2)未満なら
            begin
              RichEdit2.Lines.Clear;
              for k:=0 to i do
                begin
                  RichEdit2.Lines.Add(IntToStr(k+1)+'行:');         //RichEdit2に行数を加えていく
                end;
              end
          else                                    //iが(j-1)未満で(ｊ-2)以上のとき
            begin
              RichEdit2.Lines.Delete(j-1);            //RichEdit2の最終行を削除
              SendMessage(RichEdit2.Handle, WM_VSCROLL,SB_LINEDOWN, 0);
            end
         end
      end
end;
------
こんな形にしています。

>RichEdit1のWordWrapをFalseにして様子をみたらどうでしょう
ということでやってみたのですが、やはり変わらないようです。

すでに
RichEdit1とRichEdit2は文字を表示する最初の開始位置自体がすこしずれているような感じです。
行が増加するという形ではなく、Fontのプロパティで言えばHeightですね。
二つとも同じ-11で設定していますが、文字と文字の縦の余白が一致しないという感じです。

←解決時は質問者本人がここをチェックしてください。

戻る