快速將某一區域的顏色取反 (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;