ListView de otomatik genişik

[hido]

Merhaba,

ListView de kullanıcı tercihine göre Width ayarlaya bilmesi için bir seçenek üzerinde çalışıyorum, aşağıdaki kodlar işimi kısmen görüyor fakat
bu seferde başka bir sıkıntı yaratıyor, kayıt sayısı 5 veya 10 olunca ListViewe Drag Drop yöntemiye yeni bir kayıt ekleyince ListView deki kayıtlar bir saniye yok olup tekrar geliyor. Satır negişliğinde sıkıntı yaratmayabilecek ne gibi bir şey yapabilirim...

Not: Bu kodu kullanmadığımda ListView kayıtlarda sıkıntı olmuyor...

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  for i := 0 to ListView1.Columns.Count - 1 do
  begin
    ListView1.Columns.Items[i].Width := ColumnTextWidth;
    ListView1.Columns.Items[i].Width := ColumnHeaderWidth;
  end;
end;

[mrmarman]

Liste sonunda döngüyü aşağıdaki şekilde yapılandırman kafidir.

Kod: Tümünü seç

ListView1.Columns[i].Width := -1;

Kaybolma konusu için de beginupdate, endupdate kullan.

Kod: Tümünü seç

Listview1.Items.beginupdate;

//işlemler

Listview1.Items.endupdate;