دخول

bassem_43 · 25-01-2014, 09:21 AM

السلام عليكم
طالعت المثال المرفق و حاولت التعديل على الكود الموجود في الاسفل كي يمنحني ان ادخل صورة من عندي واعمل عليها التاثير لكن بدون جدوى يعني مكان 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;

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة