topic-12267

Posts: 514

Joined: Sun Oct 16, 2005 03:32 AM

URGENTE: Bug en Clase RPreview FWh 807
Posted: Wed Aug 13, 2008 10:19 PM

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

Saludos,

Carlos Gallego

*** FWH-25.12, xHarbour 1.3.1 Build 20241008, Borland C++7.70, PellesC, ADS 11.1***

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

URGENTE: Bug en Clase RPreview FWh 807
Posted: Thu Aug 14, 2008 12:43 AM

Carlos,

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

regards, saludos

Antonio Linares
www.fivetechsoft.com

Cgallegoa

Posts: 514

Joined: Sun Oct 16, 2005 03:32 AM

URGENTE: Bug en Clase RPreview FWh 807
Posted: Thu Aug 14, 2008 08:50 PM

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

Saludos,

Carlos Gallego

*** FWH-25.12, xHarbour 1.3.1 Build 20241008, Borland C++7.70, PellesC, ADS 11.1***

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

URGENTE: Bug en Clase RPreview FWh 807
Posted: Fri Aug 15, 2008 08:42 AM

Carlos,

Por favor prueba asi, gracias

Code: Select all Collapse

function RPreview( oDevice ) 

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

oPreview:PaintMeta()

oPreview:Zoom(.T.) 

oPreview:Activate() 

return nil

regards, saludos

Antonio Linares
www.fivetechsoft.com

Cgallegoa

Posts: 514

Joined: Sun Oct 16, 2005 03:32 AM

URGENTE: Bug en Clase RPreview FWh 807
Posted: Fri Aug 15, 2008 05:33 PM

GRACIAS MAESTRO, funcionó perfecto .

Saludos,

Carlos Gallego

Saludos,

Carlos Gallego

*** FWH-25.12, xHarbour 1.3.1 Build 20241008, Borland C++7.70, PellesC, ADS 11.1***

FiveTech Support Forums

Continue the discussion