[charlie2]

Empezado por dec

Hola a todos,

Eso iba a habértelo preguntado... ¿qué método estás usando para guardar la imagen BMP? Porque, tal vez exista algo que ofrezca más calidad...

Disculpe la demora

Este es mi código :

Código Delphi [-]
procedure TForm2.Panel1Click(Sender: TObject);
begin
  SavePictureDialog1.Execute;
  if SavePictureDialog1.FileName = '' then
    showmessage('Debe introducir un archivo de imagen')
  else
    Screen.ActiveForm.GetFormImage.SaveToFile(SavePictureDialog1.FileName);
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
  Form2.Color := clWhite;
  SavePictureDialog1.DefaultExt := GraphicExtension(TBitmap);
  SavePictureDialog1.Filter := GraphicFilter(TBitmap);
end;

Feliz año nuevo para todos!!!