100分在线等待，急，有关颜色的处理的问题

Question

有关颜色的问题，就是我得到一种颜色，用什么涵数可以得到它的反色啊！例如黑色的反色是白色等，就是相反的颜色，如果没有这样的涵数，那怎么写涵数啊  返回反色的Int值 fun(aColor : integer),非常谢谢

Answer 1

RGB(X,Y,Z)  反色  RGB(255-X,255-Y,255-Z)

Answer 2

我有的是一串Integer数值，如1772288,我怎么得到x,y,z呢？

Answer 3

function InvertColor(AColor: TColor): TColor;
var
  R, G, B: Integer;
begin
  R := GetRValue(AColor);
  G := GetGValue(AColor);
  B := GetBValue(AColor);
  Result := RGB(255 - R, 255 - G, 255 - B);
end;使用
AColor := InvertColor(TColor(1772288));
或者
AColor := InvertColor(1772288);

Answer 4

z=Integer%256; or z=Integer&0x0f;
y=Integer%(256*256); or y=Integer&0x0f0;y=y>>8;
x=Integer%(256*256*256);or x=Integer&0x0f00;x=x>>16;

Answer 5

反色=Integer^0x0fff;//呵呵,异或一下