unit1.~cp

来自「face tracking function of source code」· ~CP 代码 · 共 117 行

//---------------------------------------------------------------------------
#include <vcl\vcl.h>
#pragma hdrstop
#include "tccolor.h"
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
OpenDialog1->FileName = "bluesky.BMP";
if(OpenDialog1->Execute())
       {
       PathName = OpenDialog1->FileName;
       Image1->Picture->LoadFromFile(OpenDialog1->FileName);
       }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
 SaveDialog1->FileName = PathName;
 if (SaveDialog1->Execute())
     PathName = SaveDialog1->FileName;
     Image1->Picture->SaveToFile(PathName);

}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
int i,j;
j=0;
int buff[255];
 for(i=0;i<=255;i++)
 {
  j=j+2;
  Canvas->LineTo (j+10, buff[i]/10000000);
 }
	
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{

 int x,y,k,i=1,j=1;
 int leftbound[500],rightbound[500];
 int min,max,width;

 for (k=1;k<=500;k++)
 {
     leftbound[k]=20000;
     rightbound[k]=0;
 }

 for(y=RecStartY;y<=RecEndY;y++)
 {
   for(x=RecStartX;x<=RecEndX;x++)
   {
   TCColor c=Image1->Canvas->Pixels[x][y];
     if ((int)c.Red>150)
     {
        if ((int)c.Green<50)
        {
            if  ((int)c.Blue<50)
            {
                leftbound[i]=x;
                i++;
                x=1+Image1->Picture->Width;
            }
        }
     }

   }
 }

 for(y=RecStartY;y<=RecEndY;y++)
 {
   for(x=RecEndX;x>=RecStartX;x--)
   {
   TCColor c=Image1->Canvas->Pixels[x][y];
     if ((int)c.Red>150)
     {
        if ((int)c.Green<50)
        {
            if  ((int)c.Blue<50)
            {
                rightbound[j]=x;
                j++;
                x=-1;
            }
        }

     }
   }
 }
 min=10000;
 for (k=1;k<=300;k++)
 {
    if (leftbound[k]<min)
        min=leftbound[k];
 }

 max=0;
 for (k=1;k<=300;k++)
 {
    if (rightbound[k]>max)
        max=rightbound[k];
 }
 width=max-min;

  if (width==19)
     Label10->Caption="