Listview icon

[condor1912]

merhaba

ben listview deki itemlerin yanlarına iconlar eklemek istiyorum. Nasıl yapabilirim. Aşağıdaki gibi yaptım ama olmadı

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
a:TImageList;
b,c:TIcon;
begin
a := TImageList.Create(Form1);
b := TIcon.Create;
b.LoadFromFile('c:\deneme.ICO');
a.AddIcon(b);
listview1.SmallImages := a;
b.Free;
a.Free;
end;

Teşekkür ederim

[sadettinpolat]

bu kodu senmi yazdın yoksa biryerlerden mi buldun?

sorunun cevabına gelirse listviewin farklı durumları için farklı imagelistler kullanman lazım. eğer liste görünümünde ise smallimages özelliğinde yer alan ikonları kullanır, icon görünümünde ise largeimages özelliğini kullanır.

form üzerine 2 adet timagelist bileşeni bırak. bunlardan birine (imagelist1) 16x16 ebatında resimler ekle. diğerine (imagelist2) ise 32x32 ebatında resimler ekle (timagelistlerin boyutlarınıda uygun değerlere ayarlamayı unutma)

daha sonra listviewin smallimages özeliğine imagelist1 largeimages özelliğinede imagelist2 yi seç.

olması lazım.

koddaki soruna gelince eğer lisrview liste şeklinde görünüyorsa a yı free ettiğinden dolayı ikonları göremiyorsundur.

[condor1912]

kodu ben yazdım.
biraz saçama olmuş demi

a yı free etmediğimde düzeldi.
diğer yöntemde çalışıyor.

teşekkür ederim.

[sadettinpolat]

isimlendirmeler dışında kodda bi tuhaflık yok. ben sadece merak ettim ondan sordum.

a yı ve b yi uygun yerlerde free etmeyi unutma ama