السلام عليكم
طالعت المثال المرفق و حاولت التعديل على الكود الموجود في الاسفل كي يمنحني ان ادخل صورة من عندي واعمل عليها التاثير لكن بدون جدوى يعني مكان 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
بارك الله فيك الاخ عبد العزيز
لقد بحثت في المنتدى ووجدت رابط لموضوع قديم لك يحتوي على المكونات هدا هو الرابط لمن يهمه الامر 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 لكن عند اختيار اي مكون وخصيصا مكون تاثير المياه يظهر الخطا الدي شرحته سابقا فما الحل في رايكم ؟
و من طلب العلوم بغير كد _________ سيدركها إذا شاب الغراب
