05-08-2019, 10:30 AM
(26-07-2019, 10:45 AM)Eagle Master كتب : استخدم الكود التاليبارك الله فيكم ، لكن هل هناك مشكلة لل item height أحيانا يحصل تداخل خاصة في ال fmx
كود :procedure TForm1.Button1Click(Sender: TObject); var lv: TListViewItem; IItem:TListItemImage; begin lv := ListView1.Items.Add; lv.Data['Name'] := 'Hello'; lv.Data['SubName'] := 'word'; lv.Data['Phone'] := '012456'; IItem:=lv.Objects.FindDrawable('img') as TListItemImage; if (IItem<>nil) then IItem.ImageIndex:=0; lv := ListView1.Items.Add; lv.Data['Name'] := 'Hello2'; lv.Data['SubName'] := 'word2'; lv.Data['Phone'] := '0124562'; IItem:=lv.Objects.FindDrawable('img') as TListItemImage; if (IItem<>nil) then IItem.ImageIndex:=1; end; procedure TForm2.ListView1ItemClick(const Sender: TObject; const AItem: TListViewItem); var img: TBitmap; Size: TSizeF; begin Size := TSize.Create(64,64); memo1.Lines.Add (AItem.Objects[0].Data.AsString+' : '+AItem.Objects[1].Data.AsString +' : '+AItem.Objects[2].Data.AsString); ImageViewer1.Bitmap.Assign(Imagelist1.Bitmap(Size, AItem.Index )); end; end.
