Gracias por tu ayuda radenf, hasta ahora me logro parte del cometido, solo tengo el inconveniente de que me copia los bordes punteados:
Al igual que si abro el archivo guardado (foto.bmp) tambien se nota el borde punteado que se ve en la imagen derecha, te adjunto el código para ver si me ayudas donde esta el error:
Código Delphi
[-]
procedure TwLoadImg.btReloadClick(Sender: TObject);
Var
New : TRect;
Wic:TWicImage;
ImageM: TImage;
begin
srImg.NormalPen.Mode := pmXor;
srImg.NormalPen.Style := psClear;
ImageM := TImage.Create(Self);
Wic := TWICImage.Create;
New.Left := srImg.ClientRect.Left;
New.Top := srImg.ClientRect.Top;
New.Right := srImg.ClientRect.Right;
New.Bottom := srImg.ClientRect.Bottom;
try
ImageM.Visible := False;
ImageM.Left := srImg.Left;
ImageM.Top := srImg.Top;
ImageM.Height := srImg.Height;
ImageM.Width := srImg.Width;
ImageM.Canvas.CopyRect(New,srImg.Canvas,New);
ImageM.Picture.SaveToFile(ExtractFilePath(Application.ExeName)+'Foto.bmp');
Wic.LoadFromFile(ExtractFilePath(Application.ExeName) + 'Foto.bmp');
imPrel.Picture.Bitmap.Assign(Wic);
finally
Wic.Free;
ImageM.Free;
srImg.NormalPen.Mode := pmCopy;
srImg.NormalPen.Style := psDot;
end;
end;