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
  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
  Buton image sorunu (style) ahmetb 4 127 31-08-2018, Saat: 14:40
Son Yorum: mrmarman
  Listview tedit ahmetb 2 144 17-08-2018, Saat: 20:31
Son Yorum: narkotik



Konuyu Okuyanlar: 1 Ziyaretçi