Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Listview image değiştirme
#1
Merhaba, Aynı konuyu ikinci kez açmak zorunda kaldım, başta form yöneticilerden özür dilerim.

listview de image değiştirme sorununda ikinci bir sorun ile karşı karşıya kaldım.
if ItemObject.Name.Equals('Playimage') then tıkladığımda listviewdeki seçili olan satırın imagenin değişmesini istiyorum, 
bu durum kısmen de gerçekleşiyor. Sorun ise ilk satır tıkladığımda değişmiyor ikinci satırı değiştirdiğimde ilk satır bir kez değişiyor fakat ikinci kez tıkladığımda ise yine tepki vermiyor acaba kodlamada gözümden kaçan ne var? Sil veya Arşiv alanlarını tıkladığımda ise sorun çıkmıyor.





procedure TForm1.ListViewItemClickEx(const Sender: TObject; ItemIndex: Integer;
  const LocalClickPos: TPointF; const ItemObject: TListItemDrawable);
begin
  if (ListView.ItemIndex > -1) and (ListView <> Nil) then
  begin
    SeciliID := -1;
    SeciliPlay := -1;
    SeciliIndex := -1;
    if ItemObject.Name.Equals('Sil') then
    begin
      SeciliIndex := ListView.ItemIndex;
      SeciliID := StrToInt(LItem.Data['ID'].ToString);
      SeciliPlay := StrToInt(LItem.Data['Playlist'].ToString);
    end;
    if ItemObject.Name.Equals('Arsiv') then
    begin
      SeciliIndex := ListView.ItemIndex;
      SeciliID := StrToInt(LItem.Data['ID'].ToString);
      SeciliPlay := StrToInt(LItem.Data['Playimage'].ToString);
    end;
    if ItemObject.Name.Equals('Playimage') then
    begin
      SeciliIndex := ListView.ItemIndex;
      SeciliID := StrToInt(LItem.Data['ID'].ToString);
      SeciliPlay := StrToInt(LItem.Data['Playimage'].ToString);
      IlanPlayDurum(Sender);
    end;
     end;
end;


procedure TForm1.IlanPlayDurum(Sender: TObject);
begin
  if SeciliPlay = 5 then
  begin
    ListView.Items[SeciliIndex].Data['Playimage'] := 4;
  end
  else
  begin
    ListView.Items[SeciliIndex].Data['Playimage'] := 5;
  end;
end;
Cevapla
#2
(29-01-2018, Saat: 13:02)serhat Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlMerhaba, Aynı konuyu ikinci kez açmak zorunda kaldım, başta form yöneticilerden özür dilerim.

listview de image değiştirme sorununda ikinci bir sorun ile karşı karşıya kaldım.
if ItemObject.Name.Equals('Playimage') then tıkladığımda listviewdeki seçili olan satırın imagenin değişmesini istiyorum, 
bu durum kısmen de gerçekleşiyor. Sorun ise ilk satır tıkladığımda değişmiyor ikinci satırı değiştirdiğimde ilk satır bir kez değişiyor fakat ikinci kez tıkladığımda ise yine tepki vermiyor acaba kodlamada gözümden kaçan ne var? Sil veya Arşiv alanlarını tıkladığımda ise sorun çıkmıyor.





procedure TForm1.ListViewItemClickEx(const Sender: TObject; ItemIndex: Integer;
  const LocalClickPos: TPointF; const ItemObject: TListItemDrawable);
begin
  if (ListView.ItemIndex > -1) and (ListView <> Nil) then
  begin
    SeciliID := -1;
    SeciliPlay := -1;
    SeciliIndex := -1;
    if ItemObject.Name.Equals('Sil') then
    begin
      SeciliIndex := ListView.ItemIndex;
      SeciliID := StrToInt(LItem.Data['ID'].ToString);
      SeciliPlay := StrToInt(LItem.Data['Playlist'].ToString);
    end;
    if ItemObject.Name.Equals('Arsiv') then
    begin
      SeciliIndex := ListView.ItemIndex;
      SeciliID := StrToInt(LItem.Data['ID'].ToString);
      SeciliPlay := StrToInt(LItem.Data['Playimage'].ToString);
    end;
    if ItemObject.Name.Equals('Playimage') then
    begin
      SeciliIndex := ListView.ItemIndex;
      SeciliID := StrToInt(LItem.Data['ID'].ToString);
      SeciliPlay := StrToInt(LItem.Data['Playimage'].ToString);
      IlanPlayDurum(Sender);
    end;
     end;
end;


procedure TForm1.IlanPlayDurum(Sender: TObject);
begin
  if SeciliPlay = 5 then
  begin
    ListView.Items[SeciliIndex].Data['Playimage'] := 4;
  end
  else
  begin
    ListView.Items[SeciliIndex].Data['Playimage'] := 5;
  end;
end;



Kodlamada hata görmedim.
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Listview nesnesi ile birden fazla alan oluşturma Fesih ARSLAN 11 2.824 17-03-2018, Saat: 11:36
Son Yorum: Bay_Y
  kod ile tema değiştirme BY-HAYALET 7 276 16-03-2018, Saat: 17:58
Son Yorum: BY-HAYALET
  Listview seçili satır hido 1 162 08-02-2018, Saat: 16:27
Son Yorum: codder71
  Listview image değiştirme sorunu serhat 6 308 28-01-2018, Saat: 13:01
Son Yorum: serhatil
  Listview seçili satır image - Çözüldü serhat 4 229 24-01-2018, Saat: 18:45
Son Yorum: brs



Konuyu Okuyanlar: 1 Ziyaretçi