怎样对图像的颜色进行调节，如反白，图像的颜色对比之类

Question

变灰：
procedure TForm1.Button1Click(Sender: TObject);
var
  x,y,i: integer;
  BitMap : TBitMap;
  ptr : PByteArray;
begin
  BitMap := TBitMap.Create;
  try
      BitMap.LoadFromFile('lanmannt.bmp');
      BitMap.PixelFormat := pf24bit;
      for i := 0 to 255 do begin
         for y := 0 to BitMap.Height - 1 do begin
            ptr := BitMap.ScanLine[y];
            for x := 0 to ((BitMap.Width * 3) - 1) do
               if ptr[x] > 0 then ptr[x] := (ptr[x] - 1);
         end;
         Image1.Canvas.Draw(0,0,BitMap);
         Application.ProcessMessages;
      end;
  finally
    BitMap.free;
  end;
end;

Answer 1

谢谢你的代码.我的图像是黑白的，图像使有其他格式的转为bmp的，刚才试了一下没反应，
是因为上面的原因吗？