var
Line:pByteArray;
i,j:integer;
begin
For i:=0 to Image1.Picture.Bitmap.Height-1 do // считываем высоту картинки
Begin
Line:=Image1.Picture.Bitmap.ScanLine[i]; //сканируем по линиям рисунок
For j:=0 to Image1.Picture.Bitmap.Width*3-1 do
Line^[j]:=255-Line^[j]; //меняем цвет на обратный исходя из RGB
end;
Image1.Refresh;
end; К оглавлению