*********************************************************
* Component: TRemainingTimeBar 1.0
* Platform: Delphi 2 (maybe D3, but i haven't tested yet)
* What is this? TRemainingTimeBar is a TProgressBar descendant
that provides the remaining time (in seconds) to complete
te bar.
* How does it work? It makes a projection based on the elapsed time
and the position to calculate the remaining time, no magic!
* Accuracy: Because TRemainingTimeBar rely on samples, the most
regular progress the most accurated result.
* Author: Gabriel Cherem
* Status: Freeware, fell free for suggestions.
* Disclaimer: Use for your count and risk, blah blah blah...
Since the source code is provided, if you find out a bug, you
can fix it. But I'd like to be reported about!
* Using TRemainingTimeBar: Drop a TRemainingTimeBar in your form
just like a TProgressBar. Call the Start method before to start
to reset the time counter, then use the RemainingTime function
to retrieve the remaining time, and use this value in some TLabel
like this:
MyLabel.Caption := Format('%d minutes left...',[RemainingTimeBar.RemainingTime div 60]);
TRemainingTimeBar -
Register - Published declarations
procedure Register;
Published declarations