Hola gente
Bueno necesito poder recortar una parte de un TImage para mostrarla luego en otro TImage.
Yo probe usando CopyRect pero la verdad que no me funciono.
La imagen que uso es en formato JPEG.
El codigo que habia utilizado es el siguiente.
La idea es recortar un rectangulo de la imagen haciendo click en el vertice superior izquierdo del rectangulo que se quiere cortar y despues en el vertice inferior derecho
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;
}
}
}
y en un botton tengo el siguiente codigo
void __fastcall TForm1::Button6Click(TObject *Sender)
{
recortar=true;
recortarcont=1;
}
El codigo recorta una parte pero lo hace mal porque no recorta la parte que yo necesito, viendo un poco mas me di cuenta de que los valores que le paso a CopyRect no tienen que ser esos.. pero no entiendo muy bien el CopyRect asique no se como arreglar mi codigo para que haga lo que necesito..
