Простой вопрос о цвете в Делфи...

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

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

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

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

Спасибо!!!

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