Nuevamente con RPREVIEW

[Cgallegoa]

Hola Antonio:

Al hacer:

function RPreview( oDevice )

local oPreview := TPreview():New( oDevice )

oPreview:PaintMeta()
oPreview:Zoom(.T.)

oPreview:Activate()

return nil

funciona bien pero genera doble pintada, lo que produce un efecto desagradable especialmente si la maquina es un poco lenta.

oPreview:PaintMeta() pinta el informa la primera vez, y luego con
oPreview:Activate(), se pinta una vez al inicio o cada vez que se redimensiona la ventana.

Entonces, al inicio del informa, primero se pinta como NO Zoom y luego como ZOOM ().

Hay alguna forma de evitar esto ? Tal vez poniendo el oPreview:PaintMeta() y oPreview:Activate() en otro sitio (He probado y no encuentro en dónde), ó haciendo que el informe si pinte una sola vez como ZOOM dede el inicio, lo que evitaría aintMeta() :Zoom(.T.) en la Función RPreview.

Saludos,

Carlos Gallego

[Antonio Linares]

Carlos,

Una solución sería modificar el método PaintMeta( lShow ) de la Clase TPreview, y añadirle ese parámetro lShow, para que al pasarle .F. no se llamase a:

::oMeta1:Refresh()

No lo he probado, pero podría servir. Asi evitaríamos el primer pintado.

Por favor pruébalo y nos comentas, gracias

[Cgallegoa]

Antonio, gracias por tu ayuda.

No funcionó. En realidad observando bien, se pinta tres veces, con lShow o sin lShow en el método PaintMeta():

1a. vez: En NO ZOOM con el tamaño de las letras correcto
2a. vez: En NO ZOOM con el tamaño de las letras reducido
3a. vez: En ZOOM tal como se necesita

De igual manera, cuando está en ZOOM y se pasa a NO ZOOM o viceversa.

Incluyo ejemplo y RPreview.prg con las modificaciones

http://rapidshare.com/files/139030086/rpreview.zip.html

Saludos,

Carlos Gallego