Работа с цветом

[MiXaeL]

 
Function RGBToInt(r, g, b)
    Return ((r And $ff) Shl 16) Or ((g And $ff) Shl 8) Or (b And $ff)
End Function
 
Function IntToR(rgbint)
    Return ((rgbint Shr 16) And $ff)
End Function
 
Function IntToG(rgbint)
    Return ((rgbint Shr 8) And $ff)
End Function
 
Function IntToB(rgbint)
    Return (rgbint And $ff)
End Function
 
Function SetColor(rgbint)
    Color ((rgbint Shr 16) And $ff), ((rgbint Shr 8) And $ff), (rgbint And $ff)
End Function
 
Function SetClsColor(rgbint)
    ClsColor ((rgbint Shr 16) And $ff), ((rgbint Shr 8) And $ff), (rgbint And $ff)
End Function

[vadim2]

А зачем ето?

для работы с цветами

[vadim2]

Подробнее пожалуйсто.

[Raiter]

для работы с цветами в блиц3д