DELPHI对BMP图片进行反色的函数

 

procedure TBaseClass.SelectBmp(Aimage: TImage);
var
  x,y : Integer;
  P : PByteArray;
begin
    with Aimage.Picture.Bitmap do
    begin
      for y := 0 to Height -1 do
      begin
        P := ScanLine[y];
        for x := 0 to (Width * 3) -1 do
          P[x] := not P[x];
      end;
      Aimage.Repaint;
    end;
end;