Форум программистов [Powered by Invision Power Board]

Код

procedure TGradient.Fill(Rect: TRect);
var
  RGBFrom : array[0..2] of Byte; { from RGB values }
  RGBDiff : array[0..2] of integer; { difference of from/to RGB values }
  ColorBand : TRect; { color band rectangular coordinates }
  I : Integer; { color band index }
  R : Byte; { a color band's R value }
  G : Byte; { a color band's G value }
  B : Byte; { a color band's B value }
  Height: Integer;
begin                            { TODO : Неправильно работает }
  { extract from RGB values}
  RGBFrom[0] := GetRValue (ColorToRGB (StartColor));
  RGBFrom[1] := GetGValue (ColorToRGB (StartColor));
  RGBFrom[2] := GetBValue (ColorToRGB (StartColor));
  { calculate difference of from and to RGB values}
  RGBDiff[0] := RGBFrom[0] - GetRValue (ColorToRGB (EndColor));
  RGBDiff[1] := RGBFrom[1] - GetGValue (ColorToRGB (EndColor));
  RGBDiff[2] := RGBFrom[2] - GetBValue (ColorToRGB (EndColor));

  { set pen sytle and mode}
  Canvas.Pen.Style := psSolid;
  Canvas.Pen.Mode := pmCopy;

  { set color band's left and right coordinates}
  ColorBand.Left := Rect.Left;
  ColorBand.Right:= Rect.Right;
  Height := Rect.Bottom-Rect.Top;

  for I := 0 to Height  do
  begin
    ColorBand.Top := Rect.Top + I-1;
    ColorBand.Bottom := Rect.Top + I;
    { calculate color band color}
    R := RGBFrom[0] - (RGBDiff[0] div Height)*i;
    G := RGBFrom[1] - (RGBDiff[1] div Height)*i;
    B := RGBFrom[2] - (RGBDiff[2] div Height)*i;
    { select brush and paint color band}
    Canvas.Pen.Color:=RGB(R, G, B);
    Canvas.Rectangle(ColorBand);
  end;
end;