.子程序 RGB2ARGB, 整数型, , 转换成GDI 的颜色值
.参数 RGB颜色, 整数型
.参数 透明度, 整数型, 可空, 0-255
.局部变量 Color, 字节集
.如果真 (是否为空 (透明度))
透明度 = 255
.如果真结束
Color = 到字节集 (RGB颜色)
RGB颜色 = 位或 (Color [3] + Color [2] × 256 + Color [1] × 65536, 左移 (透明度, 24))
.子程序 RGB2ARGB, 整数型, , 转换成GDI 的颜色值
.参数 RGB颜色, 整数型
.参数 透明度, 整数型, 可空, 0-255
.局部变量 Color, 字节集
.如果真 (是否为空 (透明度))
透明度 = 255
.如果真结束
Color = 到字节集 (RGB颜色)
RGB颜色 = 位或 (Color [3] + Color [2] × 256 + Color [1] × 65536, 左移 (透明度, 24))