Форум: "Основная";
Текущий архив: 2003.06.19;
Скачать: [xml.tar.bz2];
Вниз
Простой вопрос о цвете в Делфи... Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2003.06.19;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c
