[OS] Metaballs-About Preview

[himitsu]

Einfache Lösung:

Erzeuge diesen Dialog erst, wenn er benötigt wird.
Man muß nicht alles sofort beim Programmstart automatisch von Delphi erzeugen lassen, so daß es die meißte Zeit sinnlos im Hintergrund rumliegt/arbeitet.
( Wir haben heutzutage ja genug RAM, aber muß man diesen denn immer sinnlos verschwenden? Vorallem bei soetwas, welches eigentlich fast nie angezeigt wird. )

Den Dialog, bzw. die Form in den Projektoptionen => Formulare nach "verfügbare Formulare" verschieben
und dann diesen manuell aufrufen, wenn er angezeigt werden soll.

Delphi-Quellcode:

var Dialog: TMyAboutDialog;

Dialog := TMyAboutDialog.Create(Self);
try
  Dialog.ShowModal;
finally
  Dialog.Free;
end;

oder

Delphi-Quellcode:

with TMyAboutDialog.Create(Self) do
  try
    ShowModal;
  finally
    Free;
  end;

[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.

[himitsu]

Über die Variablen d und m in TMetaballs.Calc werden die Pixel um die Metabals berechnet und zusammen mit den m-Vergleichen in den nachfolgenden IFs wird die Größe (der sichtbare Bereich) vorgegeben ... gößere Zahlen = kleinere Bälle.

Und vergiß nicht die Berechnung für die Randkollision anzupasen.

[turboPASCAL]

Zitat:

... kann ich die metaballs ...

:wall: Lesen und richtig lesen ...

Zitat:

Zitat von himitsu (Beitrag 1040746)

Über die Variablen d und m in TMetaballs.Calc werden die Pixel um die Metabals berechnet und zusammen mit den m-Vergleich in den nachfolgenden IFs

Genau.

Delphi-Quellcode:

// ...

  MetaBalls := TMetaballs.Create(Self.Handle, PaintBox1.BoundsRect, 5); // <-<< geändert, 5 = Anzahl der MetaBälle
  try
    MetaBalls.SrinkX := 20;                // <-<< Abstand zum BoundsRect ("Bande")
    MetaBalls.SrinkY := 20;

    MetaBalls.BorderColor := clRed;        // <-<< neu
    MetaBalls.InnerColor := clRed;         // <-<< wird nicht genutzt !

    MetaBalls.MBallsSize := 0.0025;        // <-<< neu 
    MetaBalls.MBallsBorderSize := 0.0005;  // <-<< neu

    //...