Инверсия всех цветов 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
;

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

• Bitmap без формы
• Bitmap.Scanline для PixelFormat
• Вращать Bitmap вокруг точки