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

//выливание из ванны
Canvas->Brush->Color = clGreen;
static int i = 62;
static int j = 82;
Canvas->Brush->Color = clMoneyGreen;
//Canvas->Brush->Style = bsClear;
Canvas->Ellipse(50,i,80,j);
Canvas->Ellipse(50,159,80,179);
if ((i == 158) && (j == 178)) {
 
     Canvas->Pen->Color = clGreen;
     Form1->Timer2->Enabled = false;
     Form1->Button4->Enabled = false;
     Canvas->Brush->Color = clMoneyGreen;
     Canvas->Ellipse(50,159,80,179);
}
i++; j++;
Canvas->Brush->Style = bsClear;
 
//InvalidateRect ( this->Handle, NULL, True );
Canvas->Pen->Color = clBlack;
//Canvas->Pen->Mode = pmNotXor;
//перерисовка контура цилиндра
Canvas->Ellipse(50,60,80,80);
 
Canvas->MoveTo(50, 70);
Canvas->LineTo(50,170);
 
Canvas->MoveTo(79, 70);
Canvas->LineTo(79,170);
 
Canvas->Ellipse(50,160,80,180);