Проблемы с графикой в Delphi, Индексирование цвета

[zzz(KOT)zzz]

Люди, помогите плизз, скажите как в Delphi:
— если знаешь цвет точки(Tcolor), получить ее индекс(Byte);
— если знаешь индекс точки, получить ее цвет;
Используется стандартная палитра Windows 256 цветов(8 bits).

[mutabor]

Могу лишь подсказать как разбить TColor на R G B цвета, если это тебе поможет. А по какому принципу 256-ти цветная устроена? Если знаешь напиши может подскажу чего.

[zzz(KOT)zzz]

Как разбить на RGB я тоже знаю, просто задача у меня не в этом. Когда bmp файл сохраняешь с 8 bit, то палитра составлена из 256 цветов, и каждый из этих цветов имеет свой индекс. Это самые используемые цвета от черного к белому. Эту палитру можно посмотреть, например в фотошопе (lmage>Mode>Color Table (Изображение>Режим>Палитра)). Можно конечно переписать все индексы из того же фотошопа в табличку и в рукопашную сравнивать по RGB, но больно уж долго это делать, да и машинного времени уйдет больше

[mutabor]

Даже не знаю. Может WinAPI какая ф-я есть? В Delphi я такого не встречал.

Взять например RGB 256*256*256 = 16777216 цветов. Красный имеет индекс 255, зеленый - 65280, синий - 16711680, эти значения и содержит TColor. Какие эти цвета по счету в 256-ти цветной палитре? Если найти закономерность можно самому функцию написать.

[zzz(KOT)zzz]

Все разобрался=) Если кому интересно:
BitMap := TBitMap.Create;
BitMap.LoadFromFile('c:\1.bmp');//Загружаем нужный файл, ну или просто любой файл bmp
BitMap.PixelFormat := pf8bit;//делаем 8-битным(256 цветов)

s := RGB(xx,xx,xx);//нужный нам цвет
i := GetNearestPaletteIndex(BitMap.Palet te,s);//и собственно индекс цвета

[zzz(KOT)zzz]

Теперь надо узнать, как из индекса получить цвет точки...???

[mutabor]

Так одному индексу будет соответствовать около 65000 цветов. Что же тогда функция должна возвращать - массив? А если один из подходящих цветов, то какой - первый, последний?
Если что-то нароешь напиши, интересно.

[zzz(KOT)zzz]

>Так одному индексу будет соответствовать около 65000 цветов.
Почему???

[mutabor]

Вообще-то ты прав, должен быть один аналог.

Я исходил из того что в RGB цветов около 16 млн. поделить на 256 получается 65000 цветов которым соответствует один цвет в 8-битной палитре.