EasyDelphi Q&A

.تم الانتقال للموقع الجديد . وسيبقى الموقع القديم هذا متاح للقراءة فقط حتى الانتهاء من نقل كل الاسئلة إلى الموقع الجديد

يمكنك طرح الاسئلة والنقاشات في الموقع الجديد. الذهاب للموقع الجديد


0 تصويتات
202 مشاهدات

السلام عليكم

مشكل في 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,360 نقاط)
عُدل بواسطة | 202 مشاهدات

2 إجابة

0 تصويتات

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

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

 

تم الرد عليه بواسطة (2,870 نقاط)
+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,870 نقاط)
0
شكرا على جهودك  ويا ريت لو وجدت حل توافيني به بارك الله فيك راح اترك الموضوع مفتوح ربما يفيدنا احد بعد اذنك طبعا

اسئلة متعلقة

0 تصويتات
1 إجابة
سُئل يناير 28، 2019 في تصنيف fmx بواسطة NADIRE (870 نقاط) | 227 مشاهدات
+3 تصويتات
3 إجابة
سُئل يوليو 19، 2018 في تصنيف fmx بواسطة NADIRE (870 نقاط) | 165 مشاهدات
0 تصويتات
0 إجابة
سُئل أبريل 5 في تصنيف fmx بواسطة فطيمي بلال (120 نقاط) | 27 مشاهدات
+1 تصويت
2 إجابة
سُئل نوفمبر 20، 2019 في تصنيف fmx بواسطة xorpas (1,360 نقاط) | 131 مشاهدات
0 تصويتات
2 إجابة
سُئل أغسطس 27، 2019 في تصنيف Database بواسطة Amar Gozim (11,220 نقاط) | 82 مشاهدات
ادعُ اصدقائك في الفايسبوك لمشاركتك
Comodo SSL

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

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

497 سؤال
752 إجابة
1,417 تعليق
275 مستخدم