VPF::Алгоритм градиентной заливки - Форум программистов

ALeXandrK

Дата 4.10.2007, 01:52 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 342
Регистрация: 31.1.2007
Где: Санкт-Петербург

Репутация: нет
Всего: 6

Есть вот такой вот алгоритм, но он почему
то неправильно работает... Почему?
Неправильность выражается в том, что никакого
градиента нет, просто один цвет рисуется.

Код


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;

--------------------

Богат не/ни тот, у кого много, а тот, кому хватает

VICTAR

Дата 4.10.2007, 07:35 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 2
Всего: 80

Попробуй так

Код


procedure FillGradient(ACanvas: TCanvas; ARect: TRect; Color1, Color2, Color3: TColor);
var
  i: integer;
  r, g, b: Byte;
  LineWidth,
    LineHeight: integer;
begin
  ACanvas.Pen.Color := Color3;
  ACanvas.Rectangle(ARect);
  LineWidth := pred(ARect.Right - ARect.Left);
  LineHeight := pred(ARect.Bottom - ARect.Top);
  for i := 1 to pred(LineHeight) do
  begin
    r := GetRValue(Color1);
    g := GetGValue(Color1);
    b := GetBValue(Color1);
    r := r + (((GetRValue(Color2) - r) * i) div LineHeight);
    g := g + (((GetGValue(Color2) - g) * i) div LineHeight);
    b := b + (((GetBValue(Color2) - b) * i) div LineHeight);
    ACanvas.Brush.Style := bsSolid;
    ACanvas.Brush.Color := RGB(r, g, b);
    ACanvas.FillRect(Rect(1, ARect.Top + i, LineWidth, ARect.Top + i + 1));
  end;
end;

Это сообщение отредактировал(а) VICTAR - 4.10.2007, 07:37

ALeXandrK

Дата 4.10.2007, 17:54 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 342
Регистрация: 31.1.2007
Где: Санкт-Петербург

Репутация: нет
Всего: 6

Спасибо!
С небольшими поправками это то, что нужно! smile

--------------------

Богат не/ни тот, у кого много, а тот, кому хватает

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »