Farbanimation mit TCanvas

[DerHaushaltsProfi]

Moin moin,

ich habe ein Rechteck in meine Canvas gezeichnet. Das Rechteck wurde in der Farbe clgreen "gebrusht". Nun möchte ich, wenn man auf einen Button drückt, dass das Rechteck seine Farbe ändert. Es soll von grün zu schwarz werden. Das ganze soll für den Nutzer des Programmes sichtbar sein und es soll ein "Farbverlauf" dargestellt sein. Mein Problem ist jetzt allerdings, dass ich nicht weiß wie man diesen Farbverlauf hin bekommt. Es soll nicht einfach von grün auf schwarz springen, es soll schon von grün über blau über gelb über rot zu schwarz werden (wie eine kleine Animation also). Wie kann man so etwas realisieren? Der Quelltext soll nicht aus brush.color := clgreen , brush.color := clblue brush.color := clyellow ..... bestehen. Es soll praktisch eine Funktion sein die dem Farbwert (z.B.) immer 5 dazu rechnet und er sich so, bis er bei schwarz ist, verändert. Ich hoffe ich habe mich (halbwegs ) verständlich ausgedrückt.

FÜr Antworten bedanke ich mich schon mal im Vorraus

mfg

[Popov]

Nehmen wir mal als Vorlage eine alte FormGradient Funktion und ändern sie leicht ab, bekommen wir eine Funktion mit dem wir ein Mischungsverhältnis zweier Farben berechnen können:

Delphi-Quellcode:

function ColorMix(Color1, Color2: TColor; Index, Count: Word): TColor;
var
  R, G, B: Integer;
begin
  if Index > Count then
    Index := Count;

  R := Round(GetRValue(Color1) + ((GetRValue(Color2) - GetRValue(Color1)) *
    Index / Count));
  G := Round(GetGValue(Color1) + ((GetGValue(Color2) - GetGValue(Color1)) *
    Index / Count));
  B := Round(GetBValue(Color1) + ((GetBValue(Color2) - GetBValue(Color1)) *
    Index / Count));

  Result := RGB(R, G, B);
end;

procedure TForm1.Button1Click(Sender: TObject);
const
  Count = 100;
var
  Index: Integer;
begin
  with Canvas do
  begin
    Pen.Width := 5;

    for Index := 0 to Count do
    begin
      Pen.Color := ColorMix(clGreen, clRed, Index, Count);
      Rectangle(100, 100, 500, 400);
      Sleep(20);
    end;
  end;
end;

[stahli]

Du müsstest wohl mal nach RGB suchen und Dich mit Farbfunktionen beschäftigen.
Dann könntest Du die Rot- Grün - und Blau-Anteile der Start- und Endfarbe ermitteln und diese schrittweise verändern.

Ich hatte mich mal mit Helligkeitsänderungen befasst, das ist aber lange her:
http://www.delphipraxis.net/88775-fa...eraendern.html

Ggf. kann Dir eine Bibliothek wie Graphic32 helfen.

[Perlsau]

Bereits der erste Treffer bei der Google-Suche nach Delphi+Canvas+Farbverlauf führt zu einem Tutorial beim Delphi-Treff, und das sogar in verständlichem Deutsch:

Die Prozedur DrawGradient ermöglicht es, einen linearen Farbverauf zu zeichnen. Der Farbverlauf erfolgt je nach Wahl des Parameters GradientOrientation Vertical oder Horizontal. Color1 und Color2 geben die Farben an, zwischen denen der Farbverlauf stattfinden soll. Der Parameter Rect gibt den Bereich an, in dem gezeichnet werden sollen. Die Koordinaten sind relativ zur oberen linken Ecke des übergebenen Canvas.

[Jens01]

Für Gradienten so alleinstehend ist diese Komponente "führend". Mit Graphics32 geht das auch gut, man muss so aber vorher tief reinarbeiten.

[DeddyH]

Ich glaube, es geht eher um so etwas wie in diesem Thread.

[bcvs]

Wenn ich das richtig verstanden habe, geht es hier nicht um einen Farbverlauf (Gradient) sondern um eine animierte Farbänderung. Das könnte man mit einem Timer machen, der das Rechteck mit leicht geänderter Farbe immer wieder neu malt, bis die Zielfarbe erreicht ist.

Für die Farbänderung könnten die Algorithmen aus der Gradient-Funktion hilfreich sein.

[Perlsau]

Ein Farbverlauf, der sich ständig ändern soll, muß aber dennoch erst einmal gezeichnet werden. Ist das Zeichnen des Farbverlaufs beendet, wird die Zeichnen-Methode mit entsprechend geänderten Parametern wiederholt. Zumindest habe ich das so verstanden, daß nicht die gesamte Zeichenfläche mit einer Farbe gefüllt werden soll, danach mit einer anderen Farbe usw., sondern daß sich ändernde Farbverläufe angezeigt werden sollen. Was ist denn ein Gradient anderes als ein Farbverlauf? Das, was du verstanden zu haben glaubst, wäre ja mit FillRect leicht umzusetzen.

[DeddyH]

Meiner Meinung nach hat es bcvs genau erfasst, siehe auch mein Link oben, alles schon dagewesen.

[Captnemo]

Der Threadtitel ist aber äußerst unglücklich gewählt.

Was ich aus dem TE-Beitrag noch nicht verstanden habe, soll er denn nun vollflächig zu den Farben überblenden, oder in einer laufenden Bewegung die Farben bis zu Zielfarbe runterlaufen? Das wären zwei völlig unterschiedliche Anforderungen.