delphi 只用一条语句就能使TBitmap反色

2018-10-30

只用一条语句就能使TBitmap反色,你或许不相信,那就试试下面这行代码(假定我们要反色的位图是Bitmap):
with Bitmap do
BitBlt(Canvas.Handle,0,0,Width,Height,Canvas.Handle,0,0,NotSrcCopy);
这里看似有点矛盾,因为API函数BitBlt的原设备场景和目标设备场景都是: Bitmap.Canvas.Handle,实际上,这是完全可以的,试试你就知道了,而且,反色的速度非常快。
阅读10