FiveTech Software tech support forums

... * * If <bBlock> is used, every time the file is opened to compress it * will evaluate bBlock. Parameters of bBlock are cFile and nPos. * * If <lOverWrite> is used, it toggles to overwrite or not the existing * file. Default is to overwrite the file,otherwise if <lOverWrite> ...

... CHANGE IF NEEDED FillFiles( aFiles, aDir, cPath ) IF UPPER( LEFT( cZip, 2 ) ) <> "A:" lZipDone:= HB_ZIPFILE( cZip , aFiles , 9, { |cFile,npos| QOUT( cFile ) }, ; .T.,, lZipWithPath, .F. ) ELSE HB_SETDISKZIP({|x| ALERT("Please Insert Disk No:"+ ALLTRIM( STR( x,3 ) ) ) } ) lZipDone:= HB_ZIPFILEBYPKSPAN( ...

... IF FILE(CZIP) ERASE (CZIP) ENDIF FillFiles( @aFiles, aDir, cPath,SOUSREP ) nLEN := len(afiles) lZipDone := HB_ZIPFILE( cZip , aFiles , 9, {|cFile,nPos| UPDMETER(CFILE,OMETER,NPOS,@nctr,NLEN,ODLG,@DLGFILE,OBJFILE)}, ; .T.,, lZipWithPath, .F. ) IF ! lZipdone ALERT("Erreur création fichier Zip " ...

... ) ::oGet:Assign() // for adjust numbers ::oGet:UpdateBuffer() endif ::DispText() if ! ::oGet:BadDate ::oGet:KillFocus() else ::oGet:Pos = 1 ::nPos = 1 #ifndef __CLIPPER__ ::oGet:TypeOut = .f. #endif endif ::SetColor() return nil //----------------------------------------------------------------------------//

... ",", "" ) endif if ! ::lDrag ::oGet:KillFocus() // to properly initialize internal status ::oGet:SetFocus() ::DispText() if ::oGet:type$"DN" ::nPos := 1 endif ::oGet:Pos = ::nPos ::SetPos( ::nPos ) CallWindowProc( ::nOldProc, ::hWnd, WM_SETFOCUS ) if Set( _SET_INSERT ) DestroyCaret() CreateCaret( ...