Скачать: CL | DM;

Как заставит Маздай перичитать сведения об изменении Цвета   Найти похожие ветки 

← →
Zhenka ©   (2003-02-17 07:37) [0]

Как это делает Менеджер Тем??
Пример
...........
begin
Reestr.OpenKey("\Control Panel\Colors",False);
Reestr.WriteString("ActiveBorder","0 0 0");
Reestr.CloseKey;
end;

---

← →
maxim2 ©   (2003-02-17 08:36) [1]

SetSysColors

---

← →
Zhenka ©   (2003-02-17 08:54) [2]

Example,Please ^8(

---

← →
maxim2 ©   (2003-02-17 08:57) [3]

const
SetCol: array [0..1] of Integer = (COLOR_ACTIVEBORDER);
ColorA:array [0..1] of TColor =(clAqua);
begin
SetSysColors(1, SySCol[1], ColorA[1]);
end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c