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
  Image Index numarasını alma ahmetb 3 68 3 saat önce
Son Yorum: ahmetb
  Listview index number update YasinDalli 3 181 20-09-2018, Saat: 15:00
Son Yorum: mrmarman
  Listview data verilerini alma ahmetb 12 366 16-09-2018, Saat: 16:17
Son Yorum: ahmetb
  Form oluşturma (Çözüldü) Orhanlar 3 125 10-09-2018, Saat: 10:48
Son Yorum: Orhanlar
  Buton image sorunu (style) ahmetb 4 127 31-08-2018, Saat: 14:40
Son Yorum: mrmarman



Konuyu Okuyanlar: 1 Ziyaretçi