Delphi演示如何将一张图片的颜色加深，类似于调整对比度，不过本效果不加入了渐变加深的动画效果，按住按钮图片一直变暗下去，要知空间，你可看下以下代码：
Bitmap:=image1.Picture.Bitmap;
image1.Height:=Bitmap.Height;
image1.Width:=Bitmap.Width;
fori:=0to255do
begin
sleep(10);
fory:=0toBitmap.Height-1do
begin
pixcolo:=Bitmap.Scanl
