Jak uzyskać efekt przesuwania się okręgu ?
TRect R;
int i;
R.top = 0;
R.Left = 0;
R.Right = PaintBox1->Width;
R.Bottom = PaintBox1->Height;
for( i = 0; i < 500; i ++)
{
Canvas->Brush->Style=bsSolid;
Canvas->Brush->Color=clSilver;
Canvas->FillRect(R);
Canvas->Ellipse(i,100,i+100,200);
}
int i;
R.top = 0;
R.Left = 0;
R.Right = PaintBox1->Width;
R.Bottom = PaintBox1->Height;
for( i = 0; i < 500; i ++)
{
Canvas->Brush->Style=bsSolid;
Canvas->Brush->Color=clSilver;
Canvas->FillRect(R);
Canvas->Ellipse(i,100,i+100,200);
}
Materiał dodany przez użytkownika: alphan