Cambios en tReport y Preview

[Marcelo Via Giglio]

Antonio,

en este enlace https://app.box.com/s/p50zt6k91ztzkvbqndl0 puedes bajar unas modificaciones que hice hace unos años a la clase tReport, y a la clase Preview.

El ejemplo te permite generar código de los valores de las datas, puede que te sirva de idea para las mejoras que estas haciendo a la clase, también tiene una prueba para la numeración de página 1/n ... n/n

Comentaron que el preview tiene problemas de perdida de memoria, lo siento lo que pasa es que como desarrollo solo para casa, no tuve feedbak, no se si podré ver ese tema, pero si alguien lo puede arreglar estaría bien.

saludos

Marcelo

[Antonio Linares]

Marcelo,

muchas gracias, lo revisaremos e incorporaremos las mejoras a FWH

[Marcelo Via Giglio]

Este es un ejemplo:



y este es el código generado

Code: Select all  Expand view

 oReport:lSeparator :=  .F.
  oReport:lJoin      :=  .T.


  oReport:nTotalLine    :=          0
  oReport:nTitleUpLine  :=          0
  oReport:nTitleDnLine  :=          0
  oReport:nGroupLine    :=          1
  oReport:nTitleBox     := 4
  oReport:lTitleBoxJoin := .T.
  oReport:nTotalBox     := 0
  oReport:lTotalBoxJoin := .F.
  oReport:nGrpHdBox     := 0
  oReport:nGrpFtBox     := 3
  oReport:lGrpFtBoxJoin := .F.
  oReport:nHeaderBox    := 2
  oReport:nFooterBox    := 3
  oReport:lShdwTtEmpty  := .F.
  oReport:nClrTitle     :=   12632256
  oReport:nClrTotal     :=   12632256
  oReport:nClrGrp       :=   12632256
  oReport:nClrHeader    :=   12632256
  oReport:nClrFooter    :=   12632256
  oReport:nCurve        :=         30
  oReport:nBodyBox      := 1

[Antonio Linares]

Marcelo,

Me ha gustado mucho tu implementación, muy bien diseñada, gracias

La he implementado en FWH, he quitado el splitter porque no lo considero necesario (en caso de que no quepa la hoja del metafile?) y ya se ve asi:

[elvira]

Hola,

¿Y la pérdida de recursos?. ¿Se ha verificado?.

Muy buen trabajo.

Una duda, la función de exportar en PDF nativamente de Fivewin, ¿necesita Word?.

Actualmente usamos image2pdf.dll

Un saludito

[Marcelo Via Giglio]

Antonio,

me alegra que te guste.

también esta una opción que no se si viste, si oprimes el botón derecho de mouse sobre el metafile te aparece un recuadro con una vista magnificada del reporte (puedes recorrer con el botón oprimido y se mantendrá el recuadro).



Por otra parte también aumente entre los botones de navegación el número de página, el cual es un get, y allí directamente puedes poner el número de página

Se cambio pero no se si esta bien, en lugar de factor del zoom por un porcentaje

Podría ser también interesante cambiar el orden de los botones de la barra y poner la navegación a la derecha, y el botón de salir, siempre al extremo mas a la derecha, algo así

Code: Select all  Expand view

    ::oWnd:bResized := {|| ::oBtnExit:Move( -1, ::oWnd:nWidth - 102, ::oBtnExit:nWidth, ::oBtnExit:nHeight, .T.)  }
 

Son solo ideas que puedes o no tomar en cuenta, pero como siempre gracias por tu atención

saludos

Marcelo

[Antonio Linares]

Marcelo, Elvira,

De momento solo he implementado la vista de páginas en pequeño, y ese código es el único que he revisado. Efectivamente existian un par de detalles que consumían recursos y los he corregido al implementarlo en FWH:

1. En vez de llamar a TBitmap():New( ... ) llamar a TBitmap():Define() (cuando no se crea un control bitmap).
2. En la función Create_minipage() al final falta ReleaseDC( hDC1 )

La exportación a PDF no necesita tener Word instalado

[Antonio Linares]

Marcelo,

No me había fijado en esa capacidad de hacer zoom de una zona y me parece muy interesante tambien, muchas gracias!

[elvira]

Antonio,

Para rematar los grandes cambios que has incorporado a rpreview.prg, quizás podrías implementar el look en la barra de botones como el de Visual Studio 2013, ya que el azul es de 2007!.

Dejo una imagen:



Muy agradecida.

[cnavarro]

Marcelo, Elvira,

De momento solo he implementado la vista de páginas en pequeño, y ese código es el único que he revisado.

Antonio, podrias implementar la opción de poner la vista de miniaturas a la derecha o a la izquierda de la pantalla?
Saludos

[cnavarro]

Antonio
Al crear el preview en MDI, y salir a otro proceso y volver al preview, la ventana aparece en modo "NORMAL" y no "MAXIMIZADA" como estaba
No se si es mi version, o está solucionado con la modificacion que se hizo en la version 13.04 sobre las MDI
http://forums.fivetechsupport.com/viewtopic.php?f=16&t=26208&start=0&hilit=FTDN

Me lo puedes confirmar?

De momento lo he solucionado asi:

Code: Select all  Expand view

   if !::oDevice:lPrvModal .and. ::oWndMain != nil .and. ;
      Upper( ::oWndMain:ClassName() ) == "TMDIFRAME"

      DEFINE WINDOW ::oWnd ;                
         TITLE cTitle ;
         COLOR CLR_BLACK,CLR_LIGHTGRAY      ; //         ICON  oIcon                        ;
         VSCROLL HSCROLL MDICHILD

      ::oWnd:bGotFocus     := { || Self:oWnd:Maximize() }      //Añadido

   else

     ...
 

Gracias

[Antonio Linares]

Cristobal,

En la versión que vamos a publicar 13.07 no aparece ese efecto, es decir, se comporta correctamente. Pero no sabría decirte con exactitud cuando se corrigió lo que comentas.

Y es que en la versión 13.07 hasta se ha modificado el procedimiento por defecto en languaje C que usan las MDI. Lo comenté recientemente aqui en los foros.

[Antonio Linares]

Implementada la opción de mostrar la vista de páginas en miniatura a la izquierda ó derecha en FWH 13.07

solo hay que hacer click derecho en la vista de páginas, para que cambie de lugar

[Antonio Linares]

Elvira,

El Print Preview usa el estilo 2010 en FWH 13.07 si detecta que esta siendo usado en la barra de botones principal de la aplicación, ó en la RibbonBar