Farbige Schattierung der Komponenten

[DelphiUser7]

Hallo,
weiss hier zufällig jemand, wie man bei Delphi eine Schattierung macht, so ähnlich wie bei WinAmp oder Windows Media Player 7-9;

Gruss
DelphiUser7

[Mirilin]

Was verstehst Du genau unter Schattierung? *WMPlayer offen hat, aber nicht sieht, was du meinst*

[Stanlay Hanks]

Meinst du vielleicht Farbverläufe? Dann such doch mal in der DP (Farbverlauf)

Man liest sich, Stanlay

[DelphiUser7]

Tut mir Leid, aber da stehen nur Beiträge von Mitgliedern, die offenbar alle schon wissen, wie man einen Farbverlauf zeichnet; und das hilft mir natürlich nicht weiter; ausserdem ging es bei den meisten Themen um spezielle Projekte, die z.T. gar nichts mit Delphi zu tun hatten, z.B. in der Kategorie 'Klatsch und Tratsch';

DelphiUser7

[Mirilin]

Beispiel :

Delphi-Quellcode:

var
  i  : Integer;
  s : array[0..2] of Byte;
  e : array[0..2] of Byte;
  d : array[0..2] of single;
begin
  s[0] := GetRValue(Color1);
  s[1] := GetGValue(Color1);
  s[2] := GetBValue(Color1);

  e[0] := GetRValue(Color2);
  e[1] := GetGValue(Color2);
  e[2] := GetBValue(Color2);

  for i := low(s) to high(s) do d[i] := (e[i]-s[i]) / Width;

  for i := 0 to Width do
  begin
    Canvas.Pen.Color := rgb( Round(s[0] + i * d[0]),
                             Round(s[1] + i * d[1]),
                             Round(s[2] + i * d[2]) );
    Canvas.MoveTo(i,0);
    Canvas.LineTo(i,Height);
  end;

end;