hola
[Caral] bueno prove el ejemplo pero la verdad no entiendo mucho estas lineas(disculpa es que lo unico que se es que aca se guia mediante cordenadas )
Código Delphi
[-]ARect.Left := 0; ARect.Top := 0; ARect.Right := 48; ARect.Bottom := 48;
imgDestino.Canvas.CopyRect(ARect, img1.Canvas, img1.ClientRect);
ARect.Left := 48; ARect.Top := 0; ARect.Right := 92; ARect.Bottom := 48;
imgDestino.Canvas.CopyRect(ARect, img2.Canvas, img2.ClientRect);
ARect.Left := 0; ARect.Top := 48; ARect.Right := 48; ARect.Bottom := 92;
imgDestino.Canvas.CopyRect(ARect, img3.Canvas, img3.ClientRect);
ARect.Left := 48; ARect.Top := 48; ARect.Right := 92; ARect.Bottom := 92;
imgDestino.Canvas.CopyRect(ARect, img4.Canvas, img4.ClientRect);
El codigo que eh encontrado en google ah sido esto
Código Delphi
[-]try
if dlg.Execute then
begin
jpg := TJPEGImage.Create;
try
jpg.Assign(imgAvatar.Picture.Bitmap);
jpg.SaveToFile(dlg.FileName);
finally
jpg.Free;
end;
bueno dejo una imagen de lo que quiero hacer por si puede ayudar