| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Смена цветов в Windows [D6, Win95/98, WinME, NT4, Win2k, WinXP]

maxim2 ©   (2002-12-23 21:12:00) 

Привет всем!
Вот такой вопросик, меняю цвета в Windows в реестре, когда я их меняю в реестре то новые цвета вступают в силу только после перезагрузки компа. И вот есть функция SetSysColors()
так вот при использовании этой функции вот например так
SetSysColors(1,COLOR_MENUTEXT, clAqua) Windows применяет это значение сразу без перезагрузки то есть текст меню становится тем цветом который я указал, а вот если я например поменял все цвета то использование этой функции как то напрягает типа вот так
SetSysColors(1,COLOR_MENUTEXT, clAqua)
...
...
...
SetSysColors(1,COLOR_MENU, clAqua)

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

---

maxim2   (2002-12-24 11:47:00) [1]

Огромное спасибо!

---

Vasily Terekhov   (2002-12-24 09:23:00) [2]

var
Form1: TForm1;
a: array[0..2] of integer = (COLOR_BTNTEXT,COLOR_WINDOW,COLOR_BTNFACE);
b: array[0..2] of integer = (clRed,clBlue,clYellow);

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
SetSysColors(3,a,b)
end;

end.

---

Наверх