forum.boolean.name - Работа с цветом

forum.boolean.name (http://forum.boolean.name/index.php)

- Полезные функции (http://forum.boolean.name/forumdisplay.php?f=17)

- - Работа с цветом (http://forum.boolean.name/showthread.php?t=1549)

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

Код:

 

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

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

А зачем ето?

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

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

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

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

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

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