Richedit yada jvRichEdit kontrolü

[White Rose]

s.a.
Arkadaşlar forumda aradım bulamadım.
Bir yazışma programı yapıyorum.
Yapmak istediğim jvRichedit nesnesinde son satırda iken entere basıldığında scrollbars kaymasın,
yeni bir satır açılsın (richeditin yüksekliği bir satır boyu artsın), ayrıca son satırda iken delete tuşuna basıldığında da richeditin son satırı silinerek bir üste kaysın yani yüksekliği bir satır boyu azalsın.
Bunu nasıl yapabilirim, şimdiden teşekkür ederim.

[White Rose]

Arkadaşlar yukardaki soruma henüz cevap bulamadım, yeni bir sorunla karşı karşıyayım.
Word'den kopyaladığım bir metni jvRichedit'e paste yaptığımda aynı formatta gelmiyor,
yazılar kayıyor, fontu değişiyor, iki yana yasla seçili olduğu halde olmuyor, bu konuda bilgisi olan varsa
paylaşmasını rica ediyorum. Tşk.

[Battosai]

iki adet örnek buldum çalışıyorlarmış...
Örn1:

Kod: Tümünü seç

procedure TForm1.RichEdit1ResizeRequest(Sender: TObject; Rect: TRect);
begin
(Sender as TRichEdit).BoundsRect := Rect;
end;

Örn2:

Kod: Tümünü seç

procedure TForm1.ResizeRichEdit;
var 
TM : TTextMetric;
Offset: Integer;
begin
  Offset:=8;
  with RichEdit1 do begin
    GetTextMetrics(Canvas.Handle, TM);
    Height := Lines.Count * (TM.tmHeight + TM.tmExternalLeading) + Offset;
  end;
end;

procedure TForm1.RichEdit1ResizeRequest(Sender: TObject; Rect: TRect);
begin
  ResizeRichEdit;
end;