Re: New TprogressWheel
Posted: Tue Aug 04, 2020 5:29 pm
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
To leave I put a Syswait (0.5) so that the account is complete at the end
- Code: Select all Expand view
- 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