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 紅色