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

Советы » Изображения » Негатив картинки

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

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com