Página 1 de 1

Mas problemas

Publicado: Jue Mar 31, 2016 1:09 pm
por bingen
Perdona Ignacio no se si podrás decirme por que a veces pero no siempre cuando hago

::oFrPreview:SetFocus(.T.)

Me da este error
FRX error.png
FRX error.png (2.96 KiB) Visto 3298 veces
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.

Re: Mas problemas

Publicado: Jue Mar 31, 2016 1:41 pm
por ignacio
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

Re: Mas problemas

Publicado: Vie Abr 01, 2016 10:09 am
por bingen
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