快速将某一区域的颜色取反 (2000年8月3日).txt

delphi 编程技巧

快速将某一区域的颜色取反 (2000年8月3日) 

本站更新  分类:   作者:srw  推荐:   阅读次数:551  
(http://www.codesky.net)  

--------------------------------------------------------------------------------


主要应用在制作表格时的选择区域.

API函数:PatBlt(MyHDC:HDC;X,Y,WIDTH,HEIGHT:INTEGER;MODE);

例如:
var
MyDC:HDC;
Begin
MyDC:HDC;
MyDC:=GetDC(Form1.Handle);
if not PatBlt(MyDC,
1,
1,
100,
100,
DSTINVERT) then
ShowMessage('ERROR :~(');
End;