كيفية تحويل صورة ملونة إلى ابيض و اسود

ان كنت تقوم بتطوير برنامج لمعاجة الرسوميات فقد ترغب

بإضافة فلاتر كما في معظم برامج معالجة الصور

اليك كيفية تحويل صورة ملونة إلى الابيض و الاسود

يكون ذلك كما يلي

عليك ان تغير لون كل بيكسل في الصورة إلى اللون المقابل

تغيير اللون يكون من خلال الدالة التالية

function RgbToGray(Source: TColor) : TColor;
var Target: Byte;
begin
  Target := Round((0.30 * GetRValue(Source)) +
  (0.59 * GetGValue(Source)) +
  (0.11 * GetBValue(Source)));
  Result := RGB(Target, Target, Target);
end;

بالنسبة للوصول إلى كل بيكسل استخدم التعليمة ScanLine

لمزيد من المعلومات عن التعليمة راجع ملفات المساعدة المرفقة مع ديلفي