Gran mejora en el previsualizador de impresión

[Antonio Linares]

Hoy mientras realizaba unos cambios 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  Expand view  RUN

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
 

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

[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

[mastintin]

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 :


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  Expand view  RUN

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


 

[guapilescity]

Estimado mastintin

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

[acuellar]

Antonio sale asi:



También use rPreview sin modificar y sale igual.

Saludos,

Adhemar

[Antonio Linares]

Adhemar,

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

[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


Saludos,

Adhemar

[Antonio Linares]

Adhemar,

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

[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

[mastintin]

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 .