FiveTech Software tech support forums

... .and. ::nZFactor > 1, 20, 0 ) - 10 - ;                        I f( LargeFonts(), 100,86 ) //100  80              if ! ::lZoom                 nMetaWidth = ( nHeight - 40 ) * nFactor              else                 nMetaWidth = nWidth * nFactor              endif              oCoors1 := TRect():New( ...

... METHOD PaintMeta() CLASS TPreview local oCoors1, oCoors2 local aFiles := ::oDevice:aMeta // DEVICE local nWidth, nHeight, nFactor, nMetaWidth if ::oWnd != nil .and. IsIconic( ::oWnd:hWnd ) return nil endif do case case ! ::lTwoPages if ! ::lZoom if ::oDevice:nHorzSize() >= ; ...

... static function PaintMeta() local oCoors1, oCoors2 local aFiles := DEVICE:aMeta local nWidth, nHeight, nFactor, nMetaWidth if IsIconic(oWnd:hWnd) RETU nil endif DO case case ! lTwoPages if ! lZoom if DEVICE:nHorzSize() >= ; // landscape (apaisado) DEVICE:nVertSize() ...

... de esta manera METHOD PaintMeta() CLASS TPreview local oCoors1, oCoors2 local aFiles := ::oDevice:aMeta // DEVICE local nWidth, nHeight, nFactor, nMetaWidth if ::oWnd != nil .and. IsIconic( ::oWnd:hWnd ) return nil endif msginfo("PME "+sTR(Len(aFiles))) ............... [color=#0000BF]Resto ...

... static function PaintMeta() local oCoors1, oCoors2 local aFiles := DEVICE:aMeta local nWidth, nHeight, nFactor, nMetaWidth if IsIconic(oWnd:hWnd) RETU nil endif DO case case ! lTwoPages if ! lZoom if DEVICE:nHorzSize() >= ; // landscape (apaisado) DEVICE:nVertSize() ...

Angel,

Prueba a implementar este fix para el rpreview.prg línea 530:

(Atención, este fix es sólo para FWH 2.6 and 2.7)

oCoors1 := TRect():New( 40,;
Max( ( nWidth / 2 ) - nMetaWidth, 10 ),;
nHeight,;
Min( ( nWidth / 2 ) + nMetaWidth, nWidth - 20 ) )

Warning: This fix is just for FWH 2.6 and 2.7.

Fixed. This change in needed in source\classes\rpreview.prg line 530:

oCoors1 := TRect():New( 40,;
Max( ( nWidth / 2 ) - nMetaWidth, 10 ),;
nHeight,;
Min( ( nWidth / 2 ) + nMetaWidth, nWidth - 20 ) )

Fixed. This change in needed in source\classes\rpreview.prg line 530: oCoors1 := TRect():New( 40,; Max( ( nWidth / 2 ) - nMetaWidth, 10 ),; nHeight,; Min( ( nWidth / 2 ) + nMetaWidth, nWidth - 20 ) )