PREVIEW

[colthop]

Hola a todos:

He instalado la última versión del FWH y tengo un problema cuando uso la Lupa del PREVIEW ya que aumenta a lo ancho pero no a lo largo y crea una distorsión en el resultado.

Podéis decirme como se puede solucionar este problema.

un saludo

Carlos

[colthop]

Hola a todos

A nadie le pasa esto.

Un saludo

Carlos

[cnavarro]

Carlos
Yo tambien lo he podido comprobar por ejemplo en el sample TestPrn2.prg
Prueba en este ejemplo a añadir al final la clase TMetafil.prg
En el metodo Paint está comentado lo siguiente:

Code: Select all  Expand view  RUN

   if ::hMeta != 0

        ::Shadow()

        SetMapMode( ::hDC, MM_ANISOTROPIC )

        /*           // Quita esta marca
        SetWindowExt( ::hDC, 100, 100 )
        if ::nVRatio == nil
           ::SetCoors()
        endif  
        SetViewportExt( ::hDC, 100 * ::nXZoom, 100 * ( ::nYZoom / 2 ) * ::nVRatio * ::Super:nWidth() / ::Super:nHeight() )
        nHStep = ( ::Super:nWidth() * ( ::nXZoom - 1 ) ) / 9.8
        nVStep = ( ( ::Super:nWidth() * ::nXZoom * ::nVRatio ) - ::Super:nHeight() ) / 10.3
        SetViewOrg( ::hDC, -::nXorig * nHStep, -::nYorig * nVStep )
        */   // Y quita esta otra claro
             
        PlayEnhMetaFile( ::hDC, ::hMeta, ::hWnd, .f. )

   endif

 

No se si será exactamente el problema pero a mi me funciona asi perfectament el Zoom

[colthop]

Hola Cristóbal:

He realizado lo que me has dicho pero no sale bien el Zoom.

Gracias de todos modos.

Carlos

[cnavarro]

Puedes poner una imagen del ejemplo con el zoom activado?

Esto es lo que me sale a mi con la modificacion que te he indicado

[colthop]

Hola aquí tienes la muestra

[img]http://www.colthop.es/imagen4.png/img]

[colthop]

Lo intento otra vez a ver si se ve

[cnavarro]

Puedes probar con la modificacion que te he dicho de la clase TMetafil y añadir en el ejemplo lo que indiqué en el hilo anterior sobre el tema en en Manifest.XP ?

Code: Select all  Expand view  RUN

function Main()

   local oPrn, oFont
   local nRowStep, nColStep
   local nRow := 0, nCol := 0, n, m
   local cModel := "Hp Laserjet 1018"

   // PrnSetSize( 2100, 1200 )     To adjust a different printer paper size!

   PRINT oPrn NAME "Testing the printer object from FiveWin" PREVIEW //TO cModel //"Hp Laserjet 1018"

   oPrn:hDC = PrinterDcFromName( StrToken( GetProfString( "Devices", cModel, "" ), 1,;    // He añadido esto
              "," ), cModel, StrToken( GetProfString( "Devices", cModel, "" ), 2, "," ) )
   
      if Empty( oPrn:hDC )
         return nil          // Printer was not installed or ready
      endif

      DEFINE FONT oFont NAME "Ms Sans Serif" SIZE 0, -12 OF oPrn


 

[cnavarro]

Aunque esa modificacion era para cuando se añadia la seleccion de impresora

Code: Select all  Expand view  RUN

PRINT oPrn NAME "Testing the printer object from FiveWin" PREVIEW TO cModel
 

A mi me funciona también el zoom sin esas lineas en el ejemplo TestPrn2.Prg si no pongo la clausula TO

Code: Select all  Expand view  RUN

   //oPrn:hDC = PrinterDcFromName( StrToken( GetProfString( "Devices", cModel, "" ), 1,;
   //           "," ), cModel, StrToken( GetProfString( "Devices", cModel, "" ), 2, "," ) )