Page 4 of 4

Re: RPreview más reciente

PostPosted: 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

PostPosted: 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

PostPosted: 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

PostPosted: 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+meta
Saludos.

Re: RPreview más reciente

PostPosted: 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 view


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

PostPosted: 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

PostPosted: 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

PostPosted: 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.