الوصول إلى كل نقطة في الصورة (pixel)

[محمد عبد العزيز]

بسم الله الرحمن الرحيم

يمكن الوصل الى اي نقطة حسب احداثياتها x,y باستخدام Canvas
مثلا لدينا صورة Bitmat في مكون Image1 نصل للون النقطة ب

كود :

Image1.Canvas.Pixels[x,y]

نقراء اللون الى متغير c مثلا

كود :

c:=Image1.Canvas.Pixels[0,0];

مثلا نغير اللون لاول نقطة بالصورة الى الون الازرق نكتب

كود :

Image1.Canvas.Pixels[0,0] := clBlue;

وان اردنا عدم استخدام Canvas يمكن استخدام دوال API
GetPixel لمعرفة اللون
SetPixel لتغيير االون
لمزيد من التفاصيل وامثلة راجع الHelp
والسلام عليكم