![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Цвет по составляющим r g b [D6, WinXP]
HardClubber © (2002-12-02 15:54:00)Помогите преобразовать цвет из TColor .
Необходимо узнать каждую составляющую r,g и b
Заранее благодарен, если ответ вышлите на мыло
FreeLancer (2002-12-02 16:06:00) [1]
var rcol, gcol, bcol: cardinal;
RGBCol: integer;
...
RGBCol := ColorToRGB(TColor):integer;
rcol := GetRValue(RGBCol);
gcol := GetGValue(RGBCol);
bcol := GetBValue(RGBCol);
....
Что-то типа этого...
Юрий Федоров (2002-12-02 16:02:00) [2]Сначала ColorToRGB, потом GetRValue и так далее
HardClubber (2002-12-02 16:01:00) [3]Пасиба!
только вот что то он всё время одно и то же пишет, 120 и всё тут... я наверное глючу..
FreeLancer (2002-12-02 15:57:00) [4]
uses Graphics;
...
function ColorToRGB(TColor):integer;
Reindeer Moss Eater (2002-12-02 15:55:00) [5]GetRValue и так далее