Problema con Preview FWH 2.6

[ralph]

Antonio:
A ver si puedes ayudarme con este problema:

Genero un reporte ancho con la clase TdosPrn (modificada por Ednaldo Rolim) en FW26+clipper5.3 y no tengo problemas cuando hago scroll horizontal en el preview para ver los datos a la derecha del reporte.

Si compilo la misma aplicacion con FWH26+xHb 09950 y hago el scroll horizontal a la derecha, el reporte desaparece.

Que puede estar pasando?

Para muestra descargar un ejemplo de este link: www.sgedukit.com/test/testprev.zip
Mira la diferencia entre test2.exe (FW) y test2h.exe (FWH)

Saludos

Ralph

[karinha]

Antonio:
A ver si puedes ayudarme con este problema:

Genero un reporte ancho con la clase TdosPrn (modificada por Ednaldo Rolim) en FW26+clipper5.3 y no tengo problemas cuando hago scroll horizontal en el preview para ver los datos a la derecha del reporte.

Si compilo la misma aplicacion con FWH26+xHb 09950 y hago el scroll horizontal a la derecha, el reporte desaparece.

Que puede estar pasando?

Para muestra descargar un ejemplo de este link: www.sgedukit.com/test/testprev.zip
Mira la diferencia entre test2.exe (FW) y test2h.exe (FWH)

Saludos

Ralph

HOLA..

PREGUNTA DIRECTAMENTE AL AUTOR:

ednaldorolim@uol.com.br

Saludos.

[Antonio Linares]

Ralph,

Busca este código en source\classes\rpreview.prg y modifícalo como está aquí:

Code: Select all | Expand

     DO case        case ! lTwoPages          if ! lZoom             if DEVICE:nHorzSize() >= ;   // landscape (apaisado)                DEVICE:nVertSize()                nFactor := .8 // .4             else                nFactor := .40 // .25             endif          else             nFactor := .47          endif          nWidth  = oWnd:nWidth() - If( lZoom, 20, 0 )          nHeight = oWnd:nHeight() - If( lZoom .and. nZFactor > 1, 20, 0 ) - 10 - ;                    If( LargeFonts(), 100, 80 )                    if ! lZoom             nMetaWidth = ( nHeight - 40 ) * nFactor                   else                nMetaWidth = nWidth * nFactor                   endif                              oCoors1 := TRect():New( 40,;                                  Max( ( nWidth / 2 ) - nMetaWidth, 10 ),;                                  nHeight,;                                  Min( ( nWidth / 2 ) + nMetaWidth, nWidth - 20 ) )...

[ralph]

Antonio:

Hice el cambio el rpreview.prg y lo enlazo con el test2.prg pero sigue igual.
Lo he subido al mismo link anterior para que lo veas. Adjunto tambien va test2.vrc para que puedas construir el Exe con Verce.

Gracias por tu ayuda

Ralph

[Enrrique Vertiz]

Solo mencionar que este raro problema (que tambien me sucede) no pasa con los EXEs de 32 bits cuando corremos la aplicacion en Windows 98, solo sucede cuando se ejecuta en Windows 2000 y/o Windows XP
Muy raro, ojala nos ayuden
Saludos


Enrrique Vertiz