4-байтовое значение цвета

← →
yevgeniy © (2004-05-22 13:52) [0]

Как известно цвет кодируется 4 байтами. Задача состоит в том что бы разложить значение цвета, "выцепить" каждый байт и вывести его на экран. Задание дал учитель информатики - обьясните что он хоть от меня хочет... ;) и по возможности помогите решить задачу.

← →
Anatoly Podgoretsky © (2004-05-22 13:59) [1]

Как известно это не так, кроме редких случаев.
От тебя требуется привести принцип кодировки цвета 4 байтами иначе у нас нет общей точки для разговора.
Так как же все таки кодируется, просьба указать побитно.
Пока есть только ответ на второй вопрос TLongRec (D6+)

← →
Йа Син (2004-05-22 13:59) [2]

У тебя есть переменная Color типа TColor

Извлекаем байты

var R, G, B: Byte;

R := Lo(Color); {красный}
G := Lo(Color shr 8); {зелёный}
B := Lo((Color shr 8) shr 8); {синий}

Затем можно просто написать, что какого значения, на форме.

← →
Йа Син (2004-05-22 14:02) [3]

>Anatoly Podgoretsky © (22.05.04 13:59) [1]

Да, получается 3 байта.
Только в Делфи кодируется четырьмя.

← →
Anatoly Podgoretsky © (2004-05-22 14:02) [4]

Йа Син (22.05.04 13:59) [2]
Так делать нельзя, TColor это не RGB, кроме того пока нет подверждения, что он говорит про TColor

← →
Йа Син (2004-05-22 14:05) [5]

>yevgeniy © (22.05.04 13:52)
>Задание дал учитель информатики - обьясните что он хоть от меня хочет... ;)

Лучше у него спросить.

← →
Diver (2004-05-22 14:08) [6]

сделай как посоветовал Йа Син, только для TBitmap...
а цвет не обязательно кодируется 4-мя байтами

то ли у меня де жавю, то ли одно из двух http://delphimaster.net/view/4-1085143760/&web=1 ;-)

4-байтовое значение цвета Найти похожие ветки