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;
TColor 与 RGB 的转换函数
最新推荐文章于 2022-10-20 14:40:42 发布