Einzelnen Beitrag anzeigen

Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#2

AW: 20 sich bewegende Kreise erstellen

  Alt 29. Dez 2017, 10:20
Zunächst rate ich Dir den Inhalt von .Timer1Timer auseinander zu rupfen. Z.B.

Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  NewCoordinates;
  PaintElipsis;
end;
Wo Du das "Zurückprallen" zuordnest ist meiner Meinung nach Geschmackssache. Ich würde es in die NewCoordinates packen.

Das Initiale Zeichnen erfolgt z.B im
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
 begin
   doublebuffered := true;
   mx := 10;
   my := 10;
   r := 10;
   vx := 1;
   vy := 1;
   timer1.enabled := false;
   PaintEllepsis;
 end;
Wenn Du das so oä handhabst wird es ein wenig übersichtlicher.

Gruß
K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
  Mit Zitat antworten Zitat