Modificar source\classes\rpreview.prg lo tienes que hacer tu, o lo puedo hacer yo en lo m铆o ?
Porque yo todas pas pruebas que he hecho modificando rpreview.prg no me han funcionado, ( alomejor porque no lo se hacer ).
Cabr铆a la posibilidad de hacer mi ventana principal NO MDI ?
Si le quito a la ventana principal MDI sale este error
Error description: Error BASE/1004 No exported method: OWNDCLIENT
Args:
[ 1] = U
Gracias
Julio,
Aguarda que vamos a ver la forma de indicarle a la nueva clase TPreview que use ventanas no MDICHILD aunque la ventana principal sea MDI
Vamos a hacer pruebas
Gracias Antonio y tranquilo que yo estoy arreglado con la version anterior que me funciona perfectamente.
Muchas gracias y un saludo.
He bajado la version de este mes de FWH y he probado la clase TPreview y he visto que ya est谩 arreglada y no sale comprimida vericalmente como sal铆a antes.
La cuestion es que llamo a "PRINTER oPrn PREVIEW" y aparece la previsualizaci贸n pero queda en segundo plano detr谩s de la ventana desde donde la llamo, y hasta que no cierro la ventana desde donde llamo a la funci贸n de imprimir, no me deja actuar sobre la previsualizaci贸n.
La previsualizaci贸n se me queda dentro de la ventana principal del programa, con la versi贸n anterior me sal铆a como una ventan independiente.
Saludos.
Julio,
Tu ventana principal es MDI ?
En caso afirmativo, lo que ahora hacemos es integrarla dentro del entorno MDI principal
Ventana principal:
DEFINE WINDOW oWnd [u:1gxkfz4b]MDI[/u:1gxkfz4b] FROM 04, 10 TO 30, 90;
TITLE "Gesti贸n de Obras" ;
MENU Menu() ;
ICON oIcon ;
BRUSH oBrush
SET FONT OF oWnd TO oFont
SET MESSAGE OF oWnd TO ;
"Gesti贸n de Obras Usuario = " + WNetGetUser();
TIME DATE KEYBOARD
...
ACTIVATE WINDOW oWnd MAXIMIZED ;
ON INIT ( oWnd:cTitle := VERSION + COMPILADO, ;
VerifFiles(), ;
AbreFicher(), ;
Set( _SET_DECIMALS, 2 ) ) ;
VALID IF( MsgYesNo( "驴 Realmente desea salir ?", "Elija una opci贸n" ), CierraDbfs(), .F. )
Desde esta ventana llamo a los dialogos y desde los dialogos a las funciones de imprimir:
DEFINE DIALOG oDlg TITLE "Listado Clientes";
FROM 0, 0 TO 140, 374 ; //Alto y Ancho
OF oWnd ;
PIXEL STYLE { WS_SYSMENU, WS_CHILD, WS_VISIBLE, WS_TABSTOP }
...
Static Function Listado_01( cDbf, nRadio, xIni, xFin )
local oPrn
PRINTER oPrn PREVIEW
驴 C贸mo lo tengo que llamar para que aparezca independiente y me permita actuar soble la ventana de previsualizaci贸n ?
Saludos
Julio,
Si la necesitas independiente tienes dos soluciones r谩pidas:
Usa el m贸dulo rpreview.prg de la versi贸n anterior de FWH
Modifica el actual rpreview.prg y quitale MDICHILD, para que la cree independiente
Correcto Antonio, compilando con rpreview.prg de la version anterior funciona perfectamente. Gacias.
No obstante si hubiera alguna soluci贸n para poder hacerlo con la nueva sin modificarla, de alguna forma diferente de llamar a la funci贸n o algo, te agradeceria que lo pusieras en el foro, o me lo comuniques, pues quitando lo de que hay que cerrar la ventana desde donde se llama, queda muy bien dentro de la ventana principal de la aplicaci贸n, y adem谩s si se pueden abrir varias "preview" pues tanto mejor.
He probado los ejemplos que vienen en FWH\samples:
testpre2.prg
testprev.prg
y funcionan perfectamente, la cuesti贸n es c贸mo hacerlo as铆 en mis programas, es lo que no se.
Saludos
Julio,
Vamos a implementar la forma de hacerlo opcional.
> testpre2.prg
Este ejemplo no usa ventana MDI
> testprev.prg
Este si es MDI y curiosamente no hace el preview como ventana hija. Vamos a revisarlo, gracias 
Antonio, sorry for my english, this my problem... my main window is MDI, i use easyreport and call an dialog before preview, and close this dialog, but after fwh709, the focus come to this dialog , not to main window.
thanks