Forumlarda ThumbView'le ilgili bir Makale, Kullanımla ilgili bir kod veya yazıya rastlıyamadım,veya ben bulamadım.inşallah faydası olur.
İlk önce Form'mumuza Bir DirectoryListBox,DriveComboBox,Image,2 tane Label iki RadioButton bir GroupBox ve Bir ThumbView Koyuyoruz,Listelemeyi Başka araçlarlada yapabiliriz,altarnatif çok fakat ben daha esnek olan DirectoryListBox'la listeleyeceğim.
Önce DirectoryListBox ve DriveComboBox'u Birbirine bağlamak için ;Form'un OnCreate Olayına;
Aşağıdaki kodu atıyoruz.
Kod: Tümünü seç
DriveComboBox1.DirList:=DirectoryListBox1;
DirectoryListBox1.DirLabel:=Label1;//Label Klasör Yolunu Gösterecek.
DriveComboBox1.TextCase:=tcUpperCase;
Formumuza yerleştirdiğimiz ThumbView'in Properties'te\ScrollMode ayarını "smVertical" olarak seçiyoruz,Listeleme Dikey oalacak,ThumbView'in "OnChange" olayına aşağıdaki Kod'u yazıyoruz;
Kod: Tümünü seç
var//Uses'e jpeg; ekleyiniz.
ResimAdi:String;
begin
try
Image1.Picture.LoadFromFile(JvThumbView1.SelectedFile);
ResimAdi:=extractfilename(JvThumbView1.SelectedFile);
Label2.Caption:=ResimAdi;//Resim'in Adını Gösterecek.
JvThumbView1.SetFocus;
finally
end;
Kod: Tümünü seç
try
JvThumbView1.Directory:=DirectoryListBox1.Directory;
finally
end;
Kod: Tümünü seç
JvThumbView1.MaxHeight:=75;
JvThumbView1.MaxWidth:=75;
Kod: Tümünü seç
JvThumbView1.MaxHeight:=100;
JvThumbView1.MaxWidth:=100;
iyi çalışmalar.....