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

liuhe

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

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

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

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

请有经验的大神 指点一下

vitalgg

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

wzg356

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

liuhe

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

多谢啊，只能多研究opendcl了

sachindkini

1. (defun kr:FLM_ExtendedArrows (Ext)
   
2.   (if (zerop Ext)
   
3.     (progn
   
4.       (start_image "EXT")
   
5.       (mapcar 'vector_image; Color 254
   
6.         (list   1   1   2   2   4   1   1   2   2   4   1   1   2   2   4)
   
7.         (list  47  46  48  45  43 107 106 108 105 103  77  76  78  75  73)
   
8.         (list   1   1   2   2   4   1   1   2   2   4   1   1   2   2   4)
   
9.         (list  47  46  48  45  43 107 106 108 105 103  77  76  78  75  73)
   
10.         (list 254 254 254 254 254 254 254 254 254 254 254 254 254 254 254)
    
11.       );mapcar

(defun kr:FLM_ExtendedArrows (Ext)<br />   (if (zerop Ext)<br />     (progn<br />       (start_image "EXT")<br />       (mapcar 'vector_image; Color 254<br />         (list   1   1   2   2   4   1   1   2   2   4   1   1   2   2   4)<br />         (list  47  46  48  45  43 107 106 108 105 103  77  76  78  75  73)<br />         (list   1   1   2   2   4   1   1   2   2   4   1   1   2   2   4)<br />         (list  47  46  48  45  43 107 106 108 105 103  77  76  78  75  73)<br />         (list 254 254 254 254 254 254 254 254 254 254 254 254 254 254 254)<br />       );mapcar

1. IMAGE_EXTEND
   
2.   : image_button {
   
3.     key = "EXT";
   
4.     alignment = centered;
   
5.     width = 2;
   
6.     height = 11;
   
7.     fixed_height = true;
   
8.     color = dialog_background;
   
9.   }

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

sachindkini

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

liuhe

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

看不懂 怎么用啊

sachindkini

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

dear sir,


check attched file .... for u r refrence

liuhe

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。