URGENTE: Bug en Clase RPreview FWh 807

[Cgallegoa]

Hola Antonio y amigos

Algunos clientes me han solicitado que al efectuar un preview sobre cualquier reporte, el preview se muestre automáticamente en ZOOM, Factor 1.

Para el efecto incluí en la Function RPreview(oDevice) la instrucción:

oPreview:Zoom(.T.)

Al mostrarse el reporte distorsiona el tamaño y funciona mal el Scroll Vertical.

La clase original, presenta el preview en Zoom(.F.) . Al pasarlo a Zoom(T.), factor 1, lo pinta perfecto y el Scroll funciona bien.

El despiporre se produce al agregar oPreview:Zoom(.T.) en la function RPreview()

Hagan la prueba con FWH\Samples\TestPrn2.prg sin modificar RPreview y luego modificando RPreview y notarán la diferencia.

Le he buscado solución por tres días y no doy por ningún lado. Alguna sugerencia ?

Gracias y saludos,

Carlos Gallego

[Antonio Linares]

Carlos,

En que línea de RPreview() has añadido la llamada a oPreview:Zoom(.T.) ?

[Cgallegoa]

Hola Antonio, gracias por tu respuesta.

En la función RPreview, línea 1438


function RPreview( oDevice )

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

oPreview:Zoom(.T.)

oPreview:Activate()

return nil

Saludos,

Carlos Gallego

[Antonio Linares]

Carlos,

Por favor prueba asi, gracias

Code: Select all  Expand view  RUN

function RPreview( oDevice )

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

oPreview:PaintMeta()

oPreview:Zoom(.T.)

oPreview:Activate()

return nil


[Cgallegoa]

GRACIAS MAESTRO, funcionó perfecto .

Saludos,

Carlos Gallego