VPF::RGB - Форум программистов

sityZen

Дата 18.3.2004, 03:51 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 18.3.2004

Репутация: нет
Всего: нет

Допустим у меня есть переменная color типа Tcolor, и 3 переменных r, g, b типа integer. Помогите мне перевести цвет color в RGB вид, и присвоить значения красного , зеленого и синего цветов в переменные r, g, b, и обратно!
Пример 1:
color:=clYellow;
// Код программы
// Потом после программы переменные r, g, b должны принимать значения:
// r=255; g=255; b=0;

Пример 2:
r:=255; g:=255; b:=0;
// Код программы
// Потом после программы переменная color должна принимать значение clYellow:

<Spawn>

Дата 18.3.2004, 05:41 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 2
Всего: 64

Смотри функции RGB, GetRValue, GetGValue, GetBValue

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

p0s0l

Дата 18.3.2004, 07:27 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 16
Всего: 112

Можно и вручную:
1)
color := r or (g shl 8) or (b shl 16);

2)
r := byte(color);
g := byte(color shr 8);
b := byte(color shr 16);

--------------------

С уважением, г-н Посол.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »