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;