rgba取值方式?
#000F1EC8Delphi 是这样定义的~ functuin GetRValue(color : integer) : byte; begin result := byte(color shr 16)
; end; function GetGValue(color : integer) : byte; begin result := byte(color shr 8)
; end; function GetBValue(color : integer): byte; begin result := byte(color)
; end; function rgb(r,g,b:byte):integer; begin result := (integer(r) shl 16) + (integer(g) shl 8) + integer(b)
; end; 代码:#C81E0F 红色
Copyright © 广州京杭网络科技有限公司 2005-2025 版权所有 粤ICP备16019765号
广州京杭网络科技有限公司 版权所有