Delphi Dünyası Facebook'ta

Duyurular

Kodbank İndir

! CODEBANK 2012 !

İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.

« önceki sonraki »
Sayfa: [1]   Aşağı git

Gönderen Konu: ListBox'a Resim Eklemek  (Okunma sayısı 4781 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı Subhan

  • Delphi XE2 Level 5
  • *****
  • İleti: 818
  • Rep: +1/-0
  • Cinsiyet: Bay
ListBox'a Resim Eklemek
« : 29 Ağustos 2008 10:54:35 »
Bu işlem en kolaydıdır Forma TİmgeList ve ListBox ekleyin
ListBox'un Style özeliyini  [ lbOwnerDrawVariable ]  yapın
İmageList'e 3-tane resim ekleyin

Kod:  (Unknown Language)
  1. procedure TForm1.ListBox3MeasureItem(Control: TWinControl; Index: Integer;
  2.   var Height: Integer);
  3. begin
  4.    height := ImageList1.Height + 4;
  5. end;



Kod:  (Unknown Language)
  1. procedure TForm1.ListBox3DrawItem(Control: TWinControl; Index: Integer;
  2.  Rect: TRect; State: TOwnerDrawState);
  3. var
  4.    CenterText : integer;
  5. begin
  6.    ListBox3.Canvas.FillRect (rect);
  7.    ImageList1.Draw(ListBox3.Canvas,rect.Left + 4, rect.Top + 4, index );
  8.    CenterText := ( rect.Bottom - rect.Top - ListBox3.Canvas.TextHeight(text)) div 2 ;
  9.    ListBox3.Canvas.TextOut (rect.left + ImageList1.Width + 8 , rect.Top + CenterText,
  10.    ListBox3.Items.Strings[index]);
  11. end;
« Son Düzenleme: 08 Kasım 2008 08:48:53 by hayati »
Kayıtlı
En Güzel Azeri Programlama Sitesi.

Proqramlasdirma.Com

Çevrimdışı vlknu21

  • Delphi 1 Level 1
  • *
  • İleti: 7
  • Rep: +0/-0
Ynt: ListBox'a Resim Eklemek
« Yanıtla #1 : 08 Kasım 2008 03:15:05 »
merhabalar..
mp3 player yapıyorum..
ben listboxa dosya yolundan mp3leri eklemek istiyorum. bunu nasıl yapabilirim.. delphide oldukça yeniyim..
başka bi yerden edindiğim bi kod var.. fakat farklı farklı dosyaları listboxta tutamıyorum. birini ekleyince diğerleri siliniyor...
ne kadar doğru ifade edebildim bilmiyorum.. yardımcı olabilirseniz sevinirim.
bendeki kodeda aşağıda vereyim.. şimdiden teşekkürler..

procedure TForm2.btnOpenFolderClick(Sender: TObject);
var mp3Folder : string;
begin
 mp3Folder := BrowseDialog('Şarkı seç', BIF_RETURNONLYFSDIRS);
 if mp3Folder = '' then Exit;

 txtFolder.Caption := mp3Folder;

 FillMP3FileList(mp3Folder, mp3List.Items);
end;
Kayıtlı

Çevrimdışı Subhan

  • Delphi XE2 Level 5
  • *****
  • İleti: 818
  • Rep: +1/-0
  • Cinsiyet: Bay
Ynt: ListBox'a Resim Eklemek
« Yanıtla #2 : 08 Kasım 2008 08:56:58 »
Ben sana çok yardımcı olama ancak sen kod-a BrowseDialog kulanmışsın yani funksiyon kulanmışsın şimdi kulandiğin kodu incele mutlaka kulandığın funksiyon-dan dir
yok eyer yapamıyorum dersen  benim Mp3 Playeri incele (bir sürü kod kulandım)
burdan indire bilirsin http://denizsoft.tr.gg/DenizSoft-Programlar%26%23305%3B.htm?PHPSESSID=a7af146b5bc9183668389d4b25f90c02
Kayıtlı
En Güzel Azeri Programlama Sitesi.

Proqramlasdirma.Com

Çevrimdışı terminater

  • Delphi 1 Level 1
  • *
  • İleti: 3
  • Rep: +0/-0
Ynt: ListBox'a Resim Eklemek
« Yanıtla #3 : 30 Kasım 2008 11:58:39 »
Selamlar bu vermiş oldugunuz kod neden listbox a ait bütün kayıtlara eklemek yerine imagelistteki image sayısına göre ekleme yapıyor bu kodun Listboxdaki kayıt sayısı kadar image ekleyeni yokmu,yazarsanız sevinirim.
Kayıtlı

Çevrimdışı Subhan

  • Delphi XE2 Level 5
  • *****
  • İleti: 818
  • Rep: +1/-0
  • Cinsiyet: Bay
Ynt: ListBox'a Resim Eklemek
« Yanıtla #4 : 30 Kasım 2008 18:06:23 »
Alıntı yapılan: terminater - 30 Kasım 2008 11:58:39
Selamlar bu vermiş oldugunuz kod neden listbox a ait bütün kayıtlara eklemek yerine imagelistteki image sayısına göre ekleme yapıyor bu kodun Listboxdaki kayıt sayısı kadar image ekleyeni yokmu,yazarsanız sevinirim.

kodaki rakamları kurcala yani koda bulunan iki tane  4 rakamı yazılmış yani 4-satıra ekliyor
sen ListBox-un item sayını al ve otomatık rakam yazılan yerlere (4-yazılan yerlere) uygula
Kayıtlı
En Güzel Azeri Programlama Sitesi.

Proqramlasdirma.Com

Çevrimdışı terminater

  • Delphi 1 Level 1
  • *
  • İleti: 3
  • Rep: +0/-0
Ynt: ListBox'a Resim Eklemek
« Yanıtla #5 : 30 Kasım 2008 20:31:18 »
Alıntı yapılan: Subhan - 30 Kasım 2008 18:06:23
Alıntı yapılan: terminater - 30 Kasım 2008 11:58:39
Selamlar bu vermiş oldugunuz kod neden listbox a ait bütün kayıtlara eklemek yerine imagelistteki image sayısına göre ekleme yapıyor bu kodun Listboxdaki kayıt sayısı kadar image ekleyeni yokmu,yazarsanız sevinirim.

kodaki rakamları kurcala yani koda bulunan iki tane  4 rakamı yazılmış yani 4-satıra ekliyor
sen ListBox-un item sayını al ve otomatık rakam yazılan yerlere (4-yazılan yerlere) uygula


kardeş o (4) rakamı listbox un kayıtlarının (top) ve (left) değeri.başka bir yerinde de değiştirilecek rakam bulamadım yardımlarınızı bekliyorum...
Kayıtlı

Çevrimdışı Subhan

  • Delphi XE2 Level 5
  • *****
  • İleti: 818
  • Rep: +1/-0
  • Cinsiyet: Bay
Ynt: ListBox'a Resim Eklemek
« Yanıtla #6 : 02 Aralık 2008 18:33:35 »
gerisini bilmem ben ancak sorun rakamlarda ve ImageList-de ki resimler-in sayındandır
Kayıtlı
En Güzel Azeri Programlama Sitesi.

Proqramlasdirma.Com
Sayfa: [1]   Yukarı git
« önceki sonraki »