请教大家关于自定义快捷键和图形按钮的实现

xcmdos

以下是贱人工具箱的界面，我想请教下大家
1）关于自定义快捷键的实现
2）还有就是这种图形按钮的实现了。


请求各位赐教。言谈一二

vectra

图形按钮用DCL可能难实现
自定义快捷键可能就是用指定的名称动态定义一个函数

前生

他问的应该是像图片似的东西,看高飞大侠的像素提取,好程序.

vectra

前生 发表于 2017-10-7 19:43
他问的应该是像图片似的东西,看高飞大侠的像素提取,好程序.

不错！ 可惜有点慢

前生

试了下,主要是BMP文件像素太多了.
用ICO快很多.
考虑将猫老师的程序改一下,比如需要显示的是黑色的,将其他的全部过滤掉/

xcmdos

前生 发表于 2017-10-7 23:48
试了下,主要是BMP文件像素太多了.
用ICO快很多.
考虑将猫老师的程序改一下,比如需要显示的是黑色的,将其 ...

有没有相应的代码可以参照学习的呢

逍遥天下

帮忙顶出面板、快捷键源码

332319857

顶快捷键源码

curugi

我也需要这样的源码

1291500406

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))