transparent y RPreview

transparent y RPreview

Postby rolando » Thu Apr 17, 2008 9: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
User avatar
rolando
 
Posts: 593
Joined: Sat May 12, 2007 11:47 am
Location: San Nicolás - BA - ARGENTINA

Postby rolando » 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 :?
User avatar
rolando
 
Posts: 593
Joined: Sat May 12, 2007 11:47 am
Location: San Nicolás - BA - ARGENTINA

Postby Raymundo Islas M. » 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
User avatar
Raymundo Islas M.
 
Posts: 592
Joined: Tue Mar 14, 2006 11:34 pm
Location: Acapulco, Gro. MEXICO

Postby rolando » Fri Apr 18, 2008 1: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
User avatar
rolando
 
Posts: 593
Joined: Sat May 12, 2007 11:47 am
Location: San Nicolás - BA - ARGENTINA


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 39 guests