topic-27598

Posts: 505

Joined: Sat Apr 22, 2006 09:09 AM

PREVIEW
Posted: Wed Nov 06, 2013 02:35 PM

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

Colt Hop ED, S.L.
Carlos Blas Fernández Domínguez
Tlfo: 645847093
E-Mail: carlos@colthop.es

Nunca se termina de aprender, por eso necesito siempre ayuda.

colthop

Posts: 505

Joined: Sat Apr 22, 2006 09:09 AM

Re: PREVIEW
Posted: Thu Nov 07, 2013 10:48 AM

Hola a todos

A nadie le pasa esto.

Un saludo

Carlos

Colt Hop ED, S.L.
Carlos Blas Fernández Domínguez
Tlfo: 645847093
E-Mail: carlos@colthop.es

Nunca se termina de aprender, por eso necesito siempre ayuda.

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: PREVIEW
Posted: Thu Nov 07, 2013 09:33 PM

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 (fw): Select all Collapse

   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 * ::nWidth() / ::nHeight() )
        nHStep = ( ::nWidth() * ( ::nXZoom - 1 ) ) / 9.8 
        nVStep = ( ( ::nWidth() * ::nXZoom * ::nVRatio ) - ::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

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

colthop

Posts: 505

Joined: Sat Apr 22, 2006 09:09 AM

Re: PREVIEW
Posted: Thu Nov 07, 2013 10:34 PM

Hola Cristóbal:

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

Gracias de todos modos.

Carlos

Colt Hop ED, S.L.
Carlos Blas Fernández Domínguez
Tlfo: 645847093
E-Mail: carlos@colthop.es

Nunca se termina de aprender, por eso necesito siempre ayuda.

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: PREVIEW
Posted: Thu Nov 07, 2013 10:37 PM

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

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

colthop

Posts: 505

Joined: Sat Apr 22, 2006 09:09 AM

Re: PREVIEW
Posted: Thu Nov 07, 2013 10:43 PM

Hola aquí tienes la muestra

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

Colt Hop ED, S.L.
Carlos Blas Fernández Domínguez
Tlfo: 645847093
E-Mail: carlos@colthop.es

Nunca se termina de aprender, por eso necesito siempre ayuda.

colthop

Posts: 505

Joined: Sat Apr 22, 2006 09:09 AM

Re: PREVIEW
Posted: Thu Nov 07, 2013 10:45 PM

Lo intento otra vez a ver si se ve

Colt Hop ED, S.L.
Carlos Blas Fernández Domínguez
Tlfo: 645847093
E-Mail: carlos@colthop.es

Nunca se termina de aprender, por eso necesito siempre ayuda.

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: PREVIEW
Posted: Thu Nov 07, 2013 10:52 PM

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 (fw): Select all Collapse

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

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: PREVIEW
Posted: Thu Nov 07, 2013 10:59 PM

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

Code (fw): Select all Collapse

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 (fw): Select all Collapse

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

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

FiveTech Support Forums

Continue the discussion