richeditin içindeki metne göre yüksekliğini nasıl buluruz?

[iqprog]

richedite bir takım yazılar yazdınız ve bir butona basınca richeditin yüksekliğinin tam içindeki metin kadar olmasını istiyorsunuz. strech olayı gibi yani.

richeditte strech yok.

sakın olayı memo ile karıştırmayın memodaki satır yükseliği sabit va satır sayısı ile çarpınca metin yüksekliğini bulursunuz(tabi wordwrap false ise). neyse memo'da bu çözülür ama richde başka çözüm gerek çünkü richeditte satırların fontu dolayısıyla yüksekliği değişken.

[Trial_Cooder]

i := RichEdit1.Lines.Count;

[iqprog]

teşekkürler dostum ama soruyu biraz daha dikkatli okumanı salık veririm.

[Opt2000]

Selam,

GetScrollInfo API'si ile herhangi bir bileşenin Vertical Scroll değerini öğrenebilirsiniz. Aşağıda örnek bir kullanım veriyorum.

Kod: Tümünü seç

var
  scrInfo:SCROLLINFO;
begin
   FillChar(scrInfo, Sizeof(scrInfo), 0);
   scrInfo.cbSize:=sizeof(SCROLLINFO);
   scrInfo.fMask:=SIF_ALL;
   GetScrollInfo(RichEdit1.Handle, SB_VERT, scrInfo);

   ShowMessage(IntToStr(scrInfo.nMax));
end;

Bu API ile elde ettiğiniz scrInfo.nMax değeri, istediğiniz sonucu vermeli. (Daha önce bir programda kullandım). Ufak bir ayrıntı: ScrollBar'ların genişliğine dikkat edin, aksi takdirde yanlış sonuçlar elde edebilirsiniz.

Kolay gelsin,
Bahadır Alkaç