Текущий архив: 2002.12.12;
Скачать: CL | DM;

Вниз

Цвет по составляющим r g b   Найти похожие ветки 

← →
HardClubber ©   (2002-12-02 15:54) [0]

Помогите преобразовать цвет из TColor .

Необходимо узнать каждую составляющую r,g и b
Заранее благодарен, если ответ вышлите на мыло

---

← →
Reindeer Moss Eater   (2002-12-02 15:55) [1]

GetRValue и так далее

---

← →
FreeLancer ©   (2002-12-02 15:57) [2]


uses Graphics;
...

function ColorToRGB(TColor):integer;


---

← →
HardClubber ©   (2002-12-02 16:01) [3]

Пасиба!
только вот что то он всё время одно и то же пишет, 120 и всё тут... я наверное глючу..

---

← →
Юрий Федоров ©   (2002-12-02 16:02) [4]

Сначала ColorToRGB, потом GetRValue и так далее

---

← →
FreeLancer ©   (2002-12-02 16:06) [5]


var rcol, gcol, bcol: cardinal;
RGBCol: integer;
...

RGBCol := ColorToRGB(TColor):integer;
rcol := GetRValue(RGBCol);
gcol := GetGValue(RGBCol);
bcol := GetBValue(RGBCol);
....

Что-то типа этого...

---

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

Текущий архив: 2002.12.12;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.012 c