FiveTech Support Forums

if ! IsWin64()
      if ! File( "prev32.dll" )
         MsgAlert( "prev32.dll not found", "Error" )
         SetResources( ::hOldRes )
         return nil
      else   
         SET RESOURCES to "prev32.dll"
      endif   
   else   
      if ! File( "prev64.dll" )
         MsgAlert( "prev64.dll not found", "Error" )
         SetResources( ::hOldRes )
         return nil
      else   
         SET RESOURCES to "prev64.dll"
      endif   
   endif

function RPreview( oDevice )

     local aFiles := oDevice:aMeta
     local hOldRes := GetResources()
     local oSay
     local nFor
     local oWndMain := WndMain(), oIcon, oCursor, oMenu, oBrush, oFont
     local l97Look  := oWndMain != nil .and. oWndMain:oBar != nil .and. ;
                       Len( oWndMain:oBar:aControls ) > 0 .and. ;
                       oWndMain:oBar:aControls[ 1 ]:l97Look
     local lExit := .F.
     local oHand, cPageNum, oImageList, oReBar

     #ifdef __CLIPPER__
        cResFile := "Preview.dll"
     #else
        if ! IsWin64()
           cResFile := "Prev32.dll"
        else
           cResFile = "Prev64.dll"
        endif      
     #endif

     if SetResources(cResFile) < 32
          MsgStop(cResFile + " not found, imposible to continue",;
                  "FiveWin Printing Error")
          RETU nil
     endif