Necesito componente que imprima imagenes PNG

[delphi.com.ar]

No me refería al valor por defecto, sino que al llamar la función la llames:

Código Delphi [-]
qrimage1.Picture.Assign(Flatten(P.Graphic, clYellow));

Por otro lado, si quieres tener una imagen de fondo, podría ser algo así

Código Delphi [-]
procedure TBuscar_foto.Button2Click(Sender: TObject);
var
  imgBack: TBitmap;
  imgLogo: TPNGObject;
begin
  with Fr_foto do
  begin
    imgBack := TBitmap.Create;
    try
      { Podes cargarlos de un archivo, de recursos, copiarlo de algo previamente cargado }
      imgBack.LoadFromFile('....fondo.bmp');

      imgLogo := TPNGObject.Create;
      try
        imgLogo.LoadFromFile(openpicturedialog1.FileName);
        { en la posición que desees ponerlo }
        imgBack.Canvas.Draw(10, 10, imgLogo);

        qrimage1.Picture.Assign(imgBack);
        quickrep1.preview;
      finally
        imgLogo.Free;
      end;
    finally
      imgBack.Free;
    end;
   end;
end;

[rufo]

Ok mira ya puse el codigo que me diste pero me marca error TPNGObject dice que no lo identifica a que se debera este error
o que estoy haciendo mal.

[delphi.com.ar]

Si utilizas como yo la librería PNGImage tienes que agregar el uso de la unit pngimage en donde utilices esa clase. Sino cambia la clase a un TPicture que anteriormente te funcionó, con la salvedad que luego tienes que asignar la propiedad Graphic de esta.

Saludos!

[rufo]

Gracias amigo ya quedo ahora solo me falta que la foto salga en medio del fondo, pero voy a checarlo haber como le hago

[delphi.com.ar]

Empezado por rufo

Gracias amigo ya quedo ahora solo me falta que la foto salga en medio del fondo, pero voy a checarlo haber como le hago

Es tan simple como cambiar estas coordenadas:

Código Delphi [-]
imgBack.Canvas.Draw(10, 10, imgLogo);

por las coordenadas de tu qrimage1, salvo que se este escalando, en ese caso vas a tener que jugar un poco con esos dos valores.

Saludos!

[rufo]

Gracias nuevamente pero ya he jugado con esos valores que me dices pero sigo sin tener resultado.

[rufo]

Anexo mi programa para que veas como esta y le eches una miradita para ver si estoy bien y gracias de antemano.

[delphi.com.ar]

Empezado por rufo

Gracias nuevamente pero ya he jugado con esos valores que me dices pero sigo sin tener resultado.

Acabo de ver tu programita, y observo que funciona perfecto!... no será que estas moviendo valores tan chicos que no logras observar el cambio?.. Prueba algo como:

Código Delphi [-]
imgBack.Canvas.Draw(100, 100,imgLogo);

A mi me funciona perfecto!