FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin for Harbour/xHarbour rPreview ZOOM problem
TimStone
Posts: 3022
Joined: Fri Oct 07, 2005 01:45 PM
rPreview ZOOM problem
Posted: Thu Nov 14, 2013 07:36 PM

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.

Tim Stone
http://www.MasterLinkSoftware.com
http://www.autoshopwriter.com
timstone@masterlinksoftware.com
Using: FWH 23.10 with Harbour 3.2.0 / Microsoft Visual Studio Community 2022-24 32/64 bit
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: rPreview ZOOM problem
Posted: Thu Nov 14, 2013 07:59 PM

Tim
You can try?

viewtopic.php?f=6t=27598#p154023

&

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
TimStone
Posts: 3022
Joined: Fri Oct 07, 2005 01:45 PM
Re: rPreview ZOOM problem
Posted: Thu Nov 14, 2013 09:20 PM

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

Tim Stone
http://www.MasterLinkSoftware.com
http://www.autoshopwriter.com
timstone@masterlinksoftware.com
Using: FWH 23.10 with Harbour 3.2.0 / Microsoft Visual Studio Community 2022-24 32/64 bit
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: rPreview ZOOM problem
Posted: Thu Nov 14, 2013 09:30 PM
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 (fw): Select all Collapse
        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 )
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
TimStone
Posts: 3022
Joined: Fri Oct 07, 2005 01:45 PM
Re: rPreview ZOOM problem
Posted: Thu Nov 14, 2013 10:23 PM

Yes, that resolves the problem.

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

Thank you.

Tim Stone
http://www.MasterLinkSoftware.com
http://www.autoshopwriter.com
timstone@masterlinksoftware.com
Using: FWH 23.10 with Harbour 3.2.0 / Microsoft Visual Studio Community 2022-24 32/64 bit
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: rPreview ZOOM problem
Posted: Fri Nov 15, 2013 12:51 PM

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 ?

regards, saludos

Antonio Linares
www.fivetechsoft.com
ORibeiro
Posts: 187
Joined: Mon Oct 20, 2008 06:33 PM
Re: rPreview ZOOM problem
Posted: Fri Nov 15, 2013 02:08 PM

Cristobal,

I found this problem.

That changes in TMETAFIL.PRG resolves the problem completaly.

Thank you.

Oscar Ribeiro

OASyS Informática

Fwh18.02 + xHarbour 1.2.3 + Bcc72
TimStone
Posts: 3022
Joined: Fri Oct 07, 2005 01:45 PM
Re: rPreview ZOOM problem
Posted: Mon Nov 18, 2013 03:46 PM

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

Tim Stone
http://www.MasterLinkSoftware.com
http://www.autoshopwriter.com
timstone@masterlinksoftware.com
Using: FWH 23.10 with Harbour 3.2.0 / Microsoft Visual Studio Community 2022-24 32/64 bit
Greg Gammon
Posts: 105
Joined: Fri Jun 09, 2006 03:27 PM
Re: rPreview ZOOM problem
Posted: Wed Jan 22, 2014 05:45 PM

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?

Regards,

Greg Gammon
driessen
Posts: 1467
Joined: Mon Oct 10, 2005 11:26 AM
Re: rPreview ZOOM problem
Posted: Thu Jan 23, 2014 12:16 PM

I just used the tmetafil.prg from FWH 13.08.

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

Regards,

Michel D.
Genk (Belgium)

_____________________________________________________________________________________________

I use : FiveWin for (x)Harbour v. 25.12 - Harbour 3.2.0 (May 2025) - xHarbour Builder (January 2020) - Bcc773

Greg Gammon
Posts: 105
Joined: Fri Jun 09, 2006 03:27 PM
Re: rPreview ZOOM problem
Posted: Thu Jan 23, 2014 02:44 PM

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

Regards,

Greg Gammon
Greg Gammon
Posts: 105
Joined: Fri Jun 09, 2006 03:27 PM
Re: rPreview ZOOM problem
Posted: Mon Jan 27, 2014 05:15 PM

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

Regards,

Greg Gammon
driessen
Posts: 1467
Joined: Mon Oct 10, 2005 11:26 AM
Re: rPreview ZOOM problem
Posted: Tue Jan 28, 2014 01:03 AM

Greg,

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

Regards,

Michel D.
Genk (Belgium)

_____________________________________________________________________________________________

I use : FiveWin for (x)Harbour v. 25.12 - Harbour 3.2.0 (May 2025) - xHarbour Builder (January 2020) - Bcc773

Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: rPreview ZOOM problem
Posted: Tue Jan 28, 2014 12:01 PM

Michel,

many thanks for your help :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com
Greg Gammon
Posts: 105
Joined: Fri Jun 09, 2006 03:27 PM
Re: rPreview ZOOM problem
Posted: Tue Jan 28, 2014 03:32 PM

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

Regards,

Greg Gammon
Static archive · New replies & topics via GitHub Discussions