[OS] Metaballs-About Preview

[turboPASCAL]

...oder man sehe sich "MetaballsDemoVCL v2.Exe&Source.zip" an.

[Dracoon]

kann ich die metaballs auch in ihrer grösse ändern ?
hab mal bissel versucht im code, aber bekomme nur die grösse vom rand geändert.

[turboPASCAL]

Ja, aber nur bei dem Erstellen:

Delphi-Quellcode:

procedure TAboutForm.FormCreate(Sender: TObject);
var
  myAboutText: TStringlist;
begin
  // ...

  MetaBalls := TMetaballs.Create(Self.Handle, PaintBox1.BoundsRect);
  try
    MetaBalls.SrinkX := 82;
    MetaBalls.SrinkY := 46;

  // ...

Verändere also die Grösse der PaintBox.