Инверсия всех цветов Bitmap

Советы » Bitmap » Инверсия всех цветов Bitmap

{ **** 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

;

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

Категории

Статьи

Советы

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