Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Цвет рабочего стола

Автор: Pavelbej 27.11.2006, 10:47

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

Код


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

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

Автор: Alexeis 27.11.2006, 12:54

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

Автор: Pavelbej 27.11.2006, 16:13

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

Код


   c:=colordialog1.color;

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

Автор: Sunvas 27.11.2006, 16:16

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

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

Код


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

Автор: bems 28.11.2006, 12:37

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

)

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

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