Cuadro de captura de foto.

[radenf]

Estimado yapt :

Respecto a tu primera pregunta no tengo idea porque no uso el componente TShape.
La segunda pregunta te la respondo adjuntando el código requerido:

Código Delphi [-]
procedure TCapFoto.BtnRecortarClick(Sender: TObject);
Var New, Old : TRect;
Bitmap:TBitmap;
Begin
Bitmap := TBitmap.Create;
Bitmap.LoadFromFile('c:\foto.bmp');
New.Left:=SizeRect1.ClientRect.Left;
New.Top:=SizeRect1.ClientRect.Top;
New.Right:=SizeRect1.ClientRect.Right;
New.Bottom:=SizeRect1.ClientRect.Bottom;
Old := New;
Image2.Create(Self);
Image2.Left:=SizeRect1.Left;
Image2.Top:=SizeRect1.Top;
Image2.Height:=SizeRect1.Height;
Image2.Width:=SizeRect1.Width;
Image2.Canvas.CopyRect(Old,SizeRect1.Canvas,New);
Image2.Visible:= False;
Image2.Picture.SaveToFile('c:\Foto.bmp');
Bitmap.LoadFromFile('c:\foto.bmp');
Image3.Picture.Bitmap.Assign (Bitmap);
Image3.Visible:= True;
Image3.BringToFront;
end;

Código Delphi [-]
procedure TCapFoto.BtnGuardarClick(Sender: TObject);
var Bitmap: TBitmap; jpeg: TJPEGImage;
begin
Bitmap := TBitmap.Create;
Bitmap.LoadFromFile('c:\foto.bmp');
jpeg := TJPEGImage.Create;
jpeg.Assign(Bitmap);
jpeg.CompressionQuality := 100;
jpeg.SaveToFile('c:\foto.jpg');
jpeg.Destroy;
Bitmap.Destroy;
end;

El componente SizeComps hace todo el trabajo. Sólo debes hacer previamente la captura a un Timage, donde se genera el archivo 'c:\foto.bmp'. Yo lo utilizo con Delphi 2007 y funciona perfecto. No sé si funcionará en Delphi 2010.
Espero que te sirva.
Salu2

[yapt]

Fantastico Radenf... muchas gracias por el código.

El lunes empiezo con ello...

En cuanto a los componentes, compilan, instalan y funcionan bien en Delphi 2010. He tenido que quitar las unidades GIFimage y PNGimage del uses del ejemplo, pero luego ya va todo bien.

Gracias de nuevo.

[radenf]

Me alegra haber podido ayudarte yapt.
Como yo soy absolutamente novato en Delphi y lo poco que sé lo he aprendido por ensayo y error, te cuento que ese código lo logré con la ayuda de la gente de este foro y a pesar de que me tuvo por las cuerdas cerca de una semana al final funcionó perfecto.
Salu2

[rodrinig]

hola chicos, radenf, estoy tratando de buscar el ejemplo que mencionas y no me muestra nada. lo borraste?.
Muchas gracias

[radenf]

Sí lo borré tiempo atrás.
Algo similar puedes encontrar en este link

Salu2

[rodrinig]

Gracias radenf, si estuve viendo esos ejemplos y estoy tratando de sacar algo .
Nuevamente gracias a vos y al excelente foro !!1