EasyDelphi Q&A
0 تصويتات
29 مشاهدات

السلام عليكم

مشكل في animate لل item الخاص بال listview

تظهر الايقونة الخاصة بها لكنها لا تعمل كيف افعلها برمجيا

 

طريقة شبيهة بهكذا كود

var item:TListViewItem;
txt:TListItemText;
begin
 item:=ListView1.Items.Add;
 item.Data['Text1']:='Hellow FMX';
 txt:=ListView1.Items[0].Objects.FindObjectT<TListItemText>('Text1');
 TAnimator.AnimateFloat(ListView1 , txt.PlaceOffset.X.ToString , 500, 1);
// TAnimator.AnimateFloat(ListView1 , 'Position.x', 500, 1);

end;

والسلام عليكم ورحمة الله

سُئل في تصنيف fmx بواسطة (1,320 نقاط)
عُدل بواسطة | 29 مشاهدات

2 إجابة

0 تصويتات

وعليكم السلام ورحمة الله وبركاته

لا اظن انك تستطيع التحكم في ال item عن طريق annimation  لكن تستطيع ان تحتال للامر سواء كانت صورة او نص لى حسب ما اعرف وان كنت مخطىء ارجوا ان يفيدنا احد الاساتذة اذا تحتاج طريقة اخرى قريبة نوعا ما يمكنني مساعدته لاني كنت ابرمج بها في معظم برامجي   شاهد المرفق اذا كان هذا ما تحتاجه ساكتب لك فنكشن خاصة

 

تم الرد عليه بواسطة (2,800 نقاط)
+1
ارغب في رؤيطة الطريقة وشكرا
0
ضعه اخي كحل بديل ولو اني ابحث عن animation
+1 تصويت

تفضل   وانا ابحث بدوري عن حل لعمل animate اذا وجدت حل جيد ساوافيك بك 

procedure TForm1.Button1Click(Sender: TObject);
begin
  lv1.Items.Clear;
  item := lv1.Items.Add;
  item.Data['Name'] := 'Eagle Master';
end;

procedure TForm1.lv1MouseEnter(Sender: TObject);
begin
  if item <> nil then
  begin
    // item.Objects.FindObjectT<TListItemText>('Name').Height :=16;
    // item.Objects.FindObjectT<TListItemText>('Name').PlaceOffset.X  :=16;
    item.Objects.FindObjectT<TListItemText>('Name').PlaceOffset.Y := 16;
  end;
end;

procedure TForm1.lv1MouseLeave(Sender: TObject);
begin
  if item <> nil then
  begin
    // item.Objects.FindObjectT<TListItemText>('Name').Height:=200;
    // item.Objects.FindObjectT<TListItemText>('Name').PlaceOffset.X  :=200;
    item.Objects.FindObjectT<TListItemText>('Name').PlaceOffset.Y := 200;
  end;
end;

 

تم الرد عليه بواسطة (2,800 نقاط)
0
شكرا على جهودك  ويا ريت لو وجدت حل توافيني به بارك الله فيك راح اترك الموضوع مفتوح ربما يفيدنا احد بعد اذنك طبعا

اسئلة متعلقة

0 تصويتات
1 إجابة
سُئل يناير 28، 2019 في تصنيف fmx بواسطة NADIRE (870 نقاط) | 73 مشاهدات
+3 تصويتات
3 إجابة
سُئل يوليو 19، 2018 في تصنيف fmx بواسطة NADIRE (870 نقاط) | 104 مشاهدات
+1 تصويت
2 إجابة
سُئل نوفمبر 20، 2019 في تصنيف fmx بواسطة xorpas (1,320 نقاط) | 47 مشاهدات
0 تصويتات
2 إجابة
سُئل أغسطس 27، 2019 في تصنيف Database بواسطة Amar Gozim (11,210 نقاط) | 30 مشاهدات
+4 تصويتات
1 إجابة
سُئل أغسطس 2، 2018 في تصنيف Delphi بواسطة mahieddine (570 نقاط) | 115 مشاهدات
ادعُ اصدقائك في الفايسبوك لمشاركتك
Comodo SSL

مرحبًا بك إلى EasyDelphi Q&A، حيث يمكنك طرح الأسئلة والحصول على الإجابة عليها من المستخدمين الآخرين.

لا يسمح بطلب او السؤال عن كراك او تفعيل او كسر او فك او اي شيء يخالف اتفاقيات الترخيص  مهما كان السبب ومهما كان البرنامج ونوعه. ولا حتى نشر روابط تحتوي على مثل هذه الاشياء لا في الاسئلة ولا في الاجابات ولا التعليقات . نهائيا

480 سؤال
741 إجابة
1,394 تعليق
250 مستخدم