FiveTech Software tech support forums

Enrico Maria Giordano wrote:That is the right way. As I already said, TPrinter has no margins to set.

EMG

i think it can be made directly on tmetafile

Silvio,

Why do you want to use a TMetaFile object there ?

... metafiles. We can't interact with them. A complete new preview engine would have to be built Antonio, I think it can be made adding commands to Tmetafile class When I tried to make Vrd I used a class Tpaper it was Tmetafile with mousemove commands and then there was Items as lines and boxes ...

Tienes que crear un objeto metafile: ::oMeta1 := TMetaFile():New( 0, 0, 0, 0,; ::oDevice:aMeta[ 1 ],; ::oWnd,; CLR_BLACK,; CLR_WHITE,; ::oDevice:nHorzRes(),; ::oDevice:nVertRes() ) que es el que visualiza los metafiles en el preview

Marc,

If you use a FWH TMetafile object then you could modify the DATAs nXorig and nYorig that basically are used to call SetViewOrg()

How about FWdbg.prg and tMetaFile.prg ?

Hola Carlos,

A mi también me sucede lo mismo.

Pero creo que es debido a los cambios de la clase TPrinter y TMetafile que se hicieron últimamente, porque ER usaba una versión de FWH del año 2003/2004.

Hola Manuel,

Me temo que sigue viéndose mal y feito:


Estos problemas empezaron en los cambios que empezó a ejecutar el Maestro el año pasado en tprinter.prg y tmetafile.prg.

... TMSGITEM 21 TTIMER 22 TGIF 23 TDIALOG 24 TICON 25 TSAY 26 GET 27 TCLIPGET 28 TMETER 29 TBUTTON 30 TBUTTONBMP 31 TPRINTER 32 TPEN 33 TSCROLLBAR 34 TMETAFILE 35 TCOMBOBOX 36 TREG32 Memory Analysis =============== 233 Static variables Dynamic memory consume: Actual Value: 0 bytes Highest Value: 0 ...

Antonio . Old Tmetafile +This change solve in my brother printer. .......METHOD PaintMeta() CLASS TPreviewlocal aSizes       .....    //  nAspect        := ::oDevice:nHorzSize() / ::oDevice:nVertSize()        aSizes:=::oDevice:GetPhySize()  ...

MUCHAS GRACIAS

SAQUE LAS MARCAS EN LA CLASE TMetaFile Y SE VISUALIZA BIEN AHORA....

MUCHAS GRACIAS

david

En la ultima version la clase TMetafile sigue igual

Ho provato, ma ho dei problemi con la creazione dei metafile. Io uso ancora le classi rpreview.prg tmetafile.prg del fwh24, modificate x me e si vede che gli danno fastidio. Dovrei sostituirle con quelle piu' recenti.... Pensavo ci fosse un altro medoto con il quale io potessi ...

... */ y ahora en la version actual aparecen comentadas Eliminando esos simbolos de comentario /* */ a mi me funciona el preview correctamente CLASS TMetaFile METHOD Paint         SetWindowExt( ::hDC, 100, 100 )        if ::nVRatio == nil           ::SetCoors()        endif       ...

Hoy mientras realizaba unos cambios en la Clase TMetaFile (tmetafil.prg) descubrí que si comentaba esta sección de código, el preview se muestra increiblemente mejor! :-) Os agradezco vuestras pruebas y comentarios, gracias! METHOD Paint() ...