Заливка и плавная смена цветов

← →
Serious Sam © (2004-05-25 00:05) [0]

Вот часть моей программы:
.............
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Form1.Canvas.Brush.Color:=Brush.Color+100;
Form1.Canvas.Polygon(m); {массив m описан}
end;
...........
Как и присуще режиму RGB программа сначала прогоняет все оттенки красного, затем зеленого и синего. А можно ли сделать так, чтобы цвета сменялись плавно (например, весь спектр цвета от красного до синего)?
И второй вопрос. У меня получается так, что через каждые 10 млс программа рисует новую фигуру с новой заливкой. Хотелось бы, чтобы комп не мучал себя, заново перерисовывая фигуру, а лишь менял бы цвет ее заливки. Подскажите, как это сделать.

← →
Константинов © (2004-05-25 00:13) [1]

Вычисляй границы своего полигона и закрашивай его паралельными линиями каждый раз меняя цвет линий.

← →
Serious Sam © (2004-05-25 00:21) [2]

Нет, он должен заливаться одним цветом раз в 10 млс. Может там режим не эргэбэшный поставить нужно?

← →
Serious Sam © (2004-05-25 00:27) [3]

> заливаться одним цветом раз в 10 млс.

менять цвет раз в 10млс.

← →
Sun bittern © (2004-05-25 06:30) [4]

Serious Sam © (25.05.04 00:27) [3]

GDI+ на http://delphigfx.mastak.ru/ DLL эту берем из XP

← →
Lessa (2004-05-25 15:53) [5]

А floodfill?

Плавно меняем красную компоненту цвета от R1 до R2 за N шагов:
LambdaR := (R2 - R1)/N; for Step := 0 to N do R := R1 + Round(Step*LambdaR);
Аналогично с G и B компонентами цвета.
Также см. GetRValue, GetGValue, GetBValue, RGB + F1.

Заливка и плавная смена цветов Найти похожие ветки