Tüm Platformlar için Hızlı Uygulama Geliştirme --->    Kitabımız...      Delphi

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 seçili satır hido 1 98 08-02-2018, Saat: 16:27
Son Yorum: codder71
  Listview image değiştirme sorunu serhat 6 210 28-01-2018, Saat: 13:01
Son Yorum: serhatil
  Listview seçili satır image - Çözüldü serhat 4 143 24-01-2018, Saat: 18:45
Son Yorum: brs
  Listview checkbox hido 3 106 21-01-2018, Saat: 02:49
Son Yorum: hido
Question icon değiştirme yardım BY-HAYALET 7 171 13-12-2017, Saat: 22:37
Son Yorum: BY-HAYALET



Konuyu Okuyanlar: 1 Ziyaretçi