void __fastcall TForm1::Image2Click(TObject *Sender)
{
if(recortar)
{
TPoint posicion;
if(recortarcont==1)
{
GetCursorPos((&posicion));
supx=posicion.x - Form1->Left - Image2->Left;
supy=posicion.y - Form1->Top - Image2->Top;
recortarcont++;
Edit2->Text=supx;
Edit3->Text=supy;
}
else if(recortarcont==2)
{
GetCursorPos((&posicion));
infx=posicion.x - Form1->Left - Image2->Left;
infy=posicion.y - Form1->Top - Image2->Top;
recortarcont++;
Edit2->Text=infx;
Edit3->Text=infy;
recortarcont++;
Graphics::TBitmap *Bitmap;
TRect MyRect, MyOther;
MyRect = Rect(0,0,Image2->Width,Image2->Height);
MyOther = Rect(0,0,juntas->Width, juntas->Height);
Bitmap = new Graphics::TBitmap;
Bitmap->Width= juntas->Width;
Bitmap->Height= juntas->Height;
Bitmap->Assign(Image2->Picture->Graphic);
juntas->Canvas->CopyRect(MyOther, Bitmap->Canvas, MyRect);
delete Bitmap;
}
}
}