السلام عليكم و رحمة الله و بركاته
الحمد لله وحده و الصلاة و السلام على من لا نبي بعده
هذا التأثير لطالما حيرني كيفة تصميمه
عبارة عن صورة و لما تمرر الماوس كأن الصورة في الماء
كود :
http://img4.hostingpics.net/pics/270811untitled.png
ممكن الطريقة لو سمحتم ؟
عليكم السلام
ما تبجث عنه عبارة عن مكون
PHP كود :
www.efg2.com/Lab/Library/Delphi/Algorithms/LeonelTogniolli_WaterEffects.zip
قم بتثبيت المكون و هناك مثال مرفق معه
sonic كتب :عليكم السلام
ما تبجث عنه عبارة عن مكون
PHP كود :
www.efg2.com/lab/library/delphi/algorithms/leoneltogniolli_watereffects.zip
شكرا لك أخي الفاضل
ممكن طريقة استعماله لو سمحت ؟
السلام عليكم
طالعت المثال المرفق و حاولت التعديل على الكود الموجود في الاسفل كي يمنحني ان ادخل صورة من عندي واعمل عليها التاثير لكن بدون جدوى يعني مكان 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;
السلام عليكم
على ما اتذكر هناك مكون أو function ضمن المشروع الصيني CNPACK بها تاثير الماء water effect
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 لكن بدون جدوى يبقى نفس الخطا يظهر هل من حل ؟؟
اسف نسيت ان اخبرك بامر
بعد تحميل الملف وجدت داخله مكونين واحد اسمه dclCnPack_D7 تسطب عادي والاخر اسمه CnPack_D7 بعد فتحه بالدالفي وعمل instal يظهر هدا الخطا
[Erreur fatale] CnPack_D7.dpk(3): Fichier non trouvé : 'CnPack.inc'
لكن في شريط المكونات نجد مكونات Cnpack لكن عند اختيار اي مكون وخصيصا مكون تاثير المياه يظهر الخطا الدي شرحته سابقا فما الحل في رايكم ؟
ثبتت اخر اصدار من مجموعة cnpack
PHP كود :
http://www.cnpack.org/upgrade/cnwizards/cnwizards_1.0.2.666_src.7z
المكون CnWaterImage
يعمل بشكل رائع
لمن لم يستطع تثبيت المجموعة أو ظهرت له أخطاء
عليه بمشاهدة هذه المواضيع
PHP كود :
http://www.delphi4arab.net/forum/showthread.php?tid=3604
http://www.delphi4arab.net/forum/showthread.php?tid=8725
مثال لعمل مثل هذا التاثير