Tips (1541)

Tip Bewertung (13):

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;