Page 1 of 1

Gran mejora en el previsualizador de impresión

Posted: Wed Sep 25, 2013 12:16 am
by Antonio Linares
Hoy mientras realizaba _ en la Clase TMetaFile (tmetafil.prg) descubrí que si comentaba esta
sección de código, el preview se muestra increiblemente mejor! :-)

Os agradezco vuestras pruebas y comentarios, gracias!

Code: Select all

METHOD Paint() CLASS TMetaFile

   local nVStep, nHStep

   if ::hMeta == 0
      if File( ::cCaption )
         ::hMeta = GetEnhMetaFile( ::cCaption )
      elseif ! Empty( ::cCaption )
         Alert( "Could not find the Metafile," + CRLF + "please check your TEMP environment variable" )
      endif
   endif

   if ::hMeta != 0

        ::Shadow()

        SetMapMode( ::hDC, MM_ANISOTROPIC )

        /*
        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 )
        */
              
        PlayEnhMetaFile( ::hDC, ::hMeta, ::hWnd, .f. )

   endif

return nil
 

Re: Gran mejora en el previsualizador de impresión

Posted: Wed Sep 25, 2013 7:15 am
by mastintin
Con esa modificación si haces zoom en el preview ( dlbclick en pantalla ) se ve deformado y bastante peor , a mi por lo menos me pasa .
Como comentario del preview , sería bueno poder ocultar el listview ( como antes ) , si se desea . Se podría usar una DATA o CLASSDATA ::lListViewHide que regule si se quiere usar o no los listviews en los previews.

Re: Gran mejora en el previsualizador de impresión

Posted: Wed Sep 25, 2013 8:41 am
by Antonio Linares
Manuel,

Si, el zoom es lo siguiente que quiero revisar. Pero, no ha mejorado muchísimo en tamaño normal (pequeño) ?

Aqui se ve increiblemente bien en mis pruebas :-) Se puede leer el texto impreso !

Tengo pendiente el implementar las DATAs que me sugeristes para las vistas en miniatura. No he tenido tiempo :oops:

Re: Gran mejora en el previsualizador de impresión

Posted: Wed Sep 25, 2013 9:26 am
by mastintin
Antonio Linares wrote:Manuel,

Si, el zoom es lo siguiente que quiero revisar. Pero, no ha mejorado muchísimo en tamaño normal (pequeño) ?

Aqui se ve increiblemente bien en mis pruebas :-) Se puede leer el texto impreso !
No encuentro una gran diferencia aqui .
A la izquierda normal , a la derecha con el cambio :
Image

Quizas es porque tengo un pequeño cambio en mi rpreview ,ya que con mi impresora deforma totalmente la imagen con el rpreview "por defecto" al dar como area de impresion menos anchura de la real .

Code: Select all

METHOD PaintMeta() CLASS TPreview
   ....
    LOCAL aSizes := ::oDevice:GetPhySize()
     .......
         nAspect:= aSizes[1]/aSizes[2]
    //  nAspect        := ::oDevice:nHorzSize() / ::oDevice:nVertSize()


 

Re: Gran mejora en el previsualizador de impresión

Posted: Wed Sep 25, 2013 5:48 pm
by guapilescity
Estimado mastintin

Que preview ma bonito, la has desarrollado hay un clase mej
orada.
Gracias

Re: Gran mejora en el previsualizador de impresión

Posted: Wed Sep 25, 2013 6:26 pm
by acuellar
Antonio sale asi:

Image

También use rPreview sin modificar y sale igual.

Saludos,

Adhemar

Re: Gran mejora en el previsualizador de impresión

Posted: Wed Sep 25, 2013 6:40 pm
by Antonio Linares
Adhemar,

Puedes mostrar la imagen de cuando no tiene el zoom ? gracias :-)

Re: Gran mejora en el previsualizador de impresión

Posted: Wed Sep 25, 2013 6:48 pm
by acuellar
Antonio,
Aquí la imagen sin Zoom, uso estos Fonts para el detalle
DEFINE FONT oFont3 NAME "LUCIDA SANS TYPEWRITER" SIZE 0.4,-7.8 of oPrn
DEFINE FONT oFont3B NAME "LUCIDA SANS TYPEWRITER" SIZE 0.4,-7.8 of oPrn BOLD
Image

Saludos,

Adhemar

Re: Gran mejora en el previsualizador de impresión

Posted: Wed Sep 25, 2013 7:11 pm
by Antonio Linares
Adhemar,

No has encontrado ninguna diferencia al usar el cambio que he comentado en la imagen sin zoom ?

Re: Gran mejora en el previsualizador de impresión

Posted: Wed Sep 25, 2013 7:58 pm
by acuellar
Distinguido Antonio

Con el tmetafilX.prg modificado se lee menos. También intente con resolución 1024 x 768

Porque no se podía leer es lo muestro en Zoom, pero el problema es que no pasa a la sgte. pág. cuando llega al final usando PgDn. y sin el zoom se puede.

Saludos,

Adhemar

Re: Gran mejora en el previsualizador de impresión

Posted: Thu Sep 26, 2013 6:51 am
by mastintin
guapilescity wrote:Estimado mastintin

Que preview ma bonito, la has desarrollado hay un clase mej
orada.
Gracias
Uso el mismo que viene con fwh ( ultima version ) solo cambiado el tamaño de los botones y sus iconos y añadido un boton que oculta o enseña el listview .