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
  [Çözüldü] FireBase (FCM) Push Notification mesajı gelmiyor Fesih ARSLAN 17 374 24-04-2018, Saat: 12:56
Son Yorum: mrmarman
  Listview nesnesi ile birden fazla alan oluşturma Fesih ARSLAN 11 2.826 17-03-2018, Saat: 11:36
Son Yorum: Bay_Y
Information Status Bar Android [ÇÖZÜLDÜ] malitutuncu 8 361 27-02-2018, Saat: 09:23
Son Yorum: malitutuncu
Question TWebView ile Web Sitesindeki Herhangi Bir Nesneye Ulaşım Yada Cookie [ÇÖZÜLDÜ] malitutuncu 2 310 22-02-2018, Saat: 09:47
Son Yorum: malitutuncu
  Push Natification hata (Tokyo ve Seattle) [ÇÖZÜLDÜ] malitutuncu 7 297 19-02-2018, Saat: 13:59
Son Yorum: malitutuncu



Konuyu Okuyanlar: 1 Ziyaretçi