New TprogressWheel

[AIDA]

Para salir yo le pongo un Syswait(0.5) para que se vea completa la cuenta al final

To leave I put a Syswait (0.5) so that the account is complete at the end

Code: Select all

for nFile := 1 to nFiles
         COPY FILE ( cFolderSRC + aFiles[ nFile, 1 ] ) TO ( cFolderDST + aFiles[ nFile, 1 ] )
         oMeter:SetPos( nFile )
         oDlg:Update()
         SysRefresh()
      next
      MsgBeep()
               Syswait(0.5)
            
      oDlg:end()
      return nil