freepascal.ru

Подскажите как перейти от RGB к ТColor

Код: Выделить всё

cl:=rgb(index1,index2,index3);

не работает.

Заранее благодарен

earendill
А это зависит от того, какого типа у Вас cl, index1,index2,index3, какое значение в трёх последних переменных и что означает дурацкое слово "не работает". На сколько я помню - на форуме нет ни одного телепата, так что изъяснитесь, если Вам не трудно, более человеческим способом.

В можуде Graphics есть функция задания цвета в RGB, вот её объявление:

Код: Выделить всё

function RGBToColor(R, G, B: Byte): TColor;

Странно почему неработает