|
||||||||||
|
||||||||||
|
||||||||||
|
Перевод цвета из TColor в OpenGL
Автор: Gua { **** UBPFD *********** by delphibase.endimus.com **** >> Перевод цвета из TColor в OpenGL Зависимости: нет Автор: Gua, fbsdd@ukr.net, ICQ:141585495, Simferopol Copyright: Дата: 03 мая 2002 г. ***************************************************** } procedure ColorToGL(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; |
  |
![]() |
![]() |