Прогрессбар на основе TImage

//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ExtCtrls.hpp>
#include <ComCtrls.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
        TImage *Image1;
        TButton *Button1;
        void __fastcall Button1Click(TObject *Sender);
private:    // User declarations
public:     // User declarations
        __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
class ImageProgress
{
private:
       int Width;
       TImage *ProgressImage;
public:
       TColor BackgroundColor;
       TColor ProgressColor;
       __fastcall ImageProgress(TImage *Image);
       void __fastcall Position(__int64 Min, __int64 Max, __int64 Pos);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
ImageProgress *ImageProgress1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
  ImageProgress1 = new ImageProgress(Image1);
}
//---------------------------------------------------------------------------
__fastcall ImageProgress::ImageProgress(TImage *Image)
{
  Image->Canvas->Rectangle(0, 0, Image->Width, Image->Height);
  BackgroundColor = clWhite; //default color
  Image->Canvas->Brush->Color = BackgroundColor;
  Image->Canvas->FillRect(Rect(1, 1, Image->Width - 1, Image->Height - 1));
  Width = Image->Width - 2;
  ProgressImage = Image;
  ProgressColor = clRed; //default color
}
//---------------------------------------------------------------------------
void __fastcall ImageProgress::Position(__int64 Min, __int64 Max, __int64 Pos)
{
  if(Min < 0 || Max <= 0 || Pos < 0 || Min > Max)
    return;
  if(Pos > Max)
    Pos = Max;
  if(Pos < Min)
    Pos = Min;
  double x = (double)Width / 100;
  double begin = (long double)Min * 100 / Max * x;
  double end = (long double)Pos * 100 / Max * x;
  ProgressImage->Canvas->Brush->Color = BackgroundColor;
  ProgressImage->Canvas->FillRect(Rect(1, 1, ProgressImage->Width - 1, ProgressImage->Height - 1));
  ProgressImage->Canvas->Brush->Color = ProgressColor;
  ProgressImage->Canvas->FillRect(Rect(begin + 1, 1, end + 1, ProgressImage->Height - 1));
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  ImageProgress1->BackgroundColor = clCream;
  ImageProgress1->ProgressColor = clGreen;
  ImageProgress1->Position(0/*begin*/, 100/*maximum*/, 50/*end*/);
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
 
void __fastcall TForm1::TimerTimer(TObject *Sender)
{
if (Loading100->Width < 700)
{
Loading100->Width += 5;
}
else
{
Form2->Show();
Timer->Enabled = false;
Form1->Hide();
}
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Form1->DoubleBuffered = true;
Timer->Interval = 100;
Timer->Enabled = true;
}
//---------------------------------------------------------------------------