//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "ProgressForm.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "RzPanel"
#pragma resource "*.dfm"
//---------------------------------------------------------------------------
TProgress_F *Progress_F;
//---------------------------------------------------------------------------
__fastcall TProgress_F::TProgress_F(TComponent* Owner)
  : TForm(Owner)
{
  gap = 3;
  ProgressBarIn->Top=ProgressBarOut->Top+gap;
  ProgressBarIn->Height=ProgressBarOut->Height-2*gap;
  ProgressBarIn->Left=ProgressBarOut->Left+gap;
  ProgressBarIn->Width=0;//
  w = ProgressBarOut->Width-2*gap;

}
//---------------------------------------------------------------------------
void __fastcall TProgress_F::percentage(int p){
  if(p<0)p=0;
  if(p>100)p=100;

  ProgressBarIn->Width = w*p/100;
  Percent->Caption = IntToStr(p) + "%";

  if(p == 0) Progress_F->Visible = false;
  else Progress_F->Visible = true;

}
//---------------------------------------------------------------------------
void __fastcall TProgress_F::reset(AnsiString t){
  Caption = t;
}
//---------------------------------------------------------------------------