RGB颜色转ARGB颜色 - 精易论坛

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备注
__启动窗口_创建完毕

调试输出 (rgba16 (“#333”, 0))

子程序名	返回值类型	公开	备注
rgba	整数型
参数名	类型	参考	可空	数组	备注
红
绿
蓝
透明度

变量名	类型	静态	数组	备注
cr	字节集

cr ＝取空白字节集 (4)
cr [3] ＝红
cr [2] ＝绿
cr [1] ＝蓝
cr [4] ＝透明度
返回 (取字节集数据 (cr, #整数型, ))

子程序名	返回值类型	公开	备注
rgba10	整数型
参数名	类型	参考	可空	数组	备注
颜色值	整数型
透明度	整数型

变量名	类型	静态	数组	备注
cr	字节集
tmp	整数型

cr ＝到字节集 (颜色值)
tmp ＝ cr [1]
cr [1] ＝ cr [3]
cr [3] ＝ tmp
cr [4] ＝透明度
返回 (取字节集数据 (cr, #整数型, ))

子程序名	返回值类型	公开	备注
rgba16	整数型		将十六进制颜色转换到RGBA颜色，支持3位缩写颜色，如#333
参数名	类型	参考	可空	数组	备注
颜色值	文本型				#号会自动过滤
透明度	整数型

变量名	类型	静态	数组	备注
十六进制颜色	文本型
文本长度	整数型
i	整数型
文本	文本型
rgb	整数型
cr	字节集
tmp	整数型

十六进制颜色＝颜色值
十六进制颜色＝子文本替换 (十六进制颜色, “#”, “”, , , 真)
十六进制颜色＝删全部空 (十六进制颜色)
文本长度＝取文本长度 (十六进制颜色)

如果真 (文本长度＝ 3)

十六进制颜色＝取重复文本 (2, 取文本中间 (十六进制颜色, 1, 1)) ＋取重复文本 (2, 取文本中间 (十六进制颜色, 2, 1)) ＋取重复文本 (2, 取文本中间 (十六进制颜色, 3, 1))

文本长度＝取文本长度 (十六进制颜色)

' 过滤掉多余的，只计算前面六位16进制颜色

计次循环首 (6, i)

文本＝到小写 (取文本中间 (十六进制颜色, i, 1))

判断 (文本＝ “a”)

文本＝ “10”

判断 (文本＝ “b”)

文本＝ “11”

判断 (文本＝ “c”)

文本＝ “12”

判断 (文本＝ “d”)

文本＝ “13”

判断 (文本＝ “e”)

文本＝ “14”

判断 (文本＝ “f”)

文本＝ “15”

判断 (i ＝ 1)

rgb ＝到整数 (文本)

rgb ＝ rgb × 16 ＋到整数 (文本)

' 公式：333333

' rgb=3

' 3*16+3=51

' 51*16+3=xxx

' .....

计次循环尾 ()
cr ＝到字节集 (rgb)
tmp ＝ cr [1]
cr [1] ＝ cr [3]
cr [3] ＝ tmp
cr [4] ＝透明度
返回 (取字节集数据 (cr, #整数型, ))

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br />
.支持库 spec<br />
<br />
.程序集 窗口程序集_启动窗口<br />
<br />
.子程序 __启动窗口_创建完毕<br />
<br />
调试输出 (rgba16 (“#333”, 0))<br />
<br />
.子程序 rgba, 整数型<br />
.参数 红<br />
.参数 绿<br />
.参数 蓝<br />
.参数 透明度<br />
.局部变量 cr, 字节集<br />
<br />
cr ＝ 取空白字节集 (4)<br />
cr [3] ＝ 红<br />
cr [2] ＝ 绿<br />
cr [1] ＝ 蓝<br />
cr [4] ＝ 透明度<br />
返回 (取字节集数据 (cr, #整数型, ))<br />
<br />
.子程序 rgba10, 整数型<br />
.参数 颜色值, 整数型<br />
.参数 透明度, 整数型<br />
.局部变量 cr, 字节集<br />
.局部变量 tmp, 整数型<br />
<br />
cr ＝ 到字节集 (颜色值)<br />
tmp ＝ cr [1]<br />
cr [1] ＝ cr [3]<br />
cr [3] ＝ tmp<br />
cr [4] ＝ 透明度<br />
返回 (取字节集数据 (cr, #整数型, ))<br />
<br />
.子程序 rgba16, 整数型, , 将十六进制颜色转换到RGBA颜色，支持3位缩写颜色，如#333<br />
.参数 颜色值, 文本型, , #号会自动过滤<br />
.参数 透明度, 整数型<br />
.局部变量 十六进制颜色, 文本型<br />
.局部变量 文本长度, 整数型<br />
.局部变量 i, 整数型<br />
.局部变量 文本, 文本型<br />
.局部变量 rgb, 整数型<br />
.局部变量 cr, 字节集<br />
.局部变量 tmp, 整数型<br />
<br />
十六进制颜色 ＝ 颜色值<br />
<br />
十六进制颜色 ＝ 子文本替换 (十六进制颜色, “#”, “”, , , 真)<br />
十六进制颜色 ＝ 删全部空 (十六进制颜色)<br />
<br />
文本长度 ＝ 取文本长度 (十六进制颜色)<br />
.如果真 (文本长度 ＝ 3)<br />
    十六进制颜色 ＝ 取重复文本 (2, 取文本中间 (十六进制颜色, 1, 1)) ＋ 取重复文本 (2, 取文本中间 (十六进制颜色, 2, 1)) ＋ 取重复文本 (2, 取文本中间 (十六进制颜色, 3, 1))<br />
    文本长度 ＝ 取文本长度 (十六进制颜色)<br />
.如果真结束<br />
<br />
<br />
' 过滤掉多余的，只计算前面六位16进制颜色<br />
.计次循环首 (6, i)<br />
<br />
    文本 ＝ 到小写 (取文本中间 (十六进制颜色, i, 1))<br />
    .判断开始 (文本 ＝ “a”)<br />
        文本 ＝ “10”<br />
    .判断 (文本 ＝ “b”)<br />
        文本 ＝ “11”<br />
    .判断 (文本 ＝ “c”)<br />
        文本 ＝ “12”<br />
    .判断 (文本 ＝ “d”)<br />
        文本 ＝ “13”<br />
    .判断 (文本 ＝ “e”)<br />
        文本 ＝ “14”<br />
    .判断 (文本 ＝ “f”)<br />
        文本 ＝ “15”<br />
    .默认<br />
<br />
    .判断结束<br />
<br />
    .判断开始 (i ＝ 1)<br />
        rgb ＝ 到整数 (文本)<br />
    .默认<br />
        rgb ＝ rgb × 16 ＋ 到整数 (文本)<br />
    .判断结束<br />
<br />
<br />
    ' 公式：333333<br />
    ' rgb=3<br />
    ' 3*16+3=51<br />
    ' 51*16+3=xxx<br />
    ' .....<br />
<br />
    .<br />
.计次循环尾 ()<br />
<br />
cr ＝ 到字节集 (rgb)<br />
<br />
tmp ＝ cr [1]<br />
cr [1] ＝ cr [3]<br />
cr [3] ＝ tmp<br />
cr [4] ＝ 透明度<br />
返回 (取字节集数据 (cr, #整数型, ))