rPreview ZOOM problem

[TimStone]

FWH 13.09

rPreview zoom has been fine in the past. Now, when selecting the Zoom control, the display goes to the full width of the screen, but does not adjust properly on the vertical scale. Thus the letters are stretched to the point ( on a widescreen monitor ) that they are difficult to read.

Is there an adjustment we can make to the source to resolve this ?

Thanks.

[cnavarro]

Tim
You can try?
viewtopic.php?f=6&t=27598#p154023

[TimStone]

It would appear that solution could involve changing hundreds of separate code lines.

Surely there should be a resolution within the rpreview program to correct whatever changed.

Tim

[cnavarro]

Tim
Excuse my English, I use google translate
In version 13.08 these lines were not commented / ** / and now in the current version are discussed
Eliminating these symbols of comment / ** / to me preview works properly

Tim
Disculpe mi ingles, uso translate google
En la version 13.08 estas lineas no estaban comentadas /* */ y ahora en la version actual aparecen comentadas
Eliminando esos simbolos de comentario /* */ a mi me funciona el preview correctamente

CLASS TMetaFile

METHOD Paint

Code: Select all  Expand view

        SetWindowExt( ::hDC, 100, 100 )
        if ::nVRatio == nil
           ::SetCoors()
        endif  
        SetViewportExt( ::hDC, 100 * ::nXZoom, 100 * ( ::nYZoom / 2 ) * ::nVRatio * ::Super:nWidth() / ::Super:nHeight() )
        nHStep = ( ::Super:nWidth() * ( ::nXZoom - 1 ) ) / 9.8
        nVStep = ( ( ::Super:nWidth() * ::nXZoom * ::nVRatio ) - ::Super:nHeight() ) / 10.3
        SetViewOrg( ::hDC, -::nXorig * nHStep, -::nYorig * nVStep )
 

[TimStone]

Yes, that resolves the problem.

Was there a reason for that change, and will it cause problems elsewhere ?

Thank you.

[Antonio Linares]

Tim,

I have found that on some printers it works much better without those lines.

Does it look very different without those lines there for you ?

[ORibeiro]

Cristobal,

I found this problem.

That changes in TMETAFIL.PRG resolves the problem completaly.

Thank you.

[TimStone]

Antonio,

Sorry I didn't respond earlier. Yes, it looks very different. With that code in place the zoomed page is almost unreadable. It simply stretches the page horizontally and it becomes quite distorted.

Tim

[Greg Gammon]

I am having the same ZOOM problem with PREVIEW (having just upgraded to FWH13x).

I removed the */ comment lines in the tmetafil.prg as described without any apparent change. Is there something else I need to do to fix this?

Thanks!

on a related question....when using the PDF button on the PREVIEW screen, is there a way to make the folder option default to the last used folder as to where to place the pdf file?

[driessen]

I just used the tmetafil.prg from FWH 13.08.

At the moment the problem is solved. Everything ok now.

[Greg Gammon]

Thanks...I'll download 13.08 version and hopefully that will fix me too!

[Greg Gammon]

FWH 13.12 (could not find 13.07 version of tmetafil)
Harbour current version as downloaded from FiveTech

I cannot get the ZOOM to work correctly on preview.
When preview comes up, the initial small rendering looks ok. When I select any zoom, they all force the page to stretch wide (virtually unreadable as described in previous posts) and choosing any of the zoom factors has no effect or change in the rendering.

I have also un-commented the section in tmetafil.prg as suggested and that has no effect either.

Help!

G

[driessen]

Greg,

Send me an e-mail (info@juda.be) and I reply to you tmetafil.prg of FWH 13.08.

[Antonio Linares]

Michel,

many thanks for your help

[Greg Gammon]

Michel,
Thank you very much as well! I have emailed you, but in case it doesn't come through, my email is ggammon@insitegroup.com

Thanks,
Greg