Necesito componente que imprima imagenes PNG

[rufo]

Si de hecho si tengo que imprimir con un colo solido de fondo.

[delphi.com.ar]

Empezado por rufo

Si de hecho si tengo que imprimir con un colo solido de fondo.

Si es un color sólido puedes utilizar la función que escribí para este hilo, si se trata de un solo color simplemente como está utilizando el segundo parámetro de ésta. Si lo dibujas sobre otra imagen, con el mismo criterio puedes introducir esta imagen dentro de la otra antes, utilizando los métodos Draw, CopyRect o bien la winapi StretchBlt.

Si quieres te armo un ejemplito.

Saludos!

[rufo]

Gracias pero la verdad ando un poco verde en esto y si me pudieras explicar en que parte del reporte lo pongo el codigo que escribiste te lo agradeceria muchisimo.

[delphi.com.ar]

Ok!.. nunca me confirmaste si se trata de un QuickReports, pero supongo que si:

Las bandas tienen un evento llamado BeforePrint, si esta imagen cambia cada vez que se reimprime la banda, este sería el lugar, pero si no cambia nunca en todo el reporte, puedes asignar el gráfico cuando lo creas o en el evento BeforePrint del reporte, por ejemplo:

Código Delphi [-]
procedure TrptTarjeta.QuickRepBeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
var
  P: TPicture;
begin
  if FileExists(ChangeFileExt(Application.ExeName, '.bmp')) then
    qriLogo.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'));
      qriLogo.Picture.Assign(Flatten(P.Graphic));
    finally
      P.Free;
    end;
  end;
end;

Faltaría fundir la imagen sobre otra de ser necesario.

Saludos!

[rufo]

Gracias amigo pero no me funde la imagen me sigue mostrando el fondo negro y si uso QuickReports, primero lo puse en BeforePrint del reporte y no paso nada y despues lo puse en la banda de DetailBand y nada entonces que estare haciendo mal.

[delphi.com.ar]

Pues... ese código lo escribí para vos, pero sobre un reporte existente.. lo probé y por lo menos en la pantalla lo muestra bien!... y de casualidad elegí un repote que imprime tarjetas de banda magnéticas

Porque no subes algo de código así lo vemos!

Saludos!

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