RPreview más reciente

[cnavarro]

Elvira,

gracias a ti por tus sugerencias y aportaciones que estas haciendo

Si nos guiamos por la estética de Windows 8, la actual toolbar que usa FWH se ve más "plana" que una rebar. La tendencia es eliminar degradados en superficies pequeñas y que se vean "planas".

+1

Aunque lo de la Ribbon para sustituir el menu en vista de posibles ampliaciones me parece muy adecuado

Saludos

[Sistem]

+1

prev32pt-br.dll

[Antonio Linares]

Elvira,

Cuando generas un pdf, usas un nombre temporal ( por ejemplo usando cTempFile( "", "pdf" ) ), le preguntas por el nombre, ó usas el titulo del reporte ?

[Antonio Linares]

oReport:cName + ".pdf" parece lo más adecuado...

[Antonio Linares]

Se me olvidó comentar antes que el preview de FWH detecta si la barra de botones de la ventana principal usa el estilo 2007 ó 2010 y automaticamente lo implementa tambien en el preview, en cuyo caso se ve asi

[elvira]

Antonio,

Cuando genero el PDF le pido el usuario el nombre.

Cuando envío el informe por e-mail, lo convierto a PDF y le pongo al PDF un nombre temporal, añadiendo al título del Report la fecha y la hora como nombre del archivo PDF.

Por favor, ¿no te gusta más el icono de Word que te enviíe?.

¿Podrías añadir Exportar a Excel?.

No uso una barra de botones en la WndMain, sino una Ribbon estilo 2010, y ahora 2013.

Muy agradecida.

[Armando]

Antonio:

Con la versión 1306 no logro ver el número de páginas.



Saludos

[Antonio Linares]

Armando,

No aparece cuando el reporte solo tiene una página. De todas formas lo he modificado asi, pues creo que debe mostrarse siempre para evitar confusión en el usuario:

en rpreview.prg

Code: Select all  Expand view  RUN

  if nStyle >= 2007
      oBar:bPainted = { || oBar:Say( nRow, nCol, "Factor:",,, ::oFont, .T., .T. ),;
                           oBar:Say( nRow, nCol+100, ::cPageNum + LTrim( Str( ::nPage, 4, 0 ) ) + " / " + ;
                           LTrim( Str( Len( ::oDevice:aMeta ) ) ),,, ::oFont, .T., .T. ) }

   endif

Code: Select all  Expand view  RUN

  if nStyle < 2007
      @ nRow, nCol + 100 SAY ::oPage PROMPT TXT_PAGENUM + LTrim( Str( ::nPage, 4, 0 ) ) + " / " + ;
        LTrim( Str( Len( ::oDevice:aMeta ) ) ) ;
        SIZE 180, 15 PIXEL OF ::oBar FONT ::oFont
      ::oPage:lTransparent = .T.
   endif
 

[Antonio Linares]

Elvira,

Implementado como lo has solicitado:


He implementado un nuevo método SendEmail() en la Clase TPreview asi:

Code: Select all  Expand view  RUN

METHOD SendEmail() CLASS TPreview

   local oMail
   local cName := ::oReport:cName + " " + DtoS( Date() ) + ;
                  StrTran( Time(), ":", "" ) + ".pdf"

   FWSavePreviewToPDF( Self, cName, .F. )

   DEFINE MAIL oMail ;
      SUBJECT ::oReport:cName ;
      TEXT "" ;
      FILES cName, cName ;
      FROM USER

   ACTIVATE MAIL oMail

   // MsgInfo( oMail:nRetCode )
   
   ::oWnd:GoTop()

   MsgInfo( "set the focus here" ) // how ?

return nil

Me he encontrado el problema de que el foco no vuelve al preview, de momento se corrige con ese MsgInfo() pero lo suyo sería que no tenga que usarse. Como lo habeis hecho vosotros ? gracias

[Armando]

Antonio:

Vaya que este post dio mucha cuerda , voy haciendo los cambios pero tú vas a velocidad vertiginosa,
podrías publicar el RPreview.Prg más reciente?, incluso creo que los PrevXX,Dll han cambiado.

Saludos y muchas gracias por el apoyo

[cnavarro]

Antonio, gracias
Otro buen motivo para actualizarse.

Peticiones futuras, de ser posible, y asi lo consideras:

- Panel lateral para ver en miniaturas los EMF
- Poder salvar el/los fichero/s EMF y poder recuperarlos.

Saludos

[lucasdebeltran]

Antonio,

Excelentes cambios, enhorabuena.

Me sumo a la petición de modernizar la barra del Preview.

Prueba con SetFocus( oWnd )

Un saludo



PD. Cuando esté listo, por favor no olvides actualizar prev64.dll

Asimismo, el prev64sp.dll está en inglés también, en vez de castellano.

Mil gracias.

[mastintin]

Me uno al post ....
Yo no uso la dll externa , sino que incluyo todo dentro del propio programa como recursos , asi que tengo la clase modificada para que no me tome ninguna dll con una data Extra..
DATA lDll INIT .t.
lDll := .f. si quiero que no use la dll
lDll:= .t. si quiero el comportamiento estandar .
No sé si esto interesaría a muchos, pero es tonto de implementar si alguien quiere no tener que suministrar la dll e incluirlos en los recursos del propio programa .

Por cierto yo uso dos impresoras , una laser y una de tinta y si que existen diferencias en lo que imprime , pero son mínimas , si eres consciente de eso el metodo sirve.

Otra cosa curiosa en una de las impresoras ( una laser brother ) ,la funcion que devuelve el ancho de la impresora ( ¿ devicecaps ? si mi memoria no falla ) me devuelve un ancho de 18 cm , cuando la impresora imprime perfectamante el ancho de un dina4 , asi que los cálculos de posicion basados en el ancho de la página salen mal. ¿ Pasa a mas gente esto ? .
Saludos a todos.

[Marcelo Via Giglio]

Holas,

este rpreview https://app.box.com/shared/8lhxyymtga lo hice ya unos años atras, implementa miniaturas y una lupa pulsando el boton derecho sobre el reporte

saludos

Marcelo

[lucasdebeltran]

Antonio,

Una precisión, por favor.

El estilo de la barra y de los menús del rpreview.prg debe tomarse, no desde la barra de WndMain porque puede que el programador no use barra en WndMain, sino desde el estilo del menú principal.

Muchas gracias.