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

     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