Kód: Vybrať všetko
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
vymaz();
randomize();
Form1->Image1->Canvas->Brush->Color=clRed;
for (int i=1;i<=20;i++)
{
int x1=20+random(185);
int y1=20+random(410);
int x2=x1+20;
int y2=y1+20;
Form1->Image1->Canvas->Ellipse(x1,y1,x2,y2);
}
Form1->Image1->Canvas->Brush->Color=clBlue;
for (int i=1;i<=20;i++)
{
int X1=225+random(185);
int Y1=20+random(410);
int X2=X1+20;
int Y2=Y1+20;
Form1->Image1->Canvas->Ellipse(X1,Y1,X2,Y2);
};
Form1->Image1->Canvas->Pen->Color=clBlack;
Form1->Image1->Canvas->LineTo(Form1->Image1->Width/2,0);
Form1->Image1->Canvas->MoveTo(Form1->Image1->Width/2,Form1->Image1->Height);
}1. otázka - Vedeli by ste mi niekto pomôcť, ako spraviť to, že by sa tie "guličky" neprekrívali?
2. ak som sa nepomýlil, tak tá čiara, čo he hore do polky bielej plochy, by mala ísť zhora dole, a nie takto... ako to opraviť? keď som to mal spravené cez Timer, aby sa mi stále menili, tak po druhom "tiknutí" timera sa objavila tam kde mala.