TColor 与 RGB 的转换函数

标签：

function RGB2TColor(const R, G, B: Byte): Integer;
begin
  // convert hexa-decimal values to RGB
  Result := R + G shl 8 + B shl 16;
end;

procedure TColor2RGB(const Color: TColor; var R, G, B: Byte);
begin
  R := Color and $FF;
  G := (Color shr 8) and $FF;
  B := (Color shr 16) and $FF;
end;
//特地开计算器算了下,尼玛FF=255;

TColor 与 RGB 的转换函数

标签：

原文地址：http://www.cnblogs.com/FanYs/p/4337841.html