Home

Page 57
Page 57
background image

50 Глава 2

(меньше не рекомендуется). Внешне палитра меняется достаточно долго

(1-3 секунды, в зависимости от количества открытых программ и версии

Windows). Если пример будет запускаться в Windows

 то интервал лучше

увеличить до 10 секунд, т. е. установить значение 10000.

Итак, для изменения системного цвета существует функция

У нее всего три параметра:

1. Сколько цветов мы хотим изменить.

2. Номера цветов в системной палитре для изменения.
3. Новые значения цветов.

Допустим, что вы хотите поменять пятый цвет на красный. В этом случае

нужно дать такую команду:

 5, clRed);

Но менять так все цвета неудобно, и мы пойдем по пути прогресса — авто-

матизируем процесс. По нажатию первой кнопки Анимация палитры запус-

тим таймер:
procedure

 TObject);

begin

end;

Теперь создадим обработчик события срабатывания таймера (для этого про-
сто дважды щелкните по нему). Здесь мы напишем код смены палитры:

procedure

const

SySColorArray: array [0..13] of Integer

 [0..10] of TColor = (clAqua,

 clBlue,

clFuchsia, clGreen,

 clRed, clSilver,

begin

 SySColorArray[random(13)],

end;


Copyright © 2020 Файлообменник files.d-lan.dp.ua

Использование любых материалов сайта возможно только с разрешения автора.