Necesito componente que imprima imagenes PNG

[rufo]

Hola amigos he estado buscando en todo el foro un componente que me permita imprimir imagenes PNG con su transparencia Alpha ya que tengo los componentes PNGcomponents pero no hay un componente que me imprima dichas imagenes ya que cuando las quiero imprimir me manda un fondo negro ya que estoy haciendo credenciales y quiero imagenes sin fondo blanco, bueno espero que me auxilien y gracias de antemano.

Uso delphi 5 o haber que me recomiendan ustede y gracias de nuevo.

[delphi.com.ar]

Para cargar este tipo de archivos, respetando el alpha channel en Win32 utilizo la librería pngImage. Lo interesante es que se registra como un TGraphic, y puedes utilizarlo en cualquier tipo de componente que utilice un TPicture, incluyendo QuickReports. La mala noticia que tengo es que acabo de hacer una prueba y veo que QuickReports pone todo lo que tiene Alpha en negro, así que se me ocurre preguntarte:

¿Este gráfico tendrá tranparencia sobre algo sólido?... porque de no ser así, lo que te va a convenir es trabajar con BMP de fondo blanco, ya que en la impresora el blanco no se imprime. Al decir esto no digo que tus imágenes originariamente tengan que tener fondo blanco, sino que te encargues de copiar y hacer la composición "a mano" de las imágenes, por ejemplo:

Código Delphi [-]
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;
end;

Saludos!

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