source: cprs/branches/tmg-cprs/CPRS-Chart/UploadProgress.pas@ 480

//kt -- Modified with SourceScanner on 8/29/2007
unit UploadProgress;
//kt Added this entire form.

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, ComCtrls, DKLang;

type
  TUploadProgressForm = class(TForm)
    ProgressBar: TProgressBar;
    Label1: TLabel;
    Image1: TImage;
    ProgressMsg: TLabel;
    DKLanguageController1: TDKLanguageController;
  private
    { Private declarations }
    //startTime:  TDateTime;
    //procedure DetermineIntervalTimes();
  public
    { Public declarations }
    //procedure ResetStartTime;
    procedure setMax(Max : integer);
    procedure updateProgress(Current: integer);
  end;

var
  UploadProgressForm: TUploadProgressForm;

implementation

{$R *.dfm}

  //uses DateUtils,Math;

  {
  procedure TUploadProgressForm.ResetStartTime();
  begin
    startTime := Now;
  end;
  }

  procedure TUploadProgressForm.setMax(Max : integer);
  begin
    ProgressBar.Max := Max;
  end;


  procedure TUploadProgressForm.updateProgress(Current: integer);
  begin
    ProgressBar.Position := Current;
    //DetermineIntervalTimes();
  end;

  {
  procedure TUploadProgressForm.DetermineIntervalTimes();
  var
    elapsedSec: int64;

    elapsedTime : TDateTime;
    remaining : integer;
    rate : real;
    remainSec : int64;

  begin
    elapsedSec := SecondsBetween(Now,startTime);
    if elapsedSec < 1 then elapsedSec := 1;
    elapsedTime := IncSecond(0,elapsedSec);
//  DecodeDateTime(elapsedTime; out AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word);
    ElapsedTimeLabel.Caption := TimeToStr(elapsedTime);

    rate := ProgressBar.Max / elapsedSec;
    remainSec := floor ((ProgressBar.Max-ProgressBar.Position) / rate);
    RemainingTimeLabel.Caption := TimeToStr(IncSecond(0,remainSec));
  end;
  }

end.