Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как перевести TColor в RGB

TStas © (2005-12-17 16:48:00)
Как-то просто, а найти не могу.

Anatoly Podgoretsky (2005-12-17 23:08:00) [1]
Fenik © (17.12.05 22:45) [5]
Я понимаю TColor как он есть, а он по определению не являеся RGB, иногда может с ним совпадать, если не обращать внимание на 4 байт

Fenik (2005-12-17 22:48:00) [2]
> app ©

Мы, видимо, разные вещи под RGB понимаем.

Fenik (2005-12-17 22:45:00) [3]
> app © (17.12.05 22:21) [4]

Во-первых быстро, во-вторых правильно, если цвет не системный или перед этим использован совет [1], т.е. Color := ColorToRGB(Color). Справку я читал. В-третьих, про дефисы я не забываю :))

app (2005-12-17 22:21:00) [4]
Fenik © (17.12.05 21:25) [3]
Во первых сложно, а во вторых неправильно. См. справка что такое TColor

Fenik (2005-12-17 21:25:00) [5]
R := Lo(Color); {красный}
G := Lo(Color shr 8); {зелёный}
B := Lo((Color shr 8) shr 8); {синий}

TStas (2005-12-17 16:52:00) [6]
Спасибо, сейчас попробую

begin...end (2005-12-17 16:50:00) [7]
Функция ColorToRGB (модуль Graphics).

Наверх

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