... ein 32Bit Bitmap invertieren?

Autor: Finn-Ole P.

Kategorie: Grafik

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