Надрали одного хакера в зад, тот жалуетсяа корешу:
- Вот, типа, поймали меня на улице геи и в зад отымели. Теперь в ж#пе дырка как у слона во рту.
А корешь ему и отвечает:
- Зазипуй!
var
Line: pByteArray;
i, j: integer;
begin// считываем высоту картинкиfor i := 0 to Image1.Picture.Bitmap.Height - 1 dobegin//сканируем по линиям рисунок
Line := Image1.Picture.Bitmap.ScanLine[i];
for j := 0 to Image1.Picture.Bitmap.Width * 3 - 1 do//меняем цвет на обратный исходя из RGB
Line^[j] := 255 - Line^[j];
end;
Image1.Refresh;
end;
Статья Негатив картинки раздела Графика и Игры Изображения может быть полезна для разработчиков на delphi & pascal.
