Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Listview seçili satır image - Çözüldü
#1
Merhaba.

Seçmiş olduğum listview satırın iconunu değiştirmek istiyorum, fakat nette bir şey bulamadım, bu durumu nasıl çözebilirim? acaba.
procedure TForm1.ListViewItemClickEx(const Sender: TObject; ItemIndex: Integer;
  const LocalClickPos: TPointF; const ItemObject: TListItemDrawable);
begin
  if ListView.Items.Count > 0 then
  begin
    if ItemObject.Name = 'Playlist' then
    begin
      SeciliIndex := ListView.ItemIndex;
      SeciliID := StrToInt(LItem.Data['ID'].ToString);
      LItem.Data['Playlist', 1]:= 5;
    end;
  end;
end;
Cevapla
#2
Listview için bir imagelist tanımlayın

ListView1.Items[SeciliIndex].ImageIndex:=2;

şeklinde yapabilirsiniz
Cevapla
#3
(24-01-2018, Saat: 10:37)iyarar Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlListview için bir imagelist tanımlayın

   ListView1.Items[SeciliIndex].ImageIndex:=2;

şeklinde yapabilirsiniz


Paylaştığınız kod VLC için geçerli.
Cevapla
#4
(23-01-2018, Saat: 22:00)serhat Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlMerhaba.

Seçmiş olduğum listview satırın iconunu değiştirmek istiyorum, fakat nette bir şey bulamadım, bu durumu nasıl çözebilirim? acaba.
procedure TForm1.ListViewItemClickEx(const Sender: TObject; ItemIndex: Integer;
  const LocalClickPos: TPointF; const ItemObject: TListItemDrawable);
begin
  if ListView.Items.Count > 0 then
  begin
    if ItemObject.Name = 'Playlist' then
    begin
      SeciliIndex := ListView.ItemIndex;
      SeciliID := StrToInt(LItem.Data['ID'].ToString);
      LItem.Data['Playlist', 1]:= 5;
    end;
  end;
end;

Merhaba,
if ListView.Items.Count > 0 then satırını kullanmanızdaki kasıt; kayıt varsa manasında mı?
Eğer bu amaçla yazılmış ise,  bunun yerine seçim kontrolü için if ListView.ItemIndex > -1 then kullanmanız daha mantıklı olacaktır.
Mevcut kodunuzda image güncellenmiyorsa; ListView'i EditMode durumuna alarak ve kodlarınızı BeginUpdate-EndUpdate metodları arasına alarak deneyin.
While true do; Hayat döngüsü, kısır değildir! Yapılan bir yanlış, o döngünün dışına çıkmanızı sağlayacaktır.
WWW
Cevapla
#5
(23-01-2018, Saat: 22:00)serhat Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlMerhaba.

Seçmiş olduğum listview satırın iconunu değiştirmek istiyorum, fakat nette bir şey bulamadım, bu durumu nasıl çözebilirim? acaba.
procedure TForm1.ListViewItemClickEx(const Sender: TObject; ItemIndex: Integer;
  const LocalClickPos: TPointF; const ItemObject: TListItemDrawable);
begin
  if ListView.Items.Count > 0 then
  begin
    if ItemObject.Name = 'Playlist' then
    begin
      SeciliIndex := ListView.ItemIndex;
      SeciliID := StrToInt(LItem.Data['ID'].ToString);
      LItem.Data['Playlist', 1]:= 5;
    end;
  end;
end;

Şu şekilde yapabilirsiniz.

 
   
    if ItemObject.Name = 'Playlist' then
    begin
      SeciliIndex := ListView.ItemIndex;
      SeciliID := StrToInt(LItem.Data['ID'].ToString);
      ListView.BeginUpdate;
      ListView.Items[SeciliIndex].Data['Playlist'] := 5;
      ListView.EndUpdate;
    end;
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Listview insert Dostk 2 72 13-07-2018, Saat: 15:50
Son Yorum: ssahinoglu
Question [ ÇÖZÜLDÜ ] SQLİTE bağlantı sorunu BY-HAYALET 9 242 10-07-2018, Saat: 12:41
Son Yorum: BY-HAYALET
  [ÇÖZÜLDÜ]-FDConnection - SQL Server Dil Ayarlama hi_selamlar 1 74 27-06-2018, Saat: 00:31
Son Yorum: hi_selamlar
  Listview Item Merge narkotik 2 85 23-06-2018, Saat: 12:56
Son Yorum: narkotik
  image processing pro_imaj 3 200 06-06-2018, Saat: 22:47
Son Yorum: pro_imaj



Konuyu Okuyanlar: 1 Ziyaretçi