Zoom ON en Preview con FWH 12.05- Antonio ayuda

[Cgallegoa]

Hola amigos,

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 logro que que inicie en Zoom ON y se vea bien.

Hay alguna forma correcta de hacerlo ?

Gracias por su ayuda y saludos,

Carlos Gallego

[Cgallegoa]

Hola Antonio,

Puedes ayudarme con esto ? Seguro te tomará 1 minuto y, como siempre, quedará perfectamente solucionado

Gracias por tu apoyo,

Saludos,

Carlos Gallego

[Sistem]

no METHOD Activate line: 142

Code: Select all  Expand view  RUN

METHOD Activate() CLASS TPreview

   ACTIVATE WINDOW ::oWnd MAXIMIZED ;
      ON RESIZE    ::PaintMeta()                  ;
      ON UP        ::VScroll( GO_UP )             ;
      ON DOWN      ::VScroll( GO_DOWN )           ;
      ON PAGEUP    ::VScroll( GO_UP, GO_PAGE)     ;
      ON PAGEDOWN  ::VScroll( GO_DOWN, GO_PAGE)   ;
      ON LEFT      ::HScroll( GO_LEFT )           ;
      ON RIGHT     ::HScroll( GO_RIGHT )          ;
      ON PAGELEFT  ::HScroll( GO_LEFT, GO_PAGE )  ;
      ON PAGERIGHT ::HScroll( GO_RIGHT, GO_PAGE ) ;
      VALID        ( ::oWnd:oIcon := nil       ,;
                     ::oFont:End()             ,;
                     ::oMeta1:End()            ,;
                     ::oMeta2:End()            ,;
                     ::oDevice:End()           ,;
                     ::oHand:End()             ,;
                     ::oWnd := nil             ,;
                     If( Empty( ::oImageList ),, (::oImageList:End(), ::oImageList := nil ) ),;
                     ::lExit := .t.            ,;
                     .t. )

     if ::oDevice:lPrvModal
         if ::oWndMain == nil
            StopUntil( { || ::lExit } )
         else
            StopUntil( { || ::lExit .or. !IsWindow( WndMain():hWnd ) } )
         endif
     endif

   ::SetOrg1( 1, 1 )      // añadir la siguiente línea  (improvisado)    <======================================================== :)
 
return nil

 

[Bayron]

Ya habia intentado con eso, y no funciona y da error, lo mas cercano es ::Zoom, en Method New(), despues de ::BuildWindow(), pero solo pinta bien el reporte horizontalmente, no verticalmente...

[Cgallegoa]

Sistem, gracias por tu sugerencia pero funciona a medias. Abre el preview normal, pero desactivado el MouseWheel. Toca minimizarlo y volverlo a maximizar para que active MouseWheel.

Quedamos varados a la espera de que FiveWin nos tire una mano.

Antonio por favor ayuda.

Saludos,

Carlos Gallego

[Antonio Linares]

Esta es la solución:

viewtopic.php?p=131395#p131395

[Cgallegoa]

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 minimizarlo y luego maximizarlo, o aumentar el zoom, para que el MouseWheel fucione.

Estamos cerca pero todavía falta algo.

Saludos,

Carlos Gallego

[Bayron]

Carlos, despues de un rato, creo que llegué a la solucion que necesitas... Aunque no es muy convencional.... Mientras FiveTech lo soluciona...

Primero... Aplica la solución de Sistem:

http://forums.fivetechsupport.com/viewtopic.php?f=21&t=24294#p131395

Segundo... Obliga al preview a iniciar con Zoom desde el método NEW:

Code: Select all  Expand view  RUN

  ::lZoom     := .T.
 

y Tercero tambien en el método NEW, luego de ::BuildWindow() Coloca:

Code: Select all  Expand view  RUN

if ::lZoom
   ::Zoom()
   ::Zoom()
endif

 

[Cgallegoa]

Bayron gracias por tu interés.

Ya lo solucioné y me funciona perfecto.

Esto fué lo que hice:

1.- Apliqué la corrección propuesta por Sistem
2.- En el Method Activate de RPreview, agregué inmediatamente después de ACTIVATE WINDOW:

Code: Select all  Expand view  RUN

::Zoom()
::oWnd:bGotFocus := { || ::oMeta1:SetFocus() } 

Funciona correcto: Abre con ZOOM IN sin distorcionar y con el mousewheel activo como debe ser

Saludos,

Carlos Gallego

[acuellar]

Gracias Carlos por el dato

Funciona perfecto.

Saludos,

Adhemar

[Patricio Avalos Aguirre]

Gracias por el aporte

el de bairon funcion perfecto, lo ultimo de cgallego en win7 64bit no funciona...

muy buen aporte..

[horacio]

Gracias por el tip, funciona muy bien. Testeado en win 7 64

Saludos

[FranciscoA]

En Windows 7 ULTIMATE 32b, los dos funcionan bien.

Saludos.