Mega Code Archive

 

Categories / Delphi / Graphic

 

How to invert a 32 bit Bitmap

Title: How to invert a 32 bit Bitmap 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;