Анимация наливающейся ванны - C++ Builder - Ответ 7272152

TForm1 *Form1;
const height = 350;
unsigned int h = height;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
//  Timer1->Enabled = 0;
//  Timer1->Interval = 10;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ButtonDrawClick(TObject *Sender)
{
  Canvas->Pen->Color = clBlack;
  Canvas->Brush->Style = bsClear;
 
  Canvas->Ellipse(50, 50, 150, 100);
  Canvas->Ellipse(50, 50+height, 150, 100+height);
  Canvas->MoveTo(50, 75);
  Canvas->LineTo(50, 75+height);
  Canvas->MoveTo(149, 75);
  Canvas->LineTo(149, 75+height);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ButtonStopClick(TObject *Sender)
{
  Timer1->Enabled = 0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ButtonFillClick(TObject *Sender)
{
  Tag = -1;
  Timer1->Enabled = 1;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ButtonDoEmptyClick(TObject *Sender)
{
  Tag = 1;
  Timer1->Enabled = 1;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
  h += Tag;
  if (h < 0 || h > height)
  {
    Timer1->Enabled = 0;
    h -= Tag;
  }
  else
  {
    Canvas->Pen->Color = clLime;
    Canvas->Brush->Color = clAqua;
    Canvas->Ellipse(50, 50+h, 150, 100+h);
 
    ButtonDraw->Click();
 
    Canvas->Brush->Color = Color;
    Canvas->FloodFill(100, 49+h, clLime, fsSurface);
  }
}