VPF::Цвет рабочего стола - Форум программистов

Pavelbej

Дата 27.11.2006, 10:47 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 419
Регистрация: 5.7.2005

Репутация: нет
Всего: 6

Вот так меняю цвет рабочего стола:

Код


      c:=colordialog1.color;
      d:=1;
      setsyscolors(1, d, c);

но при перезагрузке компа цвет рабочего стола востанавливается. Можно запомнить как ни будь цвет или нет?

Alexeis

Дата 27.11.2006, 12:54 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Установить его реестре "HKEY_CURRENT_USER\Control Panel\Colors\Background"

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

Pavelbej

Дата 27.11.2006, 16:13 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 419
Регистрация: 5.7.2005

Репутация: нет
Всего: 6

alexeis1, а как получить из

Код


   c:=colordialog1.color;

значение как в реестре - 0 78 152

Sunvas

Дата 27.11.2006, 16:16 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89

Pavelbej, это количество красного, зеленого и синего цвета. Добываються функциями getrvalue getgvalue getbvalue.

Добавлено @ 16:19
Или можно значения добыть поизвращенней -

Код


 r:=lo(color);
 color:=color shr 8;
 g:=lo(color);
 color:=color shr 8;
 b:=lo(color);

Это сообщение отредактировал(а) Sunvas - 27.11.2006, 16:23

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

bems

Дата 28.11.2006, 12:37 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88

Цитата(Sunvas @ 27.11.2006, 16:16

)

Или можно значения добыть поизвращенней -

это не поизвращенней, это "как есть"

--------------------

Обижено школьников: 8

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »