Fondo de agua QuickReport.

[marcoszorrilla]

Prueba este código a ver:

Código Delphi [-]
 procedure TForm1.QuickRep1EndPage(Sender: TCustomQuickRep);
 VAR
 bmp : tBitmap;
 w,h : Integer;
 begin
 bmp := Tbitmap.Create;
 Try
   bmp.loadFromFile('C:\Delphi\Programas\Palma\Palma.bmp');
   //Añadido por mí
   bmp.Transparent:=True; ;
   Bmp.TransParentColor := BMp.canvas.pixels[50,50];
   Bmp.TransparentMode := tmAuto;
   //fin añadido
   w := bmp.width;
   h := bmp.height;
   Quickrep1.QRPrinter.Canvas.draw(
                  (Quickrep1.Width-w) DIV 2,
                  ( Quickrep1.height-h) DIV 2,
                   bmp);
 Finally
  bmp.free;
 End;
 
 end;

Un Saludo.

[koalasoft]

Si funciona ... pero la imagen que carga aparece ENCIMA de las letras y no de tras de ellas ... vaya no aparece al fondo.

Alguna idea ?

[koalasoft]

Alguna otra idea o algo que se pueda hacer ??

[FOURIER]

PONGAN PRIMERO EL QRIMAGE y DESPUES LOS QRDBTEXT y QRLABEL DE ESTA FORMA ESTARAN LOS TEXTOS ARRIBA DE LA IMAGEN

[[Lepe]]

Aqui tienes, en estos mismos foros el componente TQRAquaMark


saludos