{ **** UBPFD *********** by delphibase.endimus.com **** >> Перевод цвета из TColor в OpenGL Зависимости: нет Автор: Gua, fbsdd@ukr.net, ICQ:141585495, Simferopol Copyright: Дата: 03 мая 2002 г. ***************************************************** } procedureColorToGL(c: TColor; var
R, G, B: GLFloat); begin
R := (c mod
$100) / 255; G := ((c div
$100) mod
$100) / 255; B := (c div
$10000) / 255; end
;