Farbanimation mit TCanvas

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

[Popov]

Ich hab zuerst verstanden es geht um die Rechtecklinie.

Egal. Ich hab noch jetzt die alte DrawGradientH Funktion genommen und neue die ColorMix, hab alles in einen Timer gepackt. Fertig ist "The Incredible Delphi-Form Color Show".

Delphi-Quellcode:

procedure DrawGradientH(Canvas: TCanvas; Color1, Color2: TColor; Rect: TRect);
var
  X, R, G, B: Integer;
begin
  for X := Rect.Top to Rect.Bottom do begin
    R := Round(GetRValue(Color1) + ((GetRValue(Color2) - GetRValue(Color1)) *
      X / (Rect.Bottom - Rect.Top)));
    G := Round(GetGValue(Color1) + ((GetGValue(Color2) - GetGValue(Color1)) *
      X / (Rect.Bottom - Rect.Top)));
    B := Round(GetBValue(Color1) + ((GetBValue(Color2) - GetBValue(Color1)) *
      X / (Rect.Bottom - Rect.Top)));

    Canvas.Pen.Color := RGB(R, G, B);
    Canvas.Pen.Width := 1;
    Canvas.Pen.Style := psInsideFrame;

    Canvas.MoveTo(Rect.Left, X);
    Canvas.LineTo(Rect.Right, X);
  end;
end;

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;

var
  Col1, Col2, Col3, Col4: TColor;

procedure TForm1.Timer1Timer(Sender: TObject);
const
  Count = 100;
begin
  with Sender as TTimer do
  begin
    Interval := 1;

    if Tag = 0 then
    begin
      Col2 := RGB(Random(256), Random(256), Random(256));
      Col4 := RGB(Random(256), Random(256), Random(256));
    end;

    DrawGradientH(Canvas, ColorMix(Col1, Col2, Tag, Count), ColorMix(Col3, Col4, Tag, Count), Canvas.ClipRect);

    Tag := Tag + 1;
    if Tag > Count then
    begin
      Tag := 0;
      Col1 := Col2;
      Col3 := Col4;
    end;
  end;
end;

[bcvs]

Zitat von Perlsau:

Das, was du verstanden zu haben glaubst, wäre ja mit FillRect leicht umzusetzen.

Ja genau, das wäre einfach. Der Haushaltsprofi müsste halt nochmal beschreiben, wass er genau will.

[Perlsau]

Zitat von bcvs:

Zitat von Perlsau:

Das, was du verstanden zu haben glaubst, wäre ja mit FillRect leicht umzusetzen.

Ja genau, das wäre einfach. Der Haushaltsprofi müsste halt nochmal beschreiben, wass er genau will.

... denn sonst stochern wir weiter im Nebel rum und stechen uns dabei noch aus Versehen gegenseitig

[DerHaushaltsProfi]

So da es einige Missverständnisse gibt werde ich es nochmal genau erklären
So ich würde gerne einen Farbübergang (KEINEN Farbverlauf) von einer Farbe beginnend über andere Farben zu einer Zielfarbe. Wie es bei Verfärbungen halt üblich ist (z.B. in der Chemie). Eigentlich soll es in meinem Programm auch um Chemie Nachweise gehen. Und dafür brauche ich diese Verfärbung. Wenn ich einen Nachweis mache und die nachzuweisende Chemikalie mit einem Nachweismittel nachweise (und eine ver. bzw. entfärbung stattfindet) dann macht es ja nicht zack und aus einer blauen Lösung wird eine gelbe. Es wird erstmal hellblau dann hellgelb dann gelb. Ich hoffe, dass es nun etwas verständlicher ist . Ich habe also in meiner Canvas mittels Halbkreis und Rechteck ein reagenzglas gezeichnet und will nun immer nur den unteren Halbkreis neu einfärben. Ich hoffe das ist nun verständlich

mfg

[Mavarik]

Ändere doch bitte mal den Threadtitle...

[himitsu]

Du hast auch noch 35 Minuten Zeit dafür. (24 Stunden lang)

> Bearbeien > Erweitert


Bei Torry oder in der CodeLib gibt es Funktionen, denen man zwei Farben geben kann und die dann über einen dritten Parameter (Prozent) eine Mischfarbe rausrücken.
Ansonsten Mathematik > in RGB-Anteile zerlegen und dann jeden Anzeil berechnen und wieder zusammensetzen