I have noticed a very significant delay in the 32-bit Fivewin REPORT.PRG, which poped up the dialog, but took over one second to draw on a 3.7 GHZ PC.
Whoever wants to fix this problem, please perform the following change to the REPORT.PRG provided by FWH. To be sure you are performing the change to the correct point, please search for the following (in the code) string in spanish language, then change the ::oRptWnd:bPainted line (two times).
(I wish all comments were at least bilingual, but alas, such is the world today)
Code: Select all
/*
Creaci¢n de la ventana de impresi¢n
*/
IF !::lScreen
DEFINE DIALOG ::oRptWnd TITLE ::cName RESOURCE "PRINT_PROC"
REDEFINE BUTTON ID IDCANCEL OF ::oRptWnd ;
ACTION (::lBreak := .T., ::oRptWnd:End()) ;
WHEN (!::lNoCancel)
REDEFINE SAY oPagina VAR ::nPage ID 101 OF ::oRptWnd
::oRptWnd:bPainted := {|| iif(::nPage>=0, oPagina:Refresh(), )} // added >= vs. > 28/apr/2006 EVANS
::oRptWnd:bStart := {|| ::Play(),::oRptWnd:End()}
ACTIVATE DIALOG ::oRptWnd CENTER
ELSE
DEFINE DIALOG ::oRptWnd TITLE ::cName RESOURCE "PREVIEW_PROC"
REDEFINE BUTTON ID IDCANCEL OF ::oRptWnd ;
ACTION (::lBreak := .T., ::oRptWnd:End()) ;
WHEN (!::lNoCancel)
REDEFINE SAY oPagina VAR ::nPage ID 101 OF ::oRptWnd
::oRptWnd:bPainted := {|| iif(::nPage>=0, oPagina:Refresh(), )} // added >= vs. > 28/apr/2006 EVANS
::oRptWnd:bStart := {|| ::Play(),::oRptWnd:End()}
ACTIVATE DIALOG ::oRptWnd CENTER
Eval( ::bPreview, ::oDevice )
ENDIF
RETURN NIL
