home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 March / Chip_2004-03_cd1.bin / software / slunec / app / 6157_8185.exe / {app} / Pascal / Progress / progress.pas next >
Encoding:
Pascal/Delphi Source File  |  2003-11-07  |  240 b   |  15 lines
  1. Output('Progress bar example');
  2.  
  3. ProgressBar.Min := Min;
  4. ProgressBar.Max := Max;
  5.  
  6. for a := ProgressBar.Min to ProgressBar.Max do
  7. begin
  8.     for b := 1 to Pause do
  9.     begin
  10.     end
  11.  
  12.     ProgressBar.Position := a;
  13. end
  14.          
  15.