Eagle Master
(مبرمج جديد)
**

تاريخ الإنتساب : 26-07-2019
تاريخ الميلاد : غير محدد
التوقيت المحلي : 16-09-2019 في 04:05 AM
الحالة : غير متصل

Eagle Master معلومات المنتدى
إنضم إلينا : 26-07-2019
آخر زيارة 07-09-2019, 08:04 PM
إجمالي المشاركات : 3 (0.06 مشاركات في اليوم الواحد | 0.01 في المئة من إجمالي المشاركات)
(إيجاد مشاركات العضو)
اجمالي المواضيع : 1 (0.02 مواضيع في اليوم | 0.01 في المئه من اجمالي المواضيع)
(إيجاد مواضيع العضو)
فترة البقاء متصل : 44 دقائق, 19 ثواني
الأعضاء المحالين: 0
Total Thanks Received: 2 (0.04 0.04 per day | 5605 percent of total 0.04)
(Find All Threads Thanked ForFind All Posts Thanked For)
Total Thanks Given: 0 (0 0 per day | 5625 percent of total 0)
(Find All Thanked ThreadsFind All Thanked Posts)
  
RE: add and extract item from listview in fmx 1
add and extract item from listview in fmx قرد النار - الفايرمنكي - FMX - FireMonkey
استخدم الكود التالي

كود :
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.