|
|
|
randomize;
int x1 = 0, y1 = 0, x2 = 100, y2 = 100;
do
{
Image1->Canvas->Pen->Width = 10;
Image1->Canvas->Pen->Color = random (16000000);
Image1->Canvas->Brush->Color = random (16000000);
Image1->Canvas->Ellipse(x1,y1,x2,y2);
x1 = x1 + 20;
y1 = y1+ 11;
x2 = x2+ 20;
y2 = y2+ 11;
Application->ProcessMessages();
Sleep (100);
}
while (x2 <= Image1->Width);