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;
К оглавлению
Обязанности по поддержанию порядка и обновления этой страницы лежат
на Diamond Cat.
Последнее обновление - 15 октября 1999
Чужая реклама: