Subversion Repositories DevTools

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

#include <vcl.h>
#pragma hdrstop

#include "InitProgress.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TInitValuesProgressForm *InitValuesProgressForm;
//---------------------------------------------------------------------------
__fastcall TInitValuesProgressForm::TInitValuesProgressForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void TInitValuesProgressForm::Advance(const char *label)
{
        Label1->Text = label;
    ProgressBar1->StepIt();

    Update();
}

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

void TInitValuesProgressForm::AddStep()
{
        AddSteps(1);
}

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

void TInitValuesProgressForm::AddSteps(int steps)
{
        ProgressBar1->Max += steps;
    ProgressBar1->Update();
}

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