Page 4 of 4
Re: RPreview más reciente
Posted: Mon Jul 22, 2013 9:51 am
by Antonio Linares
Lucas,
Alguien podria usar un menu estandard, tener una barra de botones 2010 ó una Ribbon, en cuyo caso hay que comprobar los estilos no del menu.
Re: RPreview más reciente
Posted: Mon Jul 22, 2013 10:14 am
by lucasdebeltran
Antonio,
¿Entonces, puedes poner una global data a la aplicación para indicarte el estylo en el rpreview?.
Gracias.
Re: RPreview más reciente
Posted: Mon Jul 22, 2013 1:30 pm
by hmpaquito
Hola a todos,
Sólo entro para dar un aviso.
Hace años utilicé un RPreview, no sé quien era su autor, que tenía las miniaturas laterales.
Tuve problemas de pérdidas importantes de memoria (leaks). Lo solucioné reponiendo el que fivewin traía de serie.
Así queda el aviso. Un saludo.
Re: RPreview más reciente
Posted: Mon Jul 22, 2013 8:13 pm
by FranciscoA
cnavarro wrote: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
Hace algunos años modifique la TPrinter, segun mis necesidades. Talvez pueda servir de guía para nueva implementacion:
viewtopic.php?f=6&t=13291&start=0&hilit=guardar+metaSaludos.
Re: RPreview más reciente
Posted: Wed Jul 24, 2013 4:51 pm
by cnavarro
Gracias Francisco
Le echaré un vistazo. Yo ya tenia hecha una rutina para grabar los ficheros.
Me falta poder recuperarlos, pero eso estoy pensando como hacerlo para poder recuperar los emf de un mantenimiento en concreto.
Por cierto, he implementado en mi preview grabar en formato .XPS, simplemente enviando un parametro ( que podria ser una DATA) y cambiando en la linea:
Code: Select all | Expand
METHOD SaveAs( uFormat ) CLASS TPreview
local oWord
local nVer
local oDoc
local cFile
local cExt
local cMsg
local lView := .F.
local lPdf := .F.
local lXml := .F.
//local nFormat
if Valtype( uFormat ) = "L"
lPdf := uFormat
else
if Valtype( uFormat ) = "C"
if Upper(uFormat) = "XPS" //"XML"
lXml := .T.
endif
endif
endif
... / ...
oDoc:ExportAsFixedFormat( cFile, if( !lXml, 17, 18 ), lView )
el 17 por el 18
Por si alguien no conocia esta posibilidad.
Se abren con Word igual o en Win 8 con el Visor
Saludos y gracias
Re: RPreview más reciente
Posted: Wed Jul 24, 2013 5:01 pm
by cnavarro
Una pregunta:
Con el Metodo SaveAs de Word ( oDoc:SaveAs( ... ) ) se puede grabar en formato XML?
He estado buscando informacion pero no me ha quedado nada claro.
Gracias
Re: RPreview más reciente
Posted: Sun Aug 18, 2013 2:27 pm
by QAZWSX2K
y al fin todos los cambios que se lograron juntar se pueden compartir para los que no podemos de momento actualizar a 13.07, yo descargue la de zoom pero la lupita sale del mismo tamaño que se ve en pantalla, gracias
Re: RPreview más reciente
Posted: Mon Aug 19, 2013 12:16 am
by Antonio Linares
Alex,
Para eliminar el uso de la DLL del preview hemos tenido que implementar una serie de nuevas funciones que estan solo disponibles en FWH 13.07, por lo que aunque publiquemos los fuentes de rpreview.prg, no funcionara sin esas nuevas funciones.