Hola maestro, hice un comparación de archivos de la versión 2212 y la 2501.
CLASSDATA cResFile
**Esta en la 2212 y no esta en la 2501
2212- METHOD PrintPrv( oDlg, nOption, nPageIni, nPageEnd )
**Esta en la 2212 y esta diferente en la 2501
2501- METHOD PrintPrv( oDlg, nOption, nPageIni, nPageEnd, cFile )
2501 METHOD GetFileToSave( aExt ) INLINE PrnGetFileToSave( ::oDevice, aExt )
**No esta en la 2212
2212 ON RESIZE ( ::PaintMeta(), ::ResizeListView() ) ;
**Esta diferente en la 2501
2501 ON RESIZE ( nSizeType, nWidth, nHeight, ::PaintMeta(), ::ResizeListView() ) ;
2212 local oImageList, oReBar, oBar, oHand, uRet, oBtn
** Esta diferente en la 2501
2501 local oImageList, oReBar, oBar, uRet, oBtn
2212 //oImageList:AddMasked( TBitmap():Define( ,,, FWBitmap( "pdf" ) ), nRGB( 255, 0, 255 ) )
**Esta como comentario 2212
2501 oImageList:AddMasked( TBitmap():Define( ,,, FWBitmap( "pdf" ) ), nRGB( 255, 0, 255 ) )
2212 DEFINE BUTTON oBtn OF oBar ;
MESSAGE FWString( "Go to first page" ) ;
ACTION ::TopPage() ;
TOOLTIP FWString( "First" )
** Esta asi en 2212
2501 DEFINE BUTTON oBtn OF oBar ;
MESSAGE FWString( "Go to first page" ) ;
ACTION ( This, ::TopPage() ) ;
TOOLTIP FWString( "First" )
**Esta asi en 2501
2212 DEFINE BUTTON oBtn OF oBar ;
MESSAGE FWString( "Go to previous page" ) ;
ACTION ::PrevPage() ;
TOOLTIP FWString( "Previous" )
**Esta asi en la 2212
2501 DEFINE BUTTON oBtn OF oBar ;
MESSAGE FWString( "Go to previous page" ) ;
ACTION ( This, ::PrevPage() ) ;
TOOLTIP FWString( "Previous" )
**Asi en la 2501
Y TODOS LOS BOTONES DE LA BARRA NO TIENEN THIS EN LA BARRA de la 2212
2212 ::oMeta1:blDblClick := { | nRow, nCol, nKeyFlags | ;
::SetOrg1( nCol, nRow, nKeyFlags ),;
If ( ::lListViewHide, nil, If( ::lZoom, ::oLvw:Hide(), ::oLvw:Show() ) ) }
** esta as version 2212
2501 ::oMeta1:blDblClick := { || ;
::Zoom(),;
If ( ::lListViewHide, nil, If( ::lZoom, ::oLvw:Hide(), ::oLvw:Show() ) ) }
** esta asi en la 2501
2212 ::oMeta2:blDblClick := { | nRow, nCol, nKeyFlags | ;
::SetOrg2( nCol, nRow, nKeyFlags ),;
If ( ::lListViewHide, nil, If( ::lZoom, ::oLvw:Hide(), ::oLvw:Show() ) ) }
** diferencia entre 2212 y 2501
2501 ::oMeta2:blDblClick := { || ;
::Zoom(),;
If ( ::lListViewHide, nil, If( ::lZoom, ::oLvw:Hide(), ::oLvw:Show() ) ) }
2501 if IsAppThemed()
nCol += 75
endif
** no esta en 2212 // NO ESTABA IMPLEMENTADO TODAVIA
2212 ON CHANGE oThis:SetFactor( oThis:nZFactor )
** estan diferentes
2501 ON CHANGE ( Self, oThis:SetFactor( oThis:nZFactor ) )
2212 local lThemed := IsAppThemed()
2501 no Esta
2212 METODO BUILDMENU class TPreview
** Muchas diferencias con la version 2501
2212 local nWidth, nHeight, nMaxWidth, nAspect, nMetaWidth, nGutter
** falta nHeight en 2501
2501 local nHeight, nMaxWidth, nAspect, nMetaWidth, nGutter
METODO SETORG1 Y SETORG 2
** muchas diferencias que en la 2501 no estan
2212 METHOD CheckMouseWheel( nKeys, nDelta, nXPos, nYPos ) CLASS TPreview
if ! ::lZoom
2501 METHOD CheckMouseWheel( nKeys, nDelta, nXPos, nYPos ) CLASS TPreview
( nXPos, nYPos )
if ! ::lZoom
2501 ACTIVATE DIALOG oDlg CENTERED ;
ON INIT ( Self, oPageIni:Disable(), oPageEnd:Disable(), .T. )
** no esta el self en la 2212
2212 METHOD PrintPage() CLASS TPreview
** Muchas diferencias con la 2501
2212 METHOD PrintPrv( oDlg, nOption, nPageIni, nPageEnd ) CLASS TPreview
** diferencias con la 2501
2212 METHOD SaveAsMenu() CLASS TPreview
** muchas diferencias con la 2501
2212 METHOD SaveAs( lPDF, cFile, lView ) CLASS TPreview
** diferebcias con la 2501
2212 METHOD SendEmail() CLASS TPreview
** diferencia con 2501
2212 function ConvertToWordDoc( oPreview )
** diferencias con la 2501
2212 Function ToWordDocViaWriter( oPreview, aFiles, cFileType )
local oWriter, oDesktop, oDoc, oCusor, oText, oGraphic, cEMF, cURL, i, aProp
2501 en las variables locales falta AdsCacheOpenCursors
