Негатив картинки
Материал из DRKB
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;
Source: http://delphiworld.narod.ru
ID: 03868