recortar una foto
 

:confused: Hola.

uso la función CopyRect(), he aplicado un ejemplo de ayuda de delphi 6, y no entiendo los parámetros de esta función.
Este es el código q he usado:

procedure TForm1.Recortar_ImagenClick(Sender: TObject);
begin
//MyRect := Rect(10,10,100,100);
MyRect:=Rect(10,10,100,100);
MyOther:=Rect(10,111,210,340);
//MyOther := Rect(10,111,100,210);
Bitmap := TBitmap.Create;
Bitmap.LoadFromFile('D:\COSAS\INTERNET_DELPHI\002.bmp');
//Form1.Canvas.BrushCopy(MyRect, Bitmap, MyRect, clBlack);
Form1.Canvas.CopyRect(MyOther,Bitmap.Canvas,MyRect);
Bitmap.Free;
end;


Saludos,gracias.

Antes de nada, comentarte que utilices TAG's cuando coloques código Delphi.
En código que has puesto funciona bien; Lo que hay que saber es qué quieres hacer.
Esto copia una parte del canvas (el que delimita MyRect(origen) del Bitmap) a otro canvas (el de form1) en la zona que delimita MyOther (destino).