TListview boyutlandırma sorunu.

[vkamadan]

merhaba ,
TListview e çalışma zamanında bir takım itemler ekliyorum görünüm liste şeklinde seçili. sorun şu ki , TListview i clear metodu ile temizlemeden önce eklediğim bütün itemlerin tamamı görünürken Clear diyerek tekrar yeni itemler eklediğimde örneğin "Bu birdeneme itemidir." şeklindeki bir item "Bu bir den...." gibi kısaltılmış olarak görünüyor.
Coloum ların with leri Autosize özelliğini ve değerlerini kontrol ettim hatta çalışma zamanı ben verdim ama yinede çözüme ulaşamadım.
Teşekkürler.

[mrmarman]

Merhaba...

- IconOptions'daki WrapText'i disable edersen nokta nokta hal almıyor...

[vkamadan]

mehaba ,
Wrap Text i FALSE yaptım fakat sorun düzelmedi, Clear edip item ekleyince bildiğini okuyor.
teşekkürler.

[mrmarman]

Tekrar Merhaba...

- Nerede farklılık yaşadığımızı bilemedim... Senin için denediğim hal şu şekilde...

- Boş bir forma 3 tane TButton, 1 tane TListView koydun. Buttonlarda ise aşağıdaki şekilde deneme kurgusu yaptım...

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListView1.Items.Add;
  ListView1.Items.Item[ListView1.Items.Count-1].Caption := 'Merhaba Bu, uzun mu uzun bir mesaj denemsidir...';
end;

Kod: Tümünü seç

procedure TForm1.Button2Click(Sender: TObject);
begin
  ListView1.IconOptions.WrapText := False;
end;

Kod: Tümünü seç

procedure TForm1.Button3Click(Sender: TObject);
begin
  ListView1.Clear;
end;

- Button1 ile bir kaç kere item ekledikten sonra Button2 ile WrapText'i false yapınca uzun text görünür oldu.

- Buton3 ile listeyi boşaltmayı sağladım sonra tekrar Button1 ile eklemeleri yaptım ve liste oluşmaya sorunsuz devam etti.

- Sen de boş bir formda dene ve sonuç olumsuzsa kodlarından örnek göster ki fark neymiş anlayalım...

[vkamadan]

mehaba ,
örneğinizi aynısını yaptım,

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
 ListView1.Items.add;
 ListView1.Items.item[ListView1.Items.Count-1].Caption:='Bu deneme metnidir, denemedir.';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ListView1.IconOptions.WrapText:=false;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
ListView1.Clear;
end;

fakat button1 ile ekledim , Button2 ile wraptext:=false yaptım sonra button3 ile clear ettim, daha sonra tekrar ekledim .... şekilde ekledi ve Button2 ye basamma rağmen bir daha hep noktalı ekledi, çıldıracağım çok ilginç bir durum.
ilginiz için teşekkür ederim.

[mrmarman]

Merhaba..

- Gerçekten ilginç bir durum. Delphi'nin hangi sürümnü kullanıyorsunuz ?

- listviewdenemesi.zip dosyasını çekip dener misiniz ?

- İçine derlenmiş EXE halini de koydum. Önce EXE'yi çalıştırıp aynı testi gerçekleştirin.

- Hatta adını değiştirip Delphi ile projeyi açıp kendiniz derleyin.

- Aynı sonuçla karşılaşırsanız sorun Delphi'dendir diycem. O zaman Delphi'yi baştan kurun... Belki başka yerlerde de yanlış sonuçlar veriyor da bunun farkına varmış olabilirsiniz...

[vkamadan]

Merhaba dosyayı indiremiyorum,
Kullandığım Delphi7 SErvicePack2 li kullanıyorum.
Teşekkürler.

[mrmarman]

Bir daha dener misin. ..

http://divxturk.divxtr.org/files/gecici ... nemesi.zip

bir de şöyle dene...
http://www.divxtr.org/divxturk/files/ge ... nemesi.zip

[vkamadan]

tekrar merhaba,
örneğiniz indirdimve çalıştırdım evet sorunsuz çalışıyor fakat ben ListeŞeklinin List olarak kullanıyorum siz ICON olarak kullanmışsınız sizinkinide List e çevirince aynı sorun oluştu. yani ListStyle:=vsList te bu sorun oluşıyor ama vsIcan da oluşmuyor ve benim vsList olarak kullanmam gerekiyor. çok ilginç.

[mrmarman]

Merhaba...

Clear ettiğiniz yere şunu koyunca sorun çözüldü ama sebebini yine de araştırıyorum...

Kod: Tümünü seç

  ListView1.ViewStyle := vsIcon;
  ListView1.ViewStyle := vsList;

[vkamadan]

merhaba,
evet bu şekilde sorun çözüldü.
Bazen delphinin açıkları yüzünden sorunu kedimizde arıyoruz ve bayağı zaman kayıbı oluyor.
ilginiz için teşekkür ederim iyi çalışmalar.