Farbanimation mit TCanvas

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

Zitat von Perlsau (Beitrag 1301119)

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:

Zitat von bcvs (Beitrag 1301149)

Zitat:

Zitat von Perlsau (Beitrag 1301119)

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 :-D
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 :D. 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

[bcvs]

Zitat:

Zitat von DerHaushaltsProfi (Beitrag 1301225)

So ich würde gerne einen Farbübergang (KEINEN Farbverlauf) von einer Farbe beginnend über andere Farben zu einer Zielfarbe.

Dann mach das doch mit einem Timer:

geeignetes Timerintervall festlegen (vielleicht 10, musst du halt ausprobieren).

Im Timerevent setzt du die Farbe auf den nächsten Farbwert und malst du den Halbkreis komplett neu, solange bis die Zielfarbe erreicht ist. Du brauchst nur noch den Algorithmus für die Berechnung des nächsten Farbwertes. Vielleicht wirst du da bei den hier schon geposteten Codeschnipsel für Gradienten fündig.

[DeddyH]

In dem auf Seite 1 verlinkten Thread hatte ich eine Beispielanwendung gepostet (damals noch Delphi 7). Ist das ungefähr das, was dabei herauskommen soll?

[Harry Stahl]

Du hast nicht dabei geschrieben, welche Delphi-Version Du verwendest. Wenn Du eine neuere Delphi-Version nutzt, kannst Du das auch mit FireMonkey lösen, für solche Sachen ist es nahezu ideal.

Ich habe anliegend mal ein Beispiel angefügt (erstellt in XE7), das ich hier in 5 Minuten zusammengeklickt habe. Mittels eine Farbanimation wechselt die "Flüssigkeit" (welche aus einer Kombination aus Rectangles und Elipsen besteht) von der Farbe Blau nach Gelb (in dem rechten Kolben).

Die Dauer des Übergangs kann man unter "Duration" einstellen (hier habe ich mal 2 Sekunden gewählt). Auch kann man festlegen, ob der Farbübergang Linear erfolgen soll oder z.B. exponential (unter "Interpolation").

Sollen hier noch andere Farbstufen dazwischen erscheinen, kann man statt der ColorAnimation eine GradientAnimation verwenden, wo man sich die Zwischenfarben einfach in dem Gradient-Dialog zusammen klicken kann.

[Popov]

Zitat:

Zitat von DerHaushaltsProfi (Beitrag 1301225)

So da es einige Missverständnisse gibt werde ich es nochmal genau erklären :-D

Mal davon abgesehen, dass im Beitrag #2 nicht die Füllfarbe, sondern die Rahmenfarbe innerhalb einer bestimmten Zeit von einer Farbe zu einer anderen wechselt, was stimmt mit dem Beispiel in #2 nicht?