function getRed(const Color:TColor);byte; begin Result:=(ColorToRGB(color) and $FF) end; function getGreen(const Color:TColor);byte; begin Result:=Trunc((ColorToRGB(color) and $FF00)/$100) end; function getBlue(const Color:TColor);byte; begin Result:=Trunc((ColorToRGB(color) and $FF0000)/$10000) end;
begin
Result:=(ColorToRGB(color) and $FF)
end;
function getGreen(const Color:TColor);byte;
begin
Result:=Trunc((ColorToRGB(color) and $FF00)/$100)
end;
function getBlue(const Color:TColor);byte;
begin
Result:=Trunc((ColorToRGB(color) and $FF0000)/$10000)
end;
好象不大可能做道这点,而楼主的意思是不仅能区分红色,还能区别大红还是暗红?
难。难。难。
你怎么实验的 ?弄个for的3个嵌套循环,一个一个试?每个值在人眼看出来都是红色的吗?如果不是。公式就不能成立。
当然不是试出来的,是数理统计的规律,但我只知道红色的,呵呵!