Farbige Schattierung der Komponenten

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