void __fastcall TForm1::ScrollBar1Change(TObject *Sender)
{
Graphics::TBitmap *Bmp = new Graphics::TBitmap();
 Byte *ptr;
 int r,g,b;
 int gray;
 int i,j;
 int threshold;
 threshold=ScrollBar1->Position;
 Edit1->Text=ScrollBar1->Position;     Bmp->Assign(Image2->Picture->Bitmap);     Image3->Height=Image2->Height;
 Image3->Width=Image2->Width;     for(j=0;jHeight;j  )
 {
  ptr = (Byte *)Bmp->ScanLine[j];
  for(i=0;iWidth;i  )
  {
   b=ptr[i*3];
   g=ptr[i*3 1];
   r=ptr[i*3 2];
   gray=0.299*r  0.587*g 0.114*b;
   if(gray>threshold)
    gray=255;
   else
    gray=0;
   ptr[i*3]=(Byte)gray;
   ptr[i*3 1]=(Byte)gray;
   ptr[i*3 2]=(Byte)gray;
  }
 }
 Image3->Picture->Assign(Bmp);
 delete Bmp;
 }    //要做二值化的正規化原圖    void __fastcall TForm1::Open1Click(TObject *Sender)
{
Graphics::TBitmap *Bmp = new Graphics::TBitmap();    OpenPictureDialog1->FileName;
if(OpenPictureDialog1->Execute())
       {
       Image1->Picture->LoadFromFile(OpenPictureDialog1->FileName);
       Image1->Width=Image1->Picture->Width;
       Image1->Height=Image1->Picture->Height;
       Bmp->Assign(Image1->Picture->Bitmap);
       Image2->Picture->Assign(Bmp);
       }    Graphics::TBitmap *NBmp = new Graphics::TBitmap();      int            w,h,newW,newH;
  double         dX,dY,x,y;
  int            i,j;
  int            ix,iy;                    // integer value of (x,y)
  double         fx,fy;                    // float value of (x,y)
  unsigned char  clr,
                 clrR,clrG,clrB,
                 nclr1,nclr2,nclr3,nclr4;  // color of neighbor 4 pixel      w = Image1->Width;
  h = Image1->Height;
  newW = 240;
  newH = 320;
  if((newW <=0) ||(newH <=0))
  {
    ShowMessage("Invalided parameter");
    return;
  }
  NBmp->Width  = newW;
  NBmp->Height = newH;      /* Caculate the step size of movement */
  dX = (double)w/(double)newW;
  dY = (double)h/(double)newH;      for(j = 0 ; j < newH ; j  )
     for(i =0 ; i < newW ; i  )
     {
       x = dX*(double)i;
       y = dY*(double)j;           ix = (int)x;         iy = (int)y;
       fx = x - (float)ix;  fy = y - (float)iy;           nclr1 = GetRValue(Bmp->Canvas->Pixels[ix][iy]);
       nclr2 = GetRValue(Bmp->Canvas->Pixels[ix 1][iy]);
       nclr3 = GetRValue(Bmp->Canvas->Pixels[ix][iy 1]);
       nclr4 = GetRValue(Bmp->Canvas->Pixels[ix 1][iy 1]);
       // Bilinear
       clrR=(byte)((1.0-fx)*(1.0-fy)*(double)nclr1 (fx)*(1.0-fy)*(double)nclr2  (1.0-fx)*    (fy)*(double)nclr3 (fx)*    (fy)*(double)nclr4);           nclr1 = GetGValue(Bmp->Canvas->Pixels[ix][iy]);
       nclr2 = GetGValue(Bmp->Canvas->Pixels[ix 1][iy]);
       nclr3 = GetGValue(Bmp->Canvas->Pixels[ix][iy 1]);
       nclr4 = GetGValue(Bmp->Canvas->Pixels[ix 1][iy 1]);
       // Bilinear
       clrG=(byte)((1.0-fx)*(1.0-fy)*(double)nclr1 (fx)*(1.0-fy)*(double)nclr2  (1.0-fx)*    (fy)*(double)nclr3 (fx)*    (fy)*(double)nclr4);           nclr1 = GetBValue(Bmp->Canvas->Pixels[ix][iy]);
       nclr2 = GetBValue(Bmp->Canvas->Pixels[ix 1][iy]);
       nclr3 = GetBValue(Bmp->Canvas->Pixels[ix][iy 1]);
       nclr4 = GetBValue(Bmp->Canvas->Pixels[ix 1][iy 1]);
       // Bilinear
       clrB=(byte)((1.0-fx)*(1.0-fy)*(double)nclr1 (fx)*(1.0-fy)*(double)nclr2  (1.0-fx)*  (fy)*(double)nclr3 (fx)*    (fy)*(double)nclr4);           NBmp->Canvas->Pixels[i][j] = (TColor)RGB(clrR,clrG,clrB);
     }
  Image2->Width = newW;
  Image2->Height = newH;
  Image2->Picture->Bitmap = NBmp;
  Image4->Picture->Assign(NBmp);
   delete NBmp;
delete Bmp;    

void __fastcall TForm1::ScrollBar1Change(TObject *Sender)
{
    Graphics::TBitmap *Bmp = new Graphics::TBitmap();
    TRGBTriple* ptr;  // 使用 TRGBTriple 以提高程式碼的易讀性
    BYTE gray;
    int i, j;
    int threshold = ScrollBar1->Position;        Image3->Height = Image2->Height;
    Image3->Width  = Image2->Width;
    Bmp->Height = Image2->Height;
    Bmp->Width  = Image2->Width;        // 用 CopyRect 來代替 Assign 的動作
    Bmp->Canvas->CopyRect(Rect(0, 0, Bmp->Width, Bmp->Height), Image2->Picture->Bitmap->Canvas, Rect(0, 0, Image2->Width, Image2->Height));
    Bmp->PixelFormat = pf24bit;  // 確保圖形格式為 24bit        for (j=0; jHeight; j  ) {
        ptr = (TRGBTriple *)Bmp->ScanLine[j];
        for (i=0; iWidth; i  ) {
            gray = BYTE( (ptr[i].rgbtRed*0.299)   (ptr[i].rgbtGreen*0.587)   (ptr[i].rgbtBlue*0.114) );
            if (gray > threshold) {
                gray = 255;
            } else {
                gray = 0;
            }
            ptr[i].rgbtRed   = gray;
            ptr[i].rgbtGreen = gray;
            ptr[i].rgbtBlue  = gray;
        }
    }        Image3->Picture->Bitmap->Assign(Bmp);
    Image3->Picture->Bitmap->PixelFormat = pf24bit;        delete Bmp;
    Bmp = NULL;
}