如何控制tcolor类的色差

Question

如题:每个基本的颜色之间的色差如何获取
例如:color:=clblue;那么我要通过现有的color如何获取clgreen?color:=clblue+?????得到绿色

Answer 1

GetRValue()
GetGValue()
GetBValue()
可以吧！

Answer 2

通过Tcolor来获取RGB三原色
procedure Color2RGB(color:Tcolor;Var R,G,B:Byte);
begin
      R := Color and $FF;
      G := (Color and $FF00) shr 8;
      B := (Color and $FF0000) shr 16;
end;通过三原色得到Tcolor
function RGBToColor(R,G,B:Byte): TColor;
begin
  Result:=B Shl 16 Or
          G Shl 8  Or
          R;
end;