Einzelnen Beitrag anzeigen

Benutzerbild von turboPASCAL
turboPASCAL

Registriert seit: 8. Mai 2005
Ort: Sondershausen
4.274 Beiträge
 
Delphi 6 Personal
 
#14

AW: [OS] Metaballs-About Preview

  Alt 10. Aug 2010, 11:19
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.
Matti
Meine Software-Projekte - Homepage - Grüße vom Rüsselmops -Mops Mopser
  Mit Zitat antworten Zitat