Imprimir Filagrama en QReport

[[Lepe]]

Pues aqui está el humilde QrAquaMark, le puesto este nombre ya que me parece más intuitivo. Se instala bajo la pestaña QReport.

Las pruebas que he realizado son:
- Crear con el paint un Bmp/jpeg con un texto en gris/rojo/naranja con fondo blanco.
- Testearlo en un QuickReport.
- Nada más

Quizás tenga fallos, de hecho tiene un parpadeo que no sé por donde quitarlo.... si alguien se empeña en hacerlo, mejor.

Lo que os gustará más es el tipo de licencia "SINDE / SINOBI con fuentes"
(SIN DErecho a nada / SIN OBlIgaciones de nada)

Para instalarlo, pues como todos:
- Ponerlo en una carpeta del library path de delphi.
- Component --> install component, buscar el .pas compilar y listo.

Un saludo

[[Lepe]]

Corrijo: El fallo que mencionaba de parpadeo no se puede solucionar así por las buenas.

El caso es que la ventana de presentación preliminar del QuickReport, muestra el contenido que se va a imprimir (produce un parpadeo lógico al mostrar el informe), e inicialmente los botones de PrinterSetup y Print, están inhabilitados mientras se comprueba que hay una impresora instalada en el sistema y que hay alguna predeterminada. Una vez realizada esa comprobación, los susodichos botones se habilitan, y es aquí cuando se produce el segundo parpadeo.

Por tanto el problema no es del componente, que dicho sea de paso son solo 6 lineas.... aunque no veais para deducir que eran esas 6

EA, ya podemos crear nuestas marcas de agua o filigranas en los QuickReports.

saludos de nuevo

[[BlueSteel]]

Lepe...

He tratado de instalarlo, pero me sale el error, [Fatal Error] qrAqua.dpk(28): Required package 'rtl' not found

y tambien me aparece el error [Fatal Error] qrAqua.dpk(28): Required package 'rtl' not found

que puede ser???

[[Lepe]]

El archivo fue actualizado, ahora no se llama qrAqua, sino qrAquaMark, elimina el que tienes y bajatelo de nuevo.

En cuanto al error, por favor copia exactemente el mensaje, qrAqua.dpk es imposible, ya que es un .pas, si te dice .dpk será otra cosa. (intuyo que el dclusr.dpk) ya veremos.

Un saludo

[koalasoft]

Me marca error es este procedimiento ...

procedure tQRAquaMark.Print(OfsX, OfsY: integer);
begin
  if Enabled then
	with QRPrinter do
	  if ParentReport.FinalPass then
	  begin
		Canvas.CopyMode:= SRCAND;
		Canvas.Draw(XPos(Size.Left) , YPos(Size.Top),Picture.Graphic);
	  end;
end;

En la linea ..

if ParentReport.FinalPass then

Me dice ..
Undeclared identifier : 'FinalPass'

Que podria ser ??

[[Lepe]]

Pues tienes toda la razón.

cambia esa línea por esta otra:

Código Delphi [-]
with ParentReport.Printer.Canvas do

Con eso ya funciona.

De todas formas, subo el componente para aquellos que aún no lo tengan instalado.

Gracias por comentar el error koalasoft, se vé que estuve haciendo pruebas para quitar el parpadeo molesto, y al final se quedó así

saludos