取色器(小改一点)

感觉之前那个有点反人类,可能你们用的不多所以不觉得 :>)  所以说是需求让我们相遇了

和之前大体一样,新增取色后按R复制RGBA格式的和按F复制16进制格式的

CoordMode, Pixel, Screen
CoordMode, Mouse, Screen
MouseGetPos, x, y
PixelGetColor, color, x, y, RGB
MsgBox % "x: " x   "   y: "y  "`t RGB:" SubStr(color,3) "`n 按R复制rgba `t 按F复制16进制"
r::
Clipboard := "rgba("ToBase("0x" . SubStr( color, 3,2),10)","ToBase("0x" . SubStr(color, 5,2),10)","ToBase("0x" . SubStr(color, 7,2),10)",1)"
ExitApp
f::
Clipboard := "#"SubStr(color,3)
ExitApp
/**
* @description: 16转10
* @param {String,Number} ToBase(0xFFFFFF,10)
* @return {Number}
*/
ToBase(n,b){
    return (n < b ? "" : ToBase(n//b,b)) . ((d:=Mod(n,b)) < 10 ? d : Chr(d+55))  
}

人已赞赏
其他

如何批量分类整理照片

2021-4-21 14:19:31

其他

用AutoHotkey定义全局无窗口快捷键的源代码

2021-4-29 10:07:53

2 条回复 A文章作者 M管理员
  1. 河许人

    加油

个人中心
购物车
优惠劵
今日签到
有新私信 私信列表
搜索