можно попробовать так
PHP код:
function Fon(c: TColor): Boolean;
begin
result := GetRValue(c)*GetGValue(c)*GetBValue(c) > 200*220*220;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i, j: integer;
begin
if not OpenDialog1.Execute then exit;
Image1.Picture.LoadFromFile(OpenDialog1.FileName);
with Image1.Picture do
for i := 0 to Bitmap.Width - 1 do
for j := 0 to Bitmap.Height - 1 do
if Fon(Bitmap.Canvas.Pixels[i, j]) then
Bitmap.Canvas.Pixels[i, j] := clgreen;
end;
там где 200*220*220 можно подбирать
(пересохранить в bmp естественно)