FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour transparent y RPreview
Posts: 593
Joined: Sat May 12, 2007 11:47 AM
transparent y RPreview
Posted: Thu Apr 17, 2008 09:57 PM

Buenas tardes,

Estuve viendo como poner un bitmap como fondo de un diálogo y como usar "transparent" para que los "say" queden con el fondo del bitmap.

Pero, me encuentro con un problema. Si desde ese diálogo, mediante un botón llamo a una rutina de impresión (pudiese ser la testprn3 de FW), esta rutina de impresión no es ejecutada y el programa se cierra abruptamente sin informar errores.

Por el contrario, si le saco la cláusula "transparent", esta rutina de impresión es ejecutada normalmente.

Pongo un pequeño ejemplo:

*----------------------------------------------------------------

include "fivewin.ch"

function main()
define brush oBrush resource "fondo8"
define dialog oDlg resource 'HOJEAR' brush oBrush transparent
redefine button oBtn10 ;
id 4007 OF oDlg ;
action Imprimo()
activate dialog oDlg valid .t.
return nil

Function Imprimo()
.... aquí la testprn3 como ejemplo
Return nil

*----------------------------------------------------------------

Que podrá ser?. Por el momento lo solucioné no poniendo "transparent" pero los say quedan feísimos.

Gracias.

Rolando :D

Posts: 593
Joined: Sat May 12, 2007 11:47 AM
transparent y RPreview
Posted: Thu Apr 17, 2008 11:45 PM

Parece ser que el problema está en el armado del Preview porque si a la rutina de impresión le saco la claúsula "Preview", funciona correctamente (claro que no puedo tener la vista previa)

ej:

PRINT oPrn NAME "Fallas"+(cAlias)->MODELO PREVIEW ---> no funciona y cierra el programa sin indicar error

PRINT oPrn NAME "Fallas"+(cAlias)->MODELO -----> funciona correctamente

Alguna idea?

Gracias.

Rolando :?

Posts: 592
Joined: Tue Mar 14, 2006 11:34 PM
transparent y RPreview
Posted: Fri Apr 18, 2008 12:53 AM

Rolando,

Checa este post :

http://fivetechsoft.com/forums/viewtopi ... ght=#47034

Creo que tienes los mismos sintomas :D

Saludos

FWH 10.6 + xHarbour + Borland 582
Posts: 593
Joined: Sat May 12, 2007 11:47 AM
transparent y RPreview
Posted: Fri Apr 18, 2008 01:41 AM

Raymundo,

Muchas gracias por el dato.

Incluí:

function FixSays()
return nil

Y... santo remedio. Además solucionó un problema anterior que no me permitía imprimir a .PDF usando el PdfWriter que trae el Adobe Acrobat 4 que tengo.

En verdad no entiendo que hace esta función porque no está en los help's pero funciona..

Saludos.

Rolando :D

Continue the discussion