24-04-2017, 10:09 PM
السلام عليكم
الطريقة الاولى تحتاج اولا الى فك الصورة الى اجزاء تم تشغيلها بالتوالي في مؤقت كما بالصورة
![[صورة: 87905cab3b757b1.jpg]](http://www.m5zn.com/newuploads/2017/04/24/jpg//87905cab3b757b1.jpg)
الطريقة الثانية هي تحميل الصورة بشكل طبيعي في المكون Timage
تم كتابة الكود التالي في نموذج التحميل
نسيت ان اخبرك ان عليك اضافة الوحدة
Vcl.Imaging.GIFImg
الطريقة الاولى تحتاج اولا الى فك الصورة الى اجزاء تم تشغيلها بالتوالي في مؤقت كما بالصورة
كود :
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
![[صورة: 38b23fc341551a0.gif]](http://www.m5zn.com/newuploads/2017/04/25/gif//38b23fc341551a0.gif)