[OS] Metaballs-About Preview

[Dracoon]

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.