Скачать: CL | DM;

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-мя байтами

---

← →
jack128 ©   (2004-05-22 14:18) [7]

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

---

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

Скачать: CL | DM;



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