| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
RGB
demon © (2008-11-29 23:28:00)value1 := RGB(0, 125, 200);
а как из value1 получить значения R, G и B ?
Германн (2008-12-01 02:43:00) [1]
> korneley © (01.12.08 01:52) [9]
>
>
> > Anatoly Podgoretsky © (30.11.08 23:51) [8]
> > > demon (30.11.2008 22:43:07) [7]Ужас тихий.
>
> Да ладно, добавить немного and - ов (r := Color and $000000FF)
> и можно кушать :) Но [1,2] никто не отменял.
>
И будет "Каша из топора". :)
korneley (2008-12-01 01:52:00) [2]
> Anatoly Podgoretsky © (30.11.08 23:51) [8]
> > demon (30.11.2008 22:43:07) [7]Ужас тихий.
Да ладно, добавить немногоand- ов (r := Color and $000000FF) и можно кушать :) Но [1,2] никто не отменял.
Anatoly Podgoretsky (2008-11-30 23:51:00) [3]> demon (30.11.2008 22:43:07) [7]
Ужас тихий.
demon (2008-11-30 22:43:00) [4]Отвечаю сам на свой вопрос:
Color := Edit1.Color;
r := Color;
g := Color shr 8;
b := Color shr 16;
palva (2008-11-30 09:22:00) [5]
> Johnmen © (30.11.08 01:12) [5]
Все равно не понял. Да ладно, не важно.
Johnmen (2008-11-30 01:12:00) [6]
> palva © (30.11.08 00:30) [4]
> Разве вопрос был про CMYK ?
Вопрос "Сколько лет моему ежику?" ты думаешь про ежа?
palva (2008-11-30 00:30:00) [7]
> GetCValue, GetMValue, GetYValue, GetKValue
Разве вопрос был про CMYK ?
Германн (2008-11-30 00:28:00) [8]ColorToRGB
Johnmen (2008-11-29 23:58:00) [9]да, и TColor наизусть.
Johnmen (2008-11-29 23:54:00) [10]GetCValue, GetMValue, GetYValue, GetKValue
Читать хелп до посинения и не заниматься чушью...
| |
