http://forum.foxclub.ru/read.php?29,166766,166781#msg-166781


Можно руками функию написать. Можно пользовать RGBComp из Foxtools.fll
r=0
g=0
b=0
GRBComp(GetColor(),@r,@g,@b)

==========================

RGB() - это простейшая функция вида

RGB(R,G,B) = R*(256^0) + G*(256^1) + B*(256^2)

R - первый параметр (Red - Красный цвет)
G - второй параметр (Green - Зеленый цвет)
B - третий параметр (Blue - Синий цвет)

Т.е. по сути - это 3-х значное число по основанию 256

Соответственно, написать функцию обратной конвертации из 10-ричной системы в
систему по основанию 256 не так уж и сложно.



R = MOD(INT(RGB(...)/(256^0)),256)
G = MOD(INT(RGB(...)/(256^1)),256)
B = MOD(INT(RGB(...)/(256^2)),256)