FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Zoom ON en Preview con FWH 12.05- Antonio ayuda
Cgallegoa
Posts: 514
Joined: Sun Oct 16, 2005 03:32 AM
Zoom ON en Preview con FWH 12.05- Antonio ayuda
Posted: Thu Jun 28, 2012 10:47 PM

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

Saludos,



Carlos Gallego



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

Cgallegoa
Posts: 514
Joined: Sun Oct 16, 2005 03:32 AM
Re: Zoom ON en Preview con FWH 12.05- Antonio ayuda
Posted: Fri Jun 29, 2012 03:05 PM

Hola Antonio,

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

Gracias por tu apoyo,

Saludos,

Carlos Gallego

Saludos,



Carlos Gallego



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

Sistem
Posts: 226
Joined: Sun May 13, 2012 07:52 AM
Re: Zoom ON en Preview con FWH 12.05- Antonio ayuda
Posted: Fri Jun 29, 2012 10:17 PM
no METHOD Activate line: 142

Code (fw): Select all Collapse
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
FWH2008 | xHarbour | BCC74 | SQLRDD
Bayron
Posts: 883
Joined: Thu Dec 24, 2009 12:46 AM
Re: Zoom ON en Preview con FWH 12.05- Antonio ayuda
Posted: Sat Jun 30, 2012 12:06 AM

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...

=====>

Bayron Landaverry
xBasePHP.com
(215)2226600 Philadelphia,PA, USA
MayaBuilders@gMail.com
Guatemala

FWH25.06--Harbour 3.0.0--BCC7.7--UEstudio 10.10
Windows 10

FiveWin, One line of code and it's done...

Cgallegoa
Posts: 514
Joined: Sun Oct 16, 2005 03:32 AM
Re: Zoom ON en Preview con FWH 12.05- Antonio ayuda
Posted: Sat Jun 30, 2012 02:17 AM

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

Saludos,



Carlos Gallego



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

Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: Zoom ON en Preview con FWH 12.05- Antonio ayuda
Posted: Sat Jun 30, 2012 10:45 AM

Esta es la solución:

viewtopic.php?p=131395#p131395

regards, saludos

Antonio Linares
www.fivetechsoft.com
Cgallegoa
Posts: 514
Joined: Sun Oct 16, 2005 03:32 AM
Re: Zoom ON en Preview con FWH 12.05- Antonio ayuda
Posted: Sat Jun 30, 2012 02:52 PM

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

Saludos,



Carlos Gallego



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

Bayron
Posts: 883
Joined: Thu Dec 24, 2009 12:46 AM
Re: Zoom ON en Preview con FWH 12.05- Antonio ayuda
Posted: Wed Jul 04, 2012 04:13 AM
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 (fw): Select all Collapse
   ::lZoom     := .T.


y Tercero tambien en el método NEW, luego de ::BuildWindow() Coloca:
Code (fw): Select all Collapse
if ::lZoom
   ::Zoom()
   ::Zoom()
endif

=====>

Bayron Landaverry
xBasePHP.com
(215)2226600 Philadelphia,PA, USA
MayaBuilders@gMail.com
Guatemala

FWH25.06--Harbour 3.0.0--BCC7.7--UEstudio 10.10
Windows 10

FiveWin, One line of code and it's done...

Cgallegoa
Posts: 514
Joined: Sun Oct 16, 2005 03:32 AM
Re: Zoom ON en Preview con FWH 12.05- Antonio ayuda
Posted: Wed Jul 04, 2012 04:25 PM
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 (fw): Select all Collapse
::Zoom()
::oWnd:bGotFocus := { || ::oMeta1:SetFocus() }


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

Saludos,

Carlos Gallego

Saludos,



Carlos Gallego



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

acuellar
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Re: Zoom ON en Preview con FWH 12.05- Antonio ayuda
Posted: Wed Jul 04, 2012 05:24 PM

Gracias Carlos por el dato

Funciona perfecto.

Saludos,

Adhemar

Saludos,



Adhemar C.
Patricio Avalos Aguirre
Posts: 1074
Joined: Fri Oct 07, 2005 01:56 PM
Re: Zoom ON en Preview con FWH 12.05- Antonio ayuda
Posted: Wed Jul 04, 2012 09:15 PM

Gracias por el aporte

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

muy buen aporte..

Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl
horacio
Posts: 1364
Joined: Wed Jun 21, 2006 12:39 AM
Re: Zoom ON en Preview con FWH 12.05- Antonio ayuda
Posted: Wed Jul 04, 2012 11:23 PM

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

Saludos

FranciscoA
Posts: 2170
Joined: Fri Jul 18, 2008 01:24 AM
Re: Zoom ON en Preview con FWH 12.05- Antonio ayuda
Posted: Thu Jul 05, 2012 12:27 AM

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

Saludos.

Francisco J. Alegría P.

Chinandega, Nicaragua.



Fwxh-MySql-TMySql

Continue the discussion

Static archive · New replies & topics via GitHub Discussions