AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Farbanimation mit TCanvas

Ein Thema von DerHaushaltsProfi · begonnen am 11. Mai 2015 · letzter Beitrag vom 13. Mai 2015
Antwort Antwort
Benutzerbild von stahli
stahli

Registriert seit: 26. Nov 2003
Ort: Halle/Saale
4.351 Beiträge
 
Delphi 11 Alexandria
 
#1

AW: Delphi verändern

  Alt 11. Mai 2015, 18:07
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.
Stahli
http://www.StahliSoft.de
---
"Jetzt muss ich seh´n, dass ich kein Denkfehler mach...!?" Dittsche (2004)
  Mit Zitat antworten Zitat
Jens01

Registriert seit: 14. Apr 2009
673 Beiträge
 
#2

AW: Delphi verändern

  Alt 11. Mai 2015, 18:43
Für Gradienten so alleinstehend ist diese Komponente "führend". Mit Graphics32 geht das auch gut, man muss so aber vorher tief reinarbeiten.
Achtung: Bin kein Informatiker sondern komme vom Bau.
  Mit Zitat antworten Zitat
bcvs

Registriert seit: 16. Jun 2011
721 Beiträge
 
Delphi 12 Athens
 
#3

AW: Delphi verändern

  Alt 11. Mai 2015, 19:36
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.
  Mit Zitat antworten Zitat
Perlsau
(Gast)

n/a Beiträge
 
#4

AW: Delphi verändern

  Alt 11. Mai 2015, 20:20
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.

Geändert von Perlsau (11. Mai 2015 um 20:22 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.655 Beiträge
 
Delphi 12 Athens
 
#5

AW: Delphi verändern

  Alt 11. Mai 2015, 20:25
Meiner Meinung nach hat es bcvs genau erfasst, siehe auch mein Link oben, alles schon dagewesen.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von Captnemo
Captnemo

Registriert seit: 27. Jan 2003
Ort: Bodenwerder
1.126 Beiträge
 
Delphi XE4 Architect
 
#6

AW: Delphi verändern

  Alt 11. Mai 2015, 20:59
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.
Dieter
9 von 10 Stimmen in meinem Kopf sagen ich bin nicht verrückt. Die 10. summt dazu die Melodie von Supermario Bros.
MfG Captnemo
  Mit Zitat antworten Zitat
Popov
(Gast)

n/a Beiträge
 
#7

AW: Delphi verändern

  Alt 11. Mai 2015, 21:16
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;
  Mit Zitat antworten Zitat
bcvs

Registriert seit: 16. Jun 2011
721 Beiträge
 
Delphi 12 Athens
 
#8

AW: Delphi verändern

  Alt 12. Mai 2015, 08:42
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.
  Mit Zitat antworten Zitat
Perlsau
(Gast)

n/a Beiträge
 
#9

AW: Delphi verändern

  Alt 12. Mai 2015, 09:20
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
  Mit Zitat antworten Zitat
DerHaushaltsProfi

Registriert seit: 18. Jan 2015
14 Beiträge
 
#10

AW: Delphi verändern

  Alt 12. Mai 2015, 16:18
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
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:13 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz