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

本文整理自网络，侵删。

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

相关阅读 >>

Delphi android 启动卡死处理方法

Delphi tstringlist的delimitedtext的空格问题

Delphi 判断两个时间差是否在一个指定范围内

Delphi tfdquery提交tfdmemtable修改的数据

Delphi imagelist-图片（bmp）按名称而不按索引

Delphi shellexecute打开文件另类用法

[译]rad studio 10.4 新变化：面向控件的 vcl 样式管理

Delphi trayicon1 托盘气泡提示

Delphi 2009 的反射单元(objauto):

Delphi trimright 删除字符串右边的空格

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 只用一条语句就能使TBitmap反色