渐变色计算及测试

颜色渐变测试代码。

窗体上放2个label，1个image控件做测试。lbl1,lbl2的Color代表渐变的两种颜色。

 

 

var
  rstep, gstep, bstep: Double;
  i,r,g,b: Integer;
begin
  r:=GetRValue(lbl1.Color);
  g:=GetGValue(lbl1.Color);
  b:=GetBValue(lbl1.Color);
  rstep:=(GetRValue(lbl2.Color)-r)/img1.Height;
  gstep:=(GetGValue(lbl2.Color)-g)/img1.Height;
  bstep:=(GetBValue(lbl2.Color)-b)/img1.Height;
  for i:= 0 to img1.Height do
  begin
    img1.Canvas.MoveTo(0,i);
    img1.Canvas.Pen.Color:=RGB(Trunc(r+rstep*i),Trunc(g+gstep*i),Trunc(b+bstep*i));
    img1.Canvas.LineTo(img1.Width,i);
  end;