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