Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Звук, графика и видео > Как установить цвет?

Автор: Ofer 12.10.2007, 23:10

Подскажите, пожалуйста, как в OpenGL установить цвет заливки прямоугольника, имея значение цвета, хранящееся в переменной типа TColor?

Автор: Ofer 13.10.2007, 18:11

Сам нашел выход из положения. Можно преобразовать из TColor в цвет OpenGL сделав процедуру

Код


procedure ColorToGL (Color: TColor; var R, G, В: GLFloat); 
begin
  R := (Color mod $100) / 255;
  G := ((Color div $100) mod $100) / 255;
  В := (Color div $10000) / 255;
end;

А затем использовать стандартные стредства, типа

Код


glColor3f(R,G,B);

Есть еще другой вариант реализации преобразования цвета

Код


procedure ColorToGL (Color: TColor; var R, G, В: GLFloat); 
begin
  R :=(Color and$FF)/255;
  G := ((Color and $FFOO) shr 8) / 255,
  В := ((Color and $FFOOOO) shr 16) / 255
end;