Смена цветов в Windows

← →
maxim2 (2002-12-23 21:12) [0]

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

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

← →
Vasily Terekhov (2002-12-24 09:23) [1]

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.

← →
maxim2 (2002-12-24 11:47) [2]

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

Смена цветов в Windows Найти похожие ветки