请教大家关于自定义快捷键和图形按钮的实现
以下是贱人工具箱的界面,我想请教下大家1)关于自定义快捷键的实现
2)还有就是这种图形按钮的实现了。
请求各位赐教。言谈一二
图形按钮用DCL可能难实现
自定义快捷键可能就是用指定的名称动态定义一个函数 他问的应该是像图片似的东西,看高飞大侠的像素提取,好程序. 前生 发表于 2017-10-7 19:43
他问的应该是像图片似的东西,看高飞大侠的像素提取,好程序.
不错! 可惜有点慢 试了下,主要是BMP文件像素太多了.
用ICO快很多.
考虑将猫老师的程序改一下,比如需要显示的是黑色的,将其他的全部过滤掉/ 前生 发表于 2017-10-7 23:48
试了下,主要是BMP文件像素太多了.
用ICO快很多.
考虑将猫老师的程序改一下,比如需要显示的是黑色的,将其 ...
有没有相应的代码可以参照学习的呢 帮忙顶出面板、快捷键源码 顶快捷键源码 我也需要这样的源码 本帖最后由 1291500406 于 2019-3-20 20:01 编辑
dcl控件
image_bb:image_button{width=3.6;height=1.8;fixed_width=true;fixed_height=true;aspect_ratio=1;color=-15;}
:image_bb{key=\"bbimage\";}
动作
(bb-image "bbimage")
(ACTION_TILE "bbimage" "(done_dialog 2)")(setq DD (START_DIALOG))(cond((= 2 DD) (bb)))
图像
(defun bb-image (KEY)
(START_IMAGE KEY)
(FILL_IMAGE 4 4 11 10 255)
(VECTOR_IMAGE 9 5 13 9 1)
(VECTOR_IMAGE 9 9 13 5 1)
(VECTOR_IMAGE 0 20 25 20 250)
(VECTOR_IMAGE 20 0 20 25 250)
(MAPCAR
'VECTOR_IMAGE
(LIST 3 3 3 15 13 14 15 16 17 17 12 12 13 16 14 16 16)
(LIST 3 3 14 3 8 9 10 11 12 16 7 7 15 14 15 18 14)
(LIST 15 3 15 15 13 14 15 16 17 17 12 18 14 17 16 17 18)
(LIST 3 14 14 14 15 15 16 17 13 17 16 13 15 13 18 18 17)
(LIST 9 9 8 8 2 2 2 2 2 2 250 250 250 250 250 250 250)
)(END_IMAGE))
页:
[1]