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

Простой вопрос о цвете в Делфи...   Найти похожие ветки 

← →
UDS   (2003-06-05 21:12) [0]

Необходимо поставить в зависимость от таймера изменение цвета фигуры SHAPE (случайно). Если ставлю RANDOM(255) происходит почему-то только изменение градаций коричневого (от красного до черного). Помогите разобраться. Как сделать чтобы перебирались все цвета. Или например градации только зеленого. Спасибо заранее.

---

← →
Palladin ©   (2003-06-05 21:16) [1]

код

---

← →
UDS   (2003-06-05 21:20) [2]

???

---

← →
UDS   (2003-06-05 21:22) [3]

procedure TForm1.Button1Click(Sender: TObject);
begin
RANDOMIZE;
TIMER1.ENABLED:=TRUE;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin

SHAPE1.Brush.COLOR:=Random( ?????? );

end.

---

← →
Xoy ©   (2003-06-05 21:23) [4]

Если я не ошибаюсь свет - длинное целое, состоит он из RGB составляющих и имеет вид:
XX XX XX
R G B (в 16-ричной системе)
т.е. для получения нужного цвета нужно просто составить правельно
его номер.

---

← →
UDS   (2003-06-05 21:28) [5]

Да, там еще и буквы есть типа FF CC и т.д. НО! Мне надо чтобы цвета менялись рандомно !

---

← →
Anatoly Podgoretsky ©   (2003-06-05 21:33) [6]

Random(16777216)

---

← →
Xoy ©   (2003-06-05 21:35) [7]

ну тогда RANDOM(16777215) (FFFFFF -> Dec)

---

← →
Всеволод Соловьёв ©   (2003-06-05 21:35) [8]

RGB(Random(256),Random(256),Random(256))
256 никогда не выдаст. зато может дать 255 :)

---

← →
UDS   (2003-06-05 21:36) [9]

Спасибо!!!

---

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

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



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