+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : مثال عن الصور 'fire monkey' (/showthread.php?tid=5482)
مثال عن الصور 'fire monkey' - rabihpascal - 23-08-2013
السلام عليكم
هل هناك امثلة على عمل 'bmp animate'في 'fire monkey'
مثال عن الصور 'fire monkey' - SMP3 - 24-08-2013
هذا مثال على السريع لعمل فلتر blur على الصور :
كود :
http://im42.gulfup.com/8lfXj.pngPHP كود :
var
bmp: TBitmap;
GaussianBlurEffect: TGaussianBlurEffect;
begin
bmp := TBitmap.Create(0, 0);
bmp.LoadFromFile('Koala.bmp');
Canvas.BeginScene;
Canvas.DrawBitmap(bmp, RectF(0, 0, bmp.Width, bmp.Height),
RectF(0, 10, bmp.Width, bmp.Height), 255);
Canvas.EndScene;
GaussianBlurEffect := TGaussianBlurEffect.Create(nil);
GaussianBlurEffect.BlurAmount := 0.8;
GaussianBlurEffect.ProcessEffect(bmp.Canvas, bmp, 1);
Canvas.BeginScene;
Canvas.DrawBitmap(bmp, RectF(0, 0, bmp.Width, bmp.Height),
RectF(bmp.Width + 30, 10, bmp.Width * 2 + 30, bmp.Height), 255);
Canvas.EndScene;
bmp.Free;
end;
إقتباس :docwiki.embarcadero.com/RADStudio/XE3/en/FireMonkey_Image_Effects+
FireMonkey Tut 4 : التعامل مع الفلاتر
مثال عن الصور 'fire monkey' - rabihpascal - 24-08-2013
اشكرك جزيل الشكر استاذي الكريم
على هذه المعلومات الغنية جدا
وعلى هذا الفلاش الرائع