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

DelphiColor to PascalColor   Найти похожие ветки 

← →
VolanD2002   (2004-02-13 16:11) [0]

Най пиплы, проблема такая: у меня есть картинка в Image1(16 цветов), c помощью цикла я хочу записать цвет каждого пикселя, но только в Pascal-формате(0-черный, 1-синий ...).

---

← →
Семен Сорокин ©   (2004-02-13 16:13) [1]

if Color = clBlack then
Result := 0
else if Color = clBlue {clNavy} then
Result := 1
...

---

← →
Radionov Alexey ©   (2004-02-13 16:19) [2]

ИМХО, если соответствующую 4-битную палитру использовать все само будет в "Pascal-формате" :)

---

← →
clickmaker ©   (2004-02-13 16:34) [3]

ColorToRGB

---

← →
Семен Сорокин ©   (2004-02-13 16:39) [4]

clickmaker © (13.02.04 16:34) [3]
ColorToRGB
немного не в тему, автору 16 цветов нужно.

---

← →
VolanD2002   (2004-02-14 06:30) [5]

Нет, в принципе я знаю как, но вопрос в том, какие цвета соответствуют Делфинским. Например:0-clBlack,4-cl-Red...(так до 16).

---

← →
Gero ©   (2004-02-14 09:05) [6]

0-clBlack
1-clNavy
2-clGreen
3-clTeal
4-clMaroon
5-clPurple
6-clOlive
7-clSilver
8-clGray
9-clBlue
10-clLime
11-clAqua
12-clRed
13-clFuchsia
14-clYellow
15-clWhite

---

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

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



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