Tmemo autosize

[dabaddah]

arkadaşlar;

yapmak istediğim şey şu bir memo nesnesine satır eklendikçe nesnenin height özelliğinin artmasını istiyorum yani scroollbar çıkmadan satır eklendikçe
aşağı doğru uzasın.

Kod: Tümünü seç

  Memo1.Lines.Add('a');
  if Memo1.Lines.Count<=3 then
    Memo1.Height:=Memo1.Lines.Count*25
  else
    Memo1.Height:=Memo1.Lines.Count*17;

aslında yapmak istediğim işi yukarıdaki kodla yaptım ama pek içime sinmedi. 1 satırın uzunluğu yaklaşık 20 piksel olduğu için satır sayısıyla bu sayıyı çarpıpı memo nesnesinin height özelliğine atıyorum.ilk 3 satırda satırların hepsi tam olarak görünmediği için 25 ile çarptırıyorum diğer satırları 16 ile.
ama dediğim gibi pek içime sinmedi

bu konu hakkında siz neler söylersiniz?

[nightwolfcem]

Kod: Tümünü seç

procedure TForm1.Memo1Change(Sender: TObject);
var
  dc: hdc;
  tm: tagTEXTMETRICW;
  rc: trect;
  count: integer;
begin
  dc := GetDC(Memo1.Handle);
  GetTextMetrics(dc, tm);
  rc := Memo1.BoundsRect;
  count := Memo1.Lines.count;
  if count = 0 then
    count := 1;
  rc.Bottom := rc.Top + round((tm.tmHeight + (tm.tmHeight / 2)) * count)
    + GetSystemMetrics(SM_CYEDGE) * 2;
  Memo1.BoundsRect := rc;
  SetScrollPos(Memo1.Handle, SB_VERT, 0, true);
end;

[dabaddah]

sevgili nightwolfcem kardeşim;
ilgin ve cevabın için çok teşekkür ederim

gönderdiğin kodu denedim ama kendi yazdığımla aynı işi yapıyor.

yani benim yazdığımda yaklaşık bir 10 satırdan sonra fazla uzuyor memo

denediğim kadarıyla senin yazdığın koddada aynı durum söz konusu.

[nightwolfcem]

Benim denediğim font büyüklüğünde sorun cıkmamıştı .Aslında kod yanlışmış sorun Memo bileşeninin kendi fontu ile, yazı alanında kullanılan fontun farklı olmasından kaynaklanıyor . Aşağıdaki kodun sorun cıkaracağını sanmıyorum Eğer font değişikliği varsa program içinde Formcreate daki yazı Büyüklüğünü alma olayını tekrarlaman lazım .

Kod: Tümünü seç

var
  Form1: TForm1;
   dc: hdc;
   textH:integer;
implementation

{$R *.dfm}

procedure TForm1.Memo1Change(Sender: TObject);
var
  rc: trect;
  count: integer;
begin
  rc := Memo1.BoundsRect;
  count := Memo1.Lines.count;
  if count = 0 then
    count := 1;
  rc.Bottom := rc.Top + textH* count
    +(memo1.height- memo1.ClientHeight)*2;
  Memo1.BoundsRect := rc;
  SetScrollPos(Memo1.Handle, SB_VERT, 0, true);
end;


procedure TForm1.FormCreate(Sender: TObject);
var
sz:tsize;
begin
 dc := GetDC(Memo1.Handle);
 SelectObject(dc,Memo1.Font.Handle);
 GetTextExtentPoint32W(dc,'Şİ',2,sz);
 textH:=sz.cy;
end;