Perdona Ignacio no se si podrás decirme por que a veces pero no siempre cuando hago
::oFrPreview:SetFocus(.T.)
Me da este error
y otra cosa más, si el FrPreview tiene el Foco y pulso ESC lo cierra, pero no procesa ninguno de los eventos OnDestroy, OnDestroyed, OnExit, OnHide y me quedo con mi preview completamente vacio. Lo que quisiera es hacer un ::Close() del form en este caso pero como?
Perdón por la paliza.
Gracias.
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Mas problemas
Mas problemas
BiSoft Desarrollo de software profesional
http://www.bisoft.es
http://www.bisoft.es
- ignacio
- Site Admin
- Mensajes: 9257
- Registrado: Lun Abr 06, 2015 8:00 pm
- Ubicación: Madrid, Spain
- Contactar:
Re: Mas problemas
Buenos dias,
Realmente el control TFrPreview es un contenedor de la ventana Fast Report preview. Por lo tanto cuando haces un SetFocus se lo están haciendo al contenedor y no al preview realmente. Te sugiero que hagas lo siguiente: (en la clase TFrPreview)
METHOD SetFocus() INLINE PostMessage( ::hWindow, WM_SETFOCUS )
Si te funciona dímelo para incorporarlo en la clase
En cuanto al problema del ESC, tienes el evento en TFastReport:OnEndPreview(). Te aconsejo que desde allí mandes el siguiente mensaje:
oPreview:oParent:PostMsg( WM_CLOSE )
No obstante ya lo hemos incorporado en la siguiente versión para cuando el evento OnEndPreview no sea capturado.
Saludos
Realmente el control TFrPreview es un contenedor de la ventana Fast Report preview. Por lo tanto cuando haces un SetFocus se lo están haciendo al contenedor y no al preview realmente. Te sugiero que hagas lo siguiente: (en la clase TFrPreview)
METHOD SetFocus() INLINE PostMessage( ::hWindow, WM_SETFOCUS )
Si te funciona dímelo para incorporarlo en la clase
En cuanto al problema del ESC, tienes el evento en TFastReport:OnEndPreview(). Te aconsejo que desde allí mandes el siguiente mensaje:
oPreview:oParent:PostMsg( WM_CLOSE )
No obstante ya lo hemos incorporado en la siguiente versión para cuando el evento OnEndPreview no sea capturado.
Saludos
Re: Mas problemas
Probadas ambas cosas
METHOD SetFocus() INLINE PostMessage( ::hWindow, WM_SETFOCUS ) OK ya no da error
oPreview:oParent:PostMsg( WM_CLOSE ) OK cierra todo con un simple ESC
El mismo error que en el manual lo teneis en el fuente de FrPreview
METHOD ExportEMF() INLINE ::Export( 14 ) Debería de ser 15
METHOD ExportBIF() INLINE ::Export( 15 ) Debería de ser 16
y faltaria el 14 ExportXML
Salu2
METHOD SetFocus() INLINE PostMessage( ::hWindow, WM_SETFOCUS ) OK ya no da error
oPreview:oParent:PostMsg( WM_CLOSE ) OK cierra todo con un simple ESC
El mismo error que en el manual lo teneis en el fuente de FrPreview
METHOD ExportEMF() INLINE ::Export( 14 ) Debería de ser 15
METHOD ExportBIF() INLINE ::Export( 15 ) Debería de ser 16
y faltaria el 14 ExportXML
Salu2
BiSoft Desarrollo de software profesional
http://www.bisoft.es
http://www.bisoft.es