كيف تشغل صورة GIF بدون مكونات
#1
السلام عليكم

الطريقة الاولى تحتاج اولا الى فك الصورة الى اجزاء تم تشغيلها بالتوالي في مؤقت كما بالصورة
[صورة: 87905cab3b757b1.jpg]

كود :
http://www.m5zn.com/d/?16635525

الطريقة الثانية هي تحميل الصورة بشكل طبيعي في المكون Timage

تم كتابة الكود التالي في نموذج التحميل

كود :
( Image1.Picture.Graphic as TGIFImage ).Animate := True;// gets it goin'  ( Image1.Picture.Graphic as TGIFImage ).AnimationSpeed:= 500;// adjust your speed  Form2.DoubleBuffered := True;// stops flickering

نسيت ان اخبرك ان عليك اضافة الوحدة
Vcl.Imaging.GIFImg
قل: اللهم فاطِرَ السماوات والأرض عالم الغيبِ والشهادة، ربَّ كُلِّ شَيءٍ ومَلِيكَه، أَشْهد أن لا إله إلا أنت، أعوذ بك من شرِّ نفسي وشرِّ الشيطان وشِرْكِهِ وأن أقترف على نفسي سوءًا أو أجرُّه إلى مسلم
[-] كل من 2 users say قال شكرا ل Delphi4Us على المشاركة المفيدة
  • bassem_43, h-farid
الرد
#2
[صورة: 38b23fc341551a0.gif]
قل: اللهم فاطِرَ السماوات والأرض عالم الغيبِ والشهادة، ربَّ كُلِّ شَيءٍ ومَلِيكَه، أَشْهد أن لا إله إلا أنت، أعوذ بك من شرِّ نفسي وشرِّ الشيطان وشِرْكِهِ وأن أقترف على نفسي سوءًا أو أجرُّه إلى مسلم
الرد
#3
جربت الطريقة الثانية لكن لم ينفذ البرنامج لدي رسالة
[dcc32 Error] Unit1.pas(31): E2233 Property 'Animate' inaccessible here
من يشرح لي الخطأكيف أحله؟
الرد
#4
ماهي نسخة دلفي التي تستخدمها
وكيف حملت الصورة في المكون هل بطريقة الكود ام من الخاصية Picture
قل: اللهم فاطِرَ السماوات والأرض عالم الغيبِ والشهادة، ربَّ كُلِّ شَيءٍ ومَلِيكَه، أَشْهد أن لا إله إلا أنت، أعوذ بك من شرِّ نفسي وشرِّ الشيطان وشِرْكِهِ وأن أقترف على نفسي سوءًا أو أجرُّه إلى مسلم
[-] كل من 1 user says قال شكرا ل Delphi4Us على المشاركة المفيدة
  • awatef98
الرد
#5
شكرا لرد الصورة حملتها من الخاصية picture .اما النسخة هي ٌRAD STudio XE8
الرد
#6
ممكن ترفع المثال لارأه
قل: اللهم فاطِرَ السماوات والأرض عالم الغيبِ والشهادة، ربَّ كُلِّ شَيءٍ ومَلِيكَه، أَشْهد أن لا إله إلا أنت، أعوذ بك من شرِّ نفسي وشرِّ الشيطان وشِرْكِهِ وأن أقترف على نفسي سوءًا أو أجرُّه إلى مسلم
الرد


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم