Danke dir " turboPASCAL " =)
@lbccaleb kannst du bei zeile 89 anpassen.
Delphi-Quellcode:
{Richtung * Geschwindigkeit}
FMetaball[i].vx := (Random(2) * 2 - 1) + (Random * 0.5 + 0.5);
FMetaball[i].vy := (Random(2) * 2 - 1) + (Random * 0.5 + 0.5);
und bei zeile 196, kannst du einstellen wie nah die metaballs an den rand des fensters kommen.
Delphi-Quellcode:
procedure TForm1.TimerMetaballTimer(Sender: TObject);
const
bx = 80;
by = 40;
var
i: Integer;
gibts da die möglichkeit die metaballs auch in größe und farbe anzupassen? für ein about window sind die 3 doch recht groß
farbe z.b über einen timer der alle paar sekunden selbst wechselt.