Форум: "Начинающим";
Текущий архив: 2009.01.11;
Скачать: [xml.tar.bz2];

Вниз

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;

---

← →
Anatoly Podgoretsky ©   (2008-11-30 23:51) [8]

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

Ужас тихий.

---

← →
korneley ©   (2008-12-01 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] никто не отменял.

---

← →
Германн ©   (2008-12-01 02:43) [10]

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

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

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2009.01.11;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.006 c