+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف أعمل هذا التأثير الرائع على الصور (/showthread.php?tid=5863)
الصفحات:
1
2
كيف أعمل هذا التأثير الرائع على الصور - mICR0b - 17-01-2014
السلام عليكم و رحمة الله و بركاته
الحمد لله وحده و الصلاة و السلام على من لا نبي بعده
هذا التأثير لطالما حيرني كيفة تصميمه
عبارة عن صورة و لما تمرر الماوس كأن الصورة في الماء
كود :
http://img4.hostingpics.net/pics/270811untitled.pngممكن الطريقة لو سمحتم ؟
كيف أعمل هذا التأثير الرائع على الصور - Sonic - 17-01-2014
عليكم السلام
ما تبجث عنه عبارة عن مكون
PHP كود :
www.efg2.com/Lab/Library/Delphi/Algorithms/LeonelTogniolli_WaterEffects.zip
كيف أعمل هذا التأثير الرائع على الصور - mICR0b - 24-01-2014
sonic كتب :عليكم السلام
ما تبجث عنه عبارة عن مكون
قم بتثبيت المكون و هناك مثال مرفق معهPHP كود :www.efg2.com/lab/library/delphi/algorithms/leoneltogniolli_watereffects.zip
شكرا لك أخي الفاضل
ممكن طريقة استعماله لو سمحت ؟
كيف أعمل هذا التأثير الرائع على الصور - bassem_43 - 25-01-2014
السلام عليكم
طالعت المثال المرفق و حاولت التعديل على الكود الموجود في الاسفل كي يمنحني ان ادخل صورة من عندي واعمل عليها التاثير لكن بدون جدوى يعني مكان Bitmap اضع صورة من عندي هل من طريقة لدلك ؟؟؟
كود :
procedure TForm1.Button1Click(Sender: TObject);
var x,y:integer;
P : PRGB32Array;
BitMap : TBitMap;
begin
DoubleBuffered := true;
BitMap := TBitMap.Create; // Draw Something nice...
try
with BitMap do
begin
height := Image1.height;
width := Image1.width;
PixelFormat := pf32bit;
for y:=0 to height - 1 do
begin
P := ScanLine[y];
x := 0;
while x < width do
begin
P[x].R := x xor y;
P[x].G := 0;
P[x].B := 0;
P[x].A := 0;
inc(x);
end;
end;
end;
Image1.Canvas.Draw(0,0,BitMap);
finally
BitMap.Free;
end;
LTWaterEffect1.Start; // Start the fun
end;كيف أعمل هذا التأثير الرائع على الصور - محمد عبد العزيز - 25-01-2014
السلام عليكم
على ما اتذكر هناك مكون أو function ضمن المشروع الصيني CNPACK بها تاثير الماء water effect
كيف أعمل هذا التأثير الرائع على الصور - bassem_43 - 25-01-2014
B.M.AbdelAziZ كتب :بارك الله فيك الاخ عبد العزيز
السلام عليكم
على ما اتذكر هناك مكون أو function ضمن المشروع الصيني CNPACK بها تاثير الماء water effect
لقد بحثت في المنتدى ووجدت رابط لموضوع قديم لك يحتوي على المكونات هدا هو الرابط لمن يهمه الامر
http://www.cnpack.org/showdetail.php?id=621&lang=en
لكن بعد تسطيب المكون عادي ولكن عند تشغيل البرنامج يظهر هدا الخطا
[Erreur fatale] Unit1.pas(7): Fichier non trouvé : 'CnWaterImage.dcu'
قمت بوضع الملف الناتج CnWaterImage.dcu الدي يظهر بعد instalation للمكون في lib دالفي 7 لكن بدون جدوى يبقى نفس الخطا يظهر هل من حل ؟؟
كيف أعمل هذا التأثير الرائع على الصور - bassem_43 - 25-01-2014
اسف نسيت ان اخبرك بامر
بعد تحميل الملف وجدت داخله مكونين واحد اسمه dclCnPack_D7 تسطب عادي والاخر اسمه CnPack_D7 بعد فتحه بالدالفي وعمل instal يظهر هدا الخطا
[Erreur fatale] CnPack_D7.dpk(3): Fichier non trouvé : 'CnPack.inc'
لكن في شريط المكونات نجد مكونات Cnpack لكن عند اختيار اي مكون وخصيصا مكون تاثير المياه يظهر الخطا الدي شرحته سابقا فما الحل في رايكم ؟
كيف أعمل هذا التأثير الرائع على الصور - mICR0b - 26-01-2014
شكرا لتفاعلكم اخوان من يعرف برمجة هذا التأثير لا يبخل علينا بارك الله فيكم
http://im35.gulfup.com/HilYb.swf
كيف أعمل هذا التأثير الرائع على الصور - Agmcz - 26-01-2014
ثبتت اخر اصدار من مجموعة cnpack
PHP كود :
http://www.cnpack.org/upgrade/cnwizards/cnwizards_1.0.2.666_src.7z
يعمل بشكل رائع
لمن لم يستطع تثبيت المجموعة أو ظهرت له أخطاء
عليه بمشاهدة هذه المواضيع
PHP كود :
http://www.delphi4arab.net/forum/showthread.php?tid=3604
http://www.delphi4arab.net/forum/showthread.php?tid=8725
كيف أعمل هذا التأثير الرائع على الصور - phpbb3 - 26-01-2014
مثال لعمل مثل هذا التاثير