Рандомный цвет в Lazarus
Как сделать так, чтобы SpeedButton присваивался рандомный цвет в определенном диапазоне
Например, при открытии формы каждая кнопка имеет цвет от бледно-розового до малинового, но всегда рандомно
Вобщем, если я непонятно объяснила, переспросите
цвет в компе - сочетание 3-х основных цветов, красного, зеленого и синего. 1 цвет задается своей яркостью от 0 до 255, т. е. 1 байтом
0 - цвета нет, 255 - максимальная яркость
функция RGB возвращает цвет в типе TColor - общепринятом формате. аргументами ей как раз будут вышеописанные цвета
так цвет RGB(255,0,0) будет ярко красным, а цвет RGB(0,0,255) ярко синим. цвет RGB(255,255,255) - белый, а цвет RGB(0,0,0) -черный
задавая случайным образом цвета можно получать случайные оттенки.
var x: Byte;
x := Random(191);
Color := RGB($DC + (x div 6), $14 + x, $3C + x);
Даст случайный цвет от/до:
