Инверсия всех цветов BitmapDelphi , Графика и Игры , BitmapИнверсия всех цветов Bitmap
Автор: Fenik { **** UBPFD *********** by delphibase.endimus.com **** >> Инверсия всех цветов Bitmap Зависимости: Graphics Автор: Fenik, chook_nu@uraltc.ru, Новоуральск Copyright: Собственное написание (Николай федоровских) Дата: 1 июня 2002 г. ***************************************************** } procedure InvertBitmap(Bitmap: TBitmap); type TRGB = record B, G, R: Byte; end; pRGB = ^TRGB; var x, y: Integer; Dest: pRGB; begin Bitmap.PixelFormat := pf24Bit; for y := 0 to Bitmap.Height - 1 do begin Dest := Bitmap.ScanLine[y]; for x := 0 to Bitmap.Width - 1 do begin with Dest^ do begin R := 255 - R; G := 255 - G; B := 255 - B; end; Inc(Dest); end; end; end; В статье описывается процедура InvertBitmap, которая инвертирует цвета в Bitmap-образе, меняя красный, зелёный и синий компоненты на их отрицательные значения. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |