Обратный отсчет в прогрессбар

[Stanislav]

Здравствуйте..
Мучает такой вопрос....
Вот листинг обратного отсчета

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Timer1: TTimer;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
 
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

const
XorStrings: array [0..7] of byte =
($64,$25,$61,$7B,$61,$64,$73,$25);

implementation

function XorLite (a,b:word):string;
var i:integer; str:string;
begin
for i:=a to b+a-1 do
str:=str+Chr(XorStrings[i] xor $EC7AB041);
result:=str;
end;

{$R *.dfm}

var Min3: integer;
 time:integer;
procedure TForm1.Button1Click(Sender: TObject);
begin

   time:=StrToInt(Edit1.Text);
   timer1.enabled:=true;
   Min3:=time*60;



  end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Label1.Caption:=Format(XorLite(0,8),[Min3 div 60, Min3 mod 60 ]);
  Dec(Min3);
  if Min3 < 0 then
     form1.Close;

    end;

Вопрос в том как туда прогрессбар прикрутить чтоб в нем отображалось сколько времени использованно?

[Stilet]

Ну прикрути прогрессбар с параметрами
Min=0
Max=min3

а в таймере позиция равна Min3

Это даст обратный отчет на прогрессе, а если нужно чтоб прогресс заполнялся по мере прохождения времени то

min:=-min3
max:=0;

и позиция в таймере должна быть равна Progress.min+min3

[mihali4]

Дык вроде просто все...

procedure TForm1.Button1Click(Sender: TObject);   
begin   
   time:=StrToInt(Edit1.Text);   
   timer1.enabled:=true;   
   Min3:=time*60;   
//Добавляем начальные установки для ProgressBar1
   ProgressBar1.MaxValue:=Min3;
   ProgressBar1.Position:=Min3; 
   Application.ProcessMessages;
end;   
  
procedure TForm1.Timer1Timer(Sender: TObject);   
begin   
 Label1.Caption:=Format(XorLite(0,8),[Min3 div 60, Min3 mod 60 ]);   
  Dec(Min3); 
  if Min3 < 0 then   
     form1.Close;   
//Отрисовываем новое положение ProgressBar1 
ProgressBar1.Position:=Min3;
Application.ProcessMessages;  
end;

[Stanislav]

Спасибо, действительно просто...