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