Farbanimation mit TCanvas

[Harry Stahl]

Zitat von DerHaushaltsProfi:

@Harry Stahl gaaaaanz so komplex muss es nun auch nicht sein ;D

Ich weiß nicht, ob Du mal in den Source reingesehen hast, insofern nur noch der Hinweis, dass der von mir erstellte Source-Code aus ganzen 4 Zeilen besteht:

Delphi-Quellcode:

procedure TForm11.Button1Click(Sender: TObject);
begin
  ColorAnimation1.Enabled := false;
  ColorAnimation1.Enabled := true;
end;

procedure TForm11.ColorAnimation1Process(Sender: TObject);
begin
  Ellipse1.Fill.Color := Rectangle2.Fill.Color;
  Ellipse4.Fill.Color := Rectangle2.Fill.Color;
end;

Das würde ich nicht unbedingt als komplex berzeichnen. Aber man kann das natürlich auch auf die "harte Tour" machen, zum Lernen ist das sicher nicht verkehrt.

Zu Deiner Vorstellung für die VCL-Lösung: Du solltest das Zeichnen der Grafik im OnPaint-Event der Paintbox vornehmen. Denn was Du derzeit malst, ist nur "flüchtig" (minimiere mal nach dem Klick auf den Button das Formular, Deine Zeichnung ist dann verschwunden).

Besser wäre es hier Variabeln anzulegen, diese in gewissen Zeitabständen zu aktualisieren und dann jeweils auch die Paintbox aktualisieren zu lassen.

Und zu TColor hat Dir Popov gerade die entscheidenden Hinweise gegeben.