Page 1 of 1

Problema con Preview FWH 2.6

Posted: Thu Jan 26, 2006 3:58 am
by 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

Re: Problema con Preview FWH 2.6

Posted: Thu Jan 26, 2006 10:43 am
by karinha
ralph wrote: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.

Posted: Thu Jan 26, 2006 11:04 am
by 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 ) )
...

Posted: Thu Jan 26, 2006 3:45 pm
by 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

Acerca de TxtPrev

Posted: Mon Jan 30, 2006 5:13 pm
by 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