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 insert Dostk 2 86 13-07-2018, Saat: 15:50
Son Yorum: ssahinoglu
Question karakter değiştirme-eş zamanlı ? BY-HAYALET 9 205 08-07-2018, Saat: 13:13
Son Yorum: cinarbil
  Listview Item Merge narkotik 2 95 23-06-2018, Saat: 12:56
Son Yorum: narkotik
  Android Ayar Degistirme gonulali 0 79 12-06-2018, Saat: 11:25
Son Yorum: gonulali
  image processing pro_imaj 3 208 06-06-2018, Saat: 22:47
Son Yorum: pro_imaj



Konuyu Okuyanlar: 1 Ziyaretçi