不规则窗体 生成代码

void __fastcall TForm1::FormCreate(TObject *Sender)
{
/*
   功能：不规则窗体生成代码。
   用法：将代码段加入程序的FormCreate方法中即可实现
   注意：修改变量willKouColor值以适应不同的窗体画面
   　　　在Image1中Add一幅BMP图片                              

*/



   TColor willKouColor=clWhite;  //变量willKouColor代表要抠去的颜色
   Width=Image1->Width;
   Height=Image1->Height+10;
   register int x,y;
   int l,r;
   POINT *a;
   bool bCount,bHeight;
   HRGN WndRgn,TRgn1,TRgn2;
   if((a=(POINT *)malloc(Width*Height*(sizeof(POINT))))==NULL)
   {
      MessageBox(Handle,"内存分配失败！","信息提示",MB_OK);
      Close();
   }

   Repaint();  //Let windows_size=image_size
   l=0;