liuhe 发表于 2023-2-6 17:07:00

DCL是否可以做系统的打印界面？

最近在研究DCL，一直想做这种类似打印界面 的隐藏DCL

opendcl是可以通过改变界面属性宽度高度实现，但是DCL如何实现一直很困惑。
1.DCL的属性只有(get_attr key attribute) 或者控件属性，但是我没有找到改变控件属性的函数。

2.如果要实现类似的功能是不是只能通过重新加载一个新的dcl文件来完整界面的隐藏和释放？

3.如果dialog 套一个dialog，如何让两个dialog都显示出来？我用飞诗只会显示最外层的dialog。

请有经验的大神 指点一下

vitalgg 发表于 2023-2-13 22:41:36

DCL 一旦定义，其宽高和内部控件布局就不能改了。
可以定义并显示子对话框，但是子对话框是模态的，即显示子对话框时，上级对话框不能进行操作。

wzg356 发表于 2023-2-13 23:17:25

可以做到，可以1个lsp根据参数展示需要的列控件，本质还是重新载入另一个对话框
一个重要难点是：因为两次载入的对话框尺寸不一样，显示位置不同，体验非常差---晃动剧烈的感觉。
done_dialog有一个返回坐标，感觉也难做到前后重叠部分不抖动的感觉

liuhe 发表于 2023-2-14 08:45:13

wzg356 发表于 2023-2-13 23:17
可以做到，可以1个lsp根据参数展示需要的列控件，本质还是重新载入另一个对话框
一个重要难点是：因为两次 ...

多谢啊，只能多研究opendcl了

sachindkini 发表于 2023-2-15 20:36:01

(defun kr:FLM_ExtendedArrows (Ext)
(if (zerop Ext)
    (progn
      (start_image "EXT")
      (mapcar 'vector_image; Color 254
      (list   1   1   2   2   4   1   1   2   2   4   1   1   2   2   4)
      (list4746484543 107 106 108 105 1037776787573)
      (list   1   1   2   2   4   1   1   2   2   4   1   1   2   2   4)
      (list4746484543 107 106 108 105 1037776787573)
      (list 254 254 254 254 254 254 254 254 254 254 254 254 254 254 254)
      );mapcar

IMAGE_EXTEND
: image_button {
    key = "EXT";
    alignment = centered;
    width = 2;
    height = 11;
    fixed_height = true;
    color = dialog_background;
}

sachindkini 发表于 2023-2-15 21:20:12

see demo.................

liuhe 发表于 2023-2-16 08:43:40

sachindkini 发表于 2023-2-15 20:36


看不懂 怎么用啊:'(

sachindkini 发表于 2023-2-16 14:01:40

liuhe 发表于 2023-2-16 08:43
看不懂 怎么用啊

dear sir,


check attched file .... for u r refrence

liuhe 发表于 2023-2-16 15:18:25

sachindkini 发表于 2023-2-16 14:01
dear sir,




thank you
Now I have learned that switching DCL interfaces cannot be realized with one dialog, and two dialog is required to switch DCL interfaces. So I'm going to use opendcl to implement the desired functions。
页: [1]
查看完整版本: DCL是否可以做系统的打印界面？