FiveTech Software tech support forums

oPreview:oZoom:hBitmap1 = FWBitmap( "Zoom2" )
oPreview:oZoom:hBitmap2 = FWBitmap( "OnePage2" )
oPreview:oZoom:bBmpNo = { || If( oPreview:lZoom, 2, 1 ) }


How I can converte it ? How I can change the images with mine pngs ?

Paz,

Esas líneas ya estaban, ahora lo que hay que añadirle es:

If( ::lZoom, ::oLvw:Hide(), ::oLvw:Show() )

Lo más sencillo hasta que publiquemos un nuevo build de FWH es añadir el fichero rpreview.prg como si fuese un PRG más de vuestra aplicación.

rpreview.obj tiene que ser reemplazado en FiveH ...

Sistem wrote:rpreview.prg linha 1477

if ! ::lZoom .and. ! lInit
// ::Zoom( .T. ) // anular esta line
endif esta linha

Muchísimas gracias, funcionó perfecto.

rpreview.prg linha 1477

if ! ::lZoom .and. ! lInit
// ::Zoom( .T. ) // anular esta line
endif esta linha

... Factor del rpreview.prg nos lo arreglaste así en el método Setfactor de rpreview.prg

::oMeta1:SetZoomFactor( ::nZFactor, ::nZFactor * 2 )

if !::lZoom .and. ! lInit
::Zoom( .T. ) // A.L. 08 Oct 2007
endif
if ::lZoom
::oWnd:oVScroll:SetRange( 1, VSCROLL_RANGE )
if ::nZFactor > 1
::oWnd ...

Antonio, thanks for your answer.

Indeed, disable / / :: Sistem lZoom as proposed by Sistem, the preview opens normally, but with the MouseWheel off. If the report is greater than the size shown in the preview does not work MouseWheel. If the user wants to see the full report has to minimize and then ...

Antonio, gracias por tu respuesta.

En efecto, al comentariar // ::lZoom como propone Sistem, abre el preview normal, pero desactivado el MouseWheel. Si el informe es mayor del tamaño de lo que se ve en el preview, no funciona MouseWheel. Si el usuario quiere ver el informe completo tiene que ...

... metiéndole la mano a TPrinter.prg, RPreview.prg y TMetafil.prg pero no consigo que funcione. Siempre abre con la vista reducida.

Si pongo ::lZoom := .T. lo abre aumentado pero bantante borroso.

Has revisado algo al respecto ?

Durante años usé MPreview del amigo José Lanín, y funcionaba ...

Hi,

I need start Preview windows with Zoom ON.

I tried with :: lZoom: =. T. and indeed it opens in Zoom ON but rather poorly presented

How can it be done?

Thanks in advance,

Carlos Gallego

... Necesito iniciar el Preview con Zoom On ya que siempre sale reducido y toca pulsar sobre Zoom para ampliarlo y se pueda ver bien.

He probado con ::lZoom := .T. y en efecto lo abre en Zoom ON pero bastante mal presentado

Le he dado la vuelta entera a Printer.prg, rpreview.prg y tmetafil.prg pero no ...

... tried to modify rpreview at Paintmeta method for the first problem

and perhaps it run ok now

if ::oWnd != nil
nWidth = ::oWnd:nWidth() - If( ::lZoom, 20, 0 )
nHeight = ::oWnd:nHeight() - If( ::lZoom .and. ::nZFactor > 1, 20, 0 ) - 10 - ;
I f( LargeFonts(), 100,86 ) //100 80

if ! ::lZoom ...

... misma.

Estoy viendo el archivo rpreview.prg y las líneas que muestran el valor de lExit son :

Linea 73 dentro de CLASS Tpreview
DATA lTwoPages, lZoom, lExit

Linea 119 dentro de METHOD NEW ...
::lExit := .F.

Dentro de METHOD Activate ...
Linea 147
::lExit := .T. ,;
Linea 151
StopUntil ...

... oPage, oTwoPages, oZoom
DATA oMenuZoom, oMenuTwoPages, oMenuUnZoom, oMenuOnePage
DATA cResFile
DATA aFactor, nPage, nZFactor
DATA lTwoPages, lZoom, lExit
DATA cPageNum
// Esteban
DATA aPrinters
DATA cPrinter
DATA cOldPrinter
// Esteban

CLASSDATA oWndMain

METHOD New( oDevice )
METHOD ...

... oZoom, oMenuZoom, oMenuTwoPages,;
oMenuUnZoom, oMenuOnePage, oFactor, cResFile

static aFactor

static nPage, nZFactor

static lTwoPages, lZoom

MemVar nBloqueo
//----------------------------------------------------------------------------//

function RPreview( oDevice )

local aFiles ...

... oZoom, oMenuZoom, oMenuTwoPages,;
oMenuUnZoom, oMenuOnePage, oFactor, cResFile

static aFactor

static nPage, nZFactor

static lTwoPages, lZoom

//----------------------------------------------------------------------------//

function RPreview( oDevice )

local aFiles := oDevice:aMeta ...