FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Gran mejora en el previsualizador de impresi贸n
Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Gran mejora en el previsualizador de impresi贸n
Posted: Wed Sep 25, 2013 12:16 AM
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 (fw): Select all Collapse
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 * ::nWidth() / ::nHeight() )
聽 聽 聽 聽 nHStep = ( ::nWidth() * ( ::nXZoom - 1 ) ) / 9.8 
聽 聽 聽 聽 nVStep = ( ( ::nWidth() * ::nXZoom * ::nVRatio ) - ::nHeight() ) / 10.3
聽 聽 聽 聽 SetViewOrg( ::hDC, -::nXorig * nHStep, -::nYorig * nVStep )
聽 聽 聽 聽 */
聽 聽 聽 聽 聽 聽 聽 
聽 聽 聽 聽 PlayEnhMetaFile( ::hDC, ::hMeta, ::hWnd, .f. )

聽 聽endif

return nil
regards, saludos

Antonio Linares
www.fivetechsoft.com
mastintin
Posts: 1516
Joined: Thu May 27, 2010 02:06 PM
Re: Gran mejora en el previsualizador de impresi贸n
Posted: Wed Sep 25, 2013 07:15 AM

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
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: Gran mejora en el previsualizador de impresi贸n
Posted: Wed Sep 25, 2013 08:41 AM

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:

regards, saludos

Antonio Linares
www.fivetechsoft.com
mastintin
Posts: 1516
Joined: Thu May 27, 2010 02:06 PM
Re: Gran mejora en el previsualizador de impresi贸n
Posted: Wed Sep 25, 2013 09:26 AM
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 (fw): Select all Collapse
METHOD PaintMeta() CLASS TPreview
   ....
    LOCAL aSizes := ::oDevice:GetPhySize()
     .......
         nAspect:= aSizes[1]/aSizes[2]
    //  nAspect        := ::nHorzSize() / ::nVertSize()
guapilescity
Posts: 22
Joined: Thu Nov 01, 2012 01:23 AM
Re: Gran mejora en el previsualizador de impresi贸n
Posted: Wed Sep 25, 2013 05:48 PM

Estimado mastintin

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

acuellar
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Re: Gran mejora en el previsualizador de impresi贸n
Posted: Wed Sep 25, 2013 06:26 PM
Antonio sale asi:



Tambi茅n use rPreview sin modificar y sale igual.

Saludos,

Adhemar
Saludos,



Adhemar C.
Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: Gran mejora en el previsualizador de impresi贸n
Posted: Wed Sep 25, 2013 06:40 PM

Adhemar,

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

regards, saludos

Antonio Linares
www.fivetechsoft.com
acuellar
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Re: Gran mejora en el previsualizador de impresi贸n
Posted: Wed Sep 25, 2013 06:48 PM
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
Saludos,



Adhemar C.
Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: Gran mejora en el previsualizador de impresi贸n
Posted: Wed Sep 25, 2013 07:11 PM

Adhemar,

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

regards, saludos

Antonio Linares
www.fivetechsoft.com
acuellar
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Re: Gran mejora en el previsualizador de impresi贸n
Posted: Wed Sep 25, 2013 07:58 PM

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

Saludos,



Adhemar C.
mastintin
Posts: 1516
Joined: Thu May 27, 2010 02:06 PM
Re: Gran mejora en el previsualizador de impresi贸n
Posted: Thu Sep 26, 2013 06:51 AM
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 .

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions