Page 3 of 4
Re: RPreview más reciente
Posted: Sat Jul 20, 2013 7:28 pm
by cnavarro
Antonio Linares wrote: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
Re: RPreview más reciente
Posted: Sat Jul 20, 2013 7:38 pm
by Sistem
+1
prev32pt-br.dll
Re: RPreview más reciente
Posted: Sat Jul 20, 2013 8:12 pm
by 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 ?
Re: RPreview más reciente
Posted: Sat Jul 20, 2013 8:14 pm
by Antonio Linares
oReport:cName + ".pdf" parece lo más adecuado...
Re: RPreview más reciente
Posted: Sat Jul 20, 2013 9:14 pm
by 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
Re: RPreview más reciente
Posted: Sun Jul 21, 2013 7:13 am
by 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.
Re: RPreview más reciente
Posted: Sun Jul 21, 2013 3:58 pm
by Armando
Antonio:
Con la versión 1306 no logro ver el número de páginas.
Saludos
Re: RPreview más reciente
Posted: Sun Jul 21, 2013 5:46 pm
by 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
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
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
Re: RPreview más reciente
Posted: Sun Jul 21, 2013 5:55 pm
by Antonio Linares
Elvira,
Implementado como lo has solicitado:
He implementado un nuevo método SendEmail() en la Clase TPreview asi:
Code: Select all | Expand
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
Re: RPreview más reciente
Posted: Sun Jul 21, 2013 7:14 pm
by 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
Re: RPreview más reciente
Posted: Sun Jul 21, 2013 7:22 pm
by 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
Re: RPreview más reciente
Posted: Sun Jul 21, 2013 7:54 pm
by 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.
Re: RPreview más reciente
Posted: Sun Jul 21, 2013 8:54 pm
by 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.
Re: RPreview más reciente
Posted: Mon Jul 22, 2013 3:32 am
by 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
Re: RPreview más reciente
Posted: Mon Jul 22, 2013 7:50 am
by 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.
