Негатив картинки 

Previous  Top  Next

    
 

 

 

Code:

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;

 

©Drkb::03868

       

Взято с http://delphiworld.narod.ru