topic-27936

Posts: 187

Joined: Mon Oct 20, 2008 06:33 PM

Corrections TMETAFIL.PRG in FWH13.12
Posted: Mon Jan 13, 2014 01:41 PM

tmetafil.prg:

Please, active lines from 185 and 194. It correct zoom in preview with TXT files. I detect this problem since fwh13.09.

Code (fw): Select all Collapse

        // /* ( here )
        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 )
        // */ ( here )

Thanks,

Oscar Ribeiro

OASyS Informática

Fwh18.02 + xHarbour 1.2.3 + Bcc72

FiveTech Support Forums

Continue the discussion