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).

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

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