颜色取反，比如黑色取反是白色，在delphi中应该怎么实现

Question

颜色取反，比如黑色取反是白色， 在delphi中应该怎么实现

Answer 1

function NotColor(Color: TColor): TColor;
begin
  if Color < 0 then
    Color := GetSysColor(Color and $000000FF);
  Result := not Color;
end;

Answer 2

修改一下：function NotColor(Color: TColor): TColor;
begin
  if Color < 0 then
    Color := GetSysColor(Color and $000000FF);
  Result := (not Color) and $ffffff;
end;

Answer 3

Color := ColorToRGB(Color) xor $FFFFFF;

Answer 4

to zswang(伴水清清)(专家门诊清洁工) 
你的方法同我上面代码的效果应该是一样的，不过你的表达更简洁，不愧是4星级的。