delphi RGB与TColor的转换

Posted 2022-07-04 blogpro

tags:

篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了delphi RGB与TColor的转换相关的知识，希望对你有一定的参考价值。

1.RGB转换为Tcolor
function RGBToColor(R,G,B: byte): Tcolor;
begin
  Result := B Shl 16 or G  shl 8 or R;
end;
 
2.Tcolor转换为RGB
 
proceudre Tform1.Button1Clink(Sender: Tobject);
var
  Color: TColor;
  R, G, B: integer;
begin
  Color := ClBlack;
  R := Color and $FF;
  G := (Color and $FF00) shr 8;
  B := (Color and $FF0000) shr 16;
end;

以上是关于delphi RGB与TColor的转换的主要内容，如果未能解决你的问题，请参考以下文章