将区域的颜色取反

快速将某一区域的颜色取反,主要应用在制作表格时的选择区域.
  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;