Thumbs Image Viewer

[trolojik]

Merhaba , Öncelikle herkese kolay gelsin


Button şeklinde bir image thumbs viewer arıyorum butona tıkayınca thumbs açılacak ve imagelist içindeki iconlar thumbsta sırasıyla yan yana eklenecek.

5*5 lik bir thumbs olduğunu düşünürsek

ilk satıra 5 icon
2. satıra 5 icon ... bu şekilde devam eden bir component arıyorum

Bilgisi olan arkadaşlardan yardım ve önerilerini bekliyorum

[trolojik]

Arkadaşlar bu tarz bi component arıyorum yardımlarınızı bekliyorum

[aslangeri]

s.a.
arkadaşlar niye herşeyi comp ile yapmak istiyorsunuz.
bir panel ve üzerine image/imagelar atın(veya dinamik oluşturun) sonra da resimleri yükleyin.

[trolojik]

300 tane resim varsa 300 tane imagemi ekleyeyim ? onun yerine imagelist içindeki imageler kadar thumbs oluşturmak çok daha mantıklı o yüzden componentini arıyorum

[aslangeri]

(veya dinamik oluşturun)

dinamik olarak oluşturduğunuz zaman
kaçtane resim olduğu önemli değil. isterse 3000 tane olsun.

bak burda benim kullandığım bir kod var
form üzerinde dinamik olarak image oluşturuyorum ve o image da resimleri gösteriyorum. fark ben resimleri vt den çekiyorum. kodları kendine uyarlayarak kullanabilirsin.

Kod: Tümünü seç

procedure TFTopluIzlem.ImagelariOlustur;
var
i:integer;
kayitid:integer;
tp:string;
begin
//önce resmi indireceğiz sonra imageı oluşturup göstereceğiz
//hinte resim adı tag id onclice de resmi farklı kaydet.
  with FHizliArama do
  begin
    qara.close;
    qara.sql.clear;
    qara.sql.add('select onizlem,eklenme_tarihi from arsiv where id=:id');
    setlength(images,lsonuc.Items.Count);
    for i :=0 to lsonuc.Items.Count-1 do
    begin
      images[i]:=timage.Create(nil);
      images[i].Parent:=sbimages;
      images[i].AutoSize:=false;
      images[i].Stretch:=false;
      images[i].Center:=true;
      images[i].Top:=(200*(i div 5));
      case (i mod 5) of
        0:images[i].Left:=0;
        1:images[i].Left:=210;
        2:images[i].Left:=420;
        3:images[i].Left:=630;
        4:images[i].Left:=840;
      end;
      images[i].Height:=200;
      images[i].Width:=200;
      qara.close;
      kayitid:=integer(lsonuc.Items.Objects[i]);
      qara.Parameters.ParamByName('id').Value:=kayitid;
      qara.Open;
      tp:=ExtractFilePath(paramstr(0))+'default.bmp';
      if (qara.Fields[0].Value=null) or
         (qara.Fields[0].Value='') then
      else begin
         tp:=extractfilepath(paramstr(0))+'Temp\'+lsonuc.Items[i]+'.jpg';
         TBlobField(qara.Fields[0]).SaveToFile(tp);
      end;
      qara.close;
      if FileExists(tp) then
      images[i].Picture.LoadFromFile(tp);
      images[i].Hint:=lsonuc.items[i];
      images[i].ShowHint:=true;
      images[i].Tag:=kayitid;
      images[i].Cursor:=crhandpoint;
      images[i].OnClick:=ResmiKaydet;
    end;
  end;
end;

Kod: Tümünü seç

images :array of timage

şeklinde tanımlanmış bir değiişken.
sbimages scrollbar
dediğim gibi kodları kendine uyarlaman lazım.
kolay gelsin.

[trolojik]

Mesajınız ve ilginiz için teşekkür ederim fakat kodlamada problem yok. Görsel açından program çok zengin olduğundan buda zengin olmalı üzerine geldiğinde cerceveleri renklenmeli vs.. görsellik açısından bu derece önemli olduğundan component arıyorum.

Yinede teşekkür ederim

[aslangeri]

ozaman image yerine istediğin özelliği olan(programın diğer yerlerinde kullandığın) bir bileşen kullanabilirsin.

[trolojik]

Programın diğer yerlerinde bu tarz bir component kullanmadım çünkü image thumbs gerektirecek bir durum söz konusu değildi . Fakat şuan kullanmak söz konusu. Elimde olsa buraya neden konu açayım ?

[aslangeri]

arkadaşım sana niye konu açtın diyen mi var.
sen sorununu söyledin. bende sana yardımcı olmaya çalışıyorum. Ben olsaydım böyle kullanırdım, sende şöyle yapabilirsin tarzında öneride bulunuyorum.
ben ne senin yazdığın programın nasıl bir program olduğunu ne için yazdığını nasıl bi görsellik kullandığını vs. bilmiyorum. senin soruna göre cevap vermeye çalışıyorum.
Eğer mesajlarımda istemeden seni kırdıysam özür dilerim ama öyle bir niyetim yok yani.

kolay gelsin.

[trolojik]

Estafirullah rica ederim. Yardımcı olmaya çalıştığınızın farkındayım çok teşekkür ederim ilginize. Fakat aradığım şey bu değil yani kodlama yoluyla evet yapabilirim fakat kodlama yoluyla istediğim görselliğe ulaşamayacağım. Msn messenger 8.0 ve üzeri sürümlere sahip olan arkadaşlarımız smile butonun tıklasın açılan kısımdaki thumbs tarzı bi component arıyorum. Tam olarak aradığım bu

[Lost Soul]

Jedi komponentinde thumb image için bileşen vardı. ACDSee gibi önizleme yapabiliyorsun.
işini göreceğini düşünüyorum.

JvThumbView : Browser gibi kullanabileceğin bir bileşen
JvThumbNail : bunu kullanmadım ama galiba buttonmuş gibi davranabileceğin tek karelik thumbview nesnesi.
jvThumImage

[trolojik]

Çok teşekkür ederim help veya jedinin sitesinden bu componentler hakkında ayrıntılı bilgi alırsam çok faydalı olacak.

Kolay gelsin

[trolojik]

Bu componentlerde imagelist desteği verilmemiş sanıyorsam. Directory göstermek yerine imagelist göstermek çok daha makul olurmuş