... nMetaWidth = ( nHeight - 40 ) * nFactor else nMetaWidth = nWidth * nFactor endif oCoors1 := TRect():New( 40,; But I think it is no good solution !!!!!
... return oMenu //----------------------------------------------------------------------------// 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 ...
... en fuente en el programa, y he colocado msginfo en Paintmeta, NextPage, y Bottompage 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 oMenu //----------------------------------------------------------------------------// 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 ...