... invert a 32 bit Bitmap?

Author: Finn-Ole P.

Category: Graphic

procedure invertiere32Bit(Bitmap: TBitmap);
var
  i, j: Integer;
  P: PDWord;
begin
  p := Bitmap.Scanline[Bitmap.Height - 1];
  for j := 1 to Bitmap.Height * Bitmap.Width do
  begin
    p^ := not p^;
    Inc(p);
  end;
  Bitmap.Assign(bitmap);
end;

printed from
www.swissdelphicenter.ch
developers knowledge base