topic-12348

Posts: 514

Joined: Sun Oct 16, 2005 03:32 AM

Clase TMultiPreview de Toninho
Posted: Wed Aug 20, 2008 09:22 PM

Hola amigos,

Desde hace fuuu de años utilizo la clase TMultiPreview de Toninho, la cual funciona extraordinariamente y es super versátil, pero...... está sustentada sobre archivos WMF. Alguien ha logrado adaptarla para archivos EMF.

Toninho, has hecho ajustes a tu extraordinaria clase ? La que tengo dice lo siguiente:

FiveWin MultiPreview 1.3 - Toninho@fwi.com.br
1- Corrigida PRINTER.PRG compativel con FW 2.1C
2- Alterada function cTmpName() para nao ter 2 nomes iguais em
curtos intervalos de tempo

Gracias por la ayuda,

Carlos Gallego

Saludos,

Carlos Gallego

*** FWH-25.12, xHarbour 1.3.1 Build 20241008, Borland C++7.70, PellesC, ADS 11.1***

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Clase TMultiPreview de Toninho
Posted: Tue Sep 09, 2008 09:07 AM

Carlos,

Tenemos una versión reciente con soporte de EMF.

Envíame un email,

regards, saludos

Antonio Linares
www.fivetechsoft.com

Silvio

Posts: 3107

Joined: Fri Oct 07, 2005 06:28 PM

Clase TMultiPreview de Toninho
Posted: Tue Sep 09, 2008 11:07 AM

This is a good Multipreview ( made with last fivetech TPreview class )
I can save also to emf file.

As you can see the code on you program not change !!!

this sample I made with the rep04.prg

Code: Select all Collapse

#include "FiveWin.ch"
#include "report.ch"

REQUEST DBFCDX, DBFFPT
external ordkeyno, ordkeycount,ordcreate

STATIC oRpt



Function Rep04()
   RddSetDefault( "DBFCDX" )

   USE CUSTOMER ALIAS CUST
   INDEX ON CUST->Last TAG LAST TO CUSTOMER

     REPORT oRpt  TITLE  "*** My First Report ***" ;
          HEADER "This is the first line of the header", ;
                 "This is the second line of the header", ;
                 "" RIGHT ;
          FOOTER "This is the footer" CENTER ;
          PREVIEW



     COLUMN TITLE "last"         DATA CUST->Last
     COLUMN TITLE "First Name"   DATA CUST->First


     END REPORT

     ACTIVATE REPORT oRpt

     CLOSE CUSTOMER

RETURN NIL

New methods add:

Saveas() -> save to emf format. you can select wich page to save

Gopage() -> go to number page

Multipage() -> create multipages 2/4/6/8/10

SetMultiPages()-> set X/Y pages

Best Regards, Saludos

Falconi Silvio

Cgallegoa

Posts: 514

Joined: Sun Oct 16, 2005 03:32 AM

Clase TMultiPreview de Toninho
Posted: Tue Sep 09, 2008 06:24 PM

Hola Antonio, gracias por tu respuesta.

Te mandé un email.

Abrazos,

Carlos Gallego

Saludos,

Carlos Gallego

*** FWH-25.12, xHarbour 1.3.1 Build 20241008, Borland C++7.70, PellesC, ADS 11.1***

FiveTech Support Forums

Continue the discussion