RGB

← →
demon © (2008-11-29 23:28) [0]

value1 := RGB(0, 125, 200);
а как из value1 получить значения R, G и B ?

← →
Johnmen © (2008-11-29 23:54) [1]

GetCValue, GetMValue, GetYValue, GetKValue
Читать хелп до посинения и не заниматься чушью...

← →
Johnmen © (2008-11-29 23:58) [2]

да, и TColor наизусть.

← →
Германн © (2008-11-30 00:28) [3]

ColorToRGB

← →
palva © (2008-11-30 00:30) [4]

> GetCValue, GetMValue, GetYValue, GetKValue

Разве вопрос был про CMYK ?

← →
Johnmen © (2008-11-30 01:12) [5]

> palva © (30.11.08 00:30) [4]
> Разве вопрос был про CMYK ?

Вопрос "Сколько лет моему ежику?" ты думаешь про ежа?

← →
palva © (2008-11-30 09:22) [6]

> Johnmen © (30.11.08 01:12) [5]

Все равно не понял. Да ладно, не важно.

← →
demon © (2008-11-30 22:43) [7]

Отвечаю сам на свой вопрос:

Color := Edit1.Color; r := Color; g := Color shr 8; b := Color shr 16;

> demon (30.11.2008 22:43:07) [7]

Ужас тихий.

> Anatoly Podgoretsky © (30.11.08 23:51) [8]
> > demon (30.11.2008 22:43:07) [7]Ужас тихий.

Да ладно, добавить немного and - ов (r := Color and $000000FF) и можно кушать :) Но [1,2] никто не отменял.

> 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] никто не отменял.
>

И будет "Каша из топора". :)

RGB Найти похожие ветки