Necesito componente que imprima imagenes PNG

[rufo]

Ok

Para buscar la imagen pongo este codigo

procedure TBuscar_foto.Button1Click(Sender: TObject);
begin
 if openpicturedialog1.Execute then
   begin
     image1.Picture.LoadFromFile(openpicturedialog1.filename);
     edit1.Text:=openpicturedialog1.filename;
   end;
end;

Y para mandar a imprimir la foto es este codigo

procedure TBuscar_foto.Button2Click(Sender: TObject);
begin
 with Fr_foto do
  begin
   qrimage1.Picture.LoadFromFile(openpicturedialog1.FileName);
   quickrep1.preview;
  end;
end;

Y pongo tu codigo que me diste

implementation
  uses QRPrntr;
{$R *.DFM}
function Flatten(AGraphic: TGraphic; ABackColor: TColor = clWhite): TBitmap;
begin
  Result := TBitmap.Create;
  with Result do
  begin
    Width := AGraphic.Width;
    Height := AGraphic.Height;
    Canvas.Brush.Color := ABackColor;
    Canvas.FillRect(Rect(0, 0, Width, Height));

    Canvas.Draw(0, 0, AGraphic);
  end;
procedure TFR_foto.DetailBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
var
  P: TPicture;
begin
  if FileExists(ChangeFileExt(Application.ExeName, '.bmp')) then
    qrimage1.Picture.LoadFromFile(ChangeFileExt(Application.ExeName, '.bmp'))

  else if FileExists(ChangeFileExt(Application.ExeName, '.png')) then
  begin
    P := TPicture.Create;
    try
      P.LoadFromFile(ChangeFileExt(Application.ExeName, '.png'));
      qrimage1.Picture.Assign(Flatten(P.Graphic));
    finally
      P.Free;
    end;
  end;

end;

end;
end.

Entonces es asi como lo estoy programando ahorita.

[delphi.com.ar]

Pero pegaste mi código tal cual!... tenías que adaptarlo a tu necesidad!.. fíjate que mi código lo que hace es intentar cargar un archivo bmp o png que se llame igual que el ejecutable.

Por lo que entiendo tu necesitas hacer algo como:

Código Delphi [-]
procedure TBuscar_foto.Button2Click(Sender: TObject);
var
  P: TPicture;
  B: TBitmap;
begin
 with Fr_foto do
 begin
    P := TPicture.Create;
    try
      P.LoadFromFile(openpicturedialog1.FileName);
      B := Flatten(P.Graphic);
      try
        qrimage1.Picture.Assign(B);
      finally
         B.free;
      end;
      quickrep1.preview;
    finally
      P.Free;
    end;
  end;
end;

No utilizando los eventos BeforePrint en este caso.

Saludos!

[rufo]

Sorry tienes razon pero ya lo puse y tal como ahorita me acabas de decir y resulta que ahora el PNG sale con fondo blanco, hijole esta muy estresante esto de Imagenes PNG, no hay un componente que se complemente en QReport.

[delphi.com.ar]

Empezado por rufo

Sorry tienes razon pero ya lo puse y tal como ahorita me acabas de decir y resulta que ahora el PNG sale con fondo blanco, hijole esta muy estresante esto de Imagenes PNG, no hay un componente que se complemente en QReport.

Fíjate que en la función Flatten el segundo parámetro indica con que color deseas llenar el fondo, y si lo quisieras llenarlo con otra imagen, tendrías que copiar una sobre otra!

Saludos!

[rufo]

Disculpa mi torpeza pero me puedes decir como lo hago, ya que es una imagen que tengo de fondo y despues sigue la foto.

la parte que mencionas que debo cambiar seria esta

function Flatten(AGraphic: TGraphic; ABackColor: TColor = clyellow): TBitmap;

o estoy perdido

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