topic-1426

Posts: 92

Joined: Fri Nov 18, 2005 11:15 PM

Problema con Preview FWH 2.6
Posted: Thu Jan 26, 2006 03:58 AM

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

Ralph del Castillo

Lima PERU

Fwh 24.07, xHb123_10193, MySQL 8.x, BCC 7.3

karinha

Posts: 8523

Joined: Tue Dec 20, 2005 07:36 PM

Re: Problema con Preview FWH 2.6
Posted: Thu Jan 26, 2006 10:43 AM

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.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Problema con Preview FWH 2.6
Posted: Thu Jan 26, 2006 11:04 AM

Ralph,

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

Code: Select all Collapse

     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 ) )
...

regards, saludos

Antonio Linares
www.fivetechsoft.com

ralph

Posts: 92

Joined: Fri Nov 18, 2005 11:15 PM

Problema con Preview FWH 2.6
Posted: Thu Jan 26, 2006 03:45 PM

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

Ralph del Castillo

Lima PERU

Fwh 24.07, xHb123_10193, MySQL 8.x, BCC 7.3

Enrrique Vertiz

Posts: 582

Joined: Fri Oct 07, 2005 02:17 PM

Acerca de TxtPrev
Posted: Mon Jan 30, 2006 05:13 PM

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

Enrrique Vertiz Pitta

Lima-Peru

xHb 1.23.1026X, Fwh 25.01, BCC74, MySQL 8.0.X, SQLLIB 1.9m

FiveTech Support Forums

Continue the discussion