Негатив картинки
|
Надрали одного хакера в зад, тот жалуетсяа корешу:
- Вот, типа, поймали меня на улице геи и в зад отымели. Теперь в ж#пе дырка как у слона во рту.
А корешь ему и отвечает:
- Зазипуй!
|
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
//меняем цвет на обратный исходя из RGB
Line^[j] := 255 - Line^[j];
end;
Image1.Refresh;
end;
|
|
