Скачать: CL | DM;

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

← →
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?

---

← →
WebErr ©   (2004-05-25 16:27) [6]

Плавно меняем красную компоненту цвета от 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.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.02 c