Guardar a disco imagen bmp de alta calidad
 

Saludos aunque soy nuevo en el club soy un admirador de Delphi hace unos años, aunque más bien lo utilizo como hobby y desarrollo pequeñas aplicaciones de uso gratuito. En este caso estoy diseñando una aplicación que guarda una imagen del formulario activo lo cual logro en formato Bmp pero necesito que se guarde sin ninguna pérdida osea al contrario de lo que desean muchos, lo necesito grande osea pesado para si esta imagen es redimensionada digamos en photoshop entonces no valla a pixelizar. Porque deseo poder imprimirla con calidad fotográfica.

Feliz Fin Año y Bendiciones para el Nuevo Año!!!

Hola a todos,

Igual estoy equivocado, pero, si ya estás guardando en formato BMP, ya estás consiguiendo la máxima calidad posible: este formato, al contrario que JPG o PNG, no permite seleccionar la "calidad" de la imagen en cuestión. Ya digo, esto si no estoy equivocado: a ver si algún otro compañero puede aportar sus conocimientos también en este tema.

^\||/^\||/^\||/

En mi caso quizás por descocimiento pensé que la imagen bmp generada podría ser más pesada y así conservar más información y calidad, aunque si sabía de que es un formato sin pérdida, pretendí que con algún método podría hacer que la imagen fuera mejor. Muchas gracias por su tiempo.

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...

Uso este código para guardar la imagen del formulario activo
 

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!!!