 |
|
Модераторы: Poseidon, Snowy, bems, MetalFan |
 
|
|
Как изменить цвет конопок через реестр windows 
| Guest_Ramstar |
|
|||
|
Unregistered |
Народ помогите с курсовиком!! Тема такя - как через реестр изменить цвет кнопок, испольюзуя компонент COLORDIALOG. Проблема в том, что я незнаю как переобразовать цвет из HEX(системы счисления в формат RGB.
|
|||
|
||||
Дата 5.3.2003, 18:57 (
Загрузка ...
| Medved |
|
|||
 Эксперт  Профиль Группа: Завсегдатай Сообщений: 7209 Регистрация: 15.9.2002 Где: Kazakhstan, Astan a Репутация: 14 Всего: 154 |
Поищи в нашем FAQ. Там это есть. -------------------- |
|||
|
||||
| serious |
|
|||
 Опытный Профиль Группа: Участник Сообщений: 316 Регистрация: 15.2.2003 Где: Пенза Репутация: нет Всего: 1 |
Ты не знаешь, где в реестре хранятся эти значения, или как?
-------------------- Я знаю то, что ничего не знаю, а некоторые не знают и этого. |
|||
|
||||
| Guest_alexsoft |
|
|||
|
Unregistered |
Проще не бывает. Допустим есть HEX-цвет AD1F6C.Тогда AD=R; 1F=G; 6C=B.
|
|||
|
||||
| cpu |
|
|||
 Шустрый Профиль Группа: Участник Сообщений: 149 Регистрация: 27.2.2003 Репутация: нет Всего: нет |
Это элементарно, Ватсон:
procedure ColorToRGB(c:tcolor; var r,g,b:integer); begin r:=(c and $ff); g:=(c and $ff00) shr 8; b:=(c and $ff0000) shr 16; end; думаю, пояснения не нужны. |
|||
|
||||
| Vit |
|
|||
 Vitaly Nevzorov Профиль Группа: Экс. модератор Сообщений: 10964 Регистрация: 25.3.2002 Где: Chicago Репутация: 48 Всего: 207 |
Стандартные функции:
GetRValue GetBValue GetGValue RGB -------------------- With the best wishes, Vit I have done so much with so little for so long that I am now qualified to do anything with nothing Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru |
|||
|
||||
| cpu |
|
|||
|
Шустрый Профиль Группа: Участник Сообщений: 149 Регистрация: 27.2.2003 Репутация: нет Всего: нет |
Если переменных, содержащих цвет, мало, то это удобней. |
|||
|
||||
Дата 9.3.2003, 06:54 (| Pakshin A. S. |
|
|||
|
Эксперт Профиль Группа: Участник Клуба Сообщений: 5056 Регистрация: 16.2.2003 Репутация: 21 Всего: 61 |
А вообще на кой чёрт менять установки Windows???
|
|||
|
||||
|
|
| Правила форума "Delphi: Общие вопросы" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Delphi: Общие вопросы | Следующая тема » |
[ Время генерации скрипта: 0.0700 ] [ Использовано запросов: 22 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |