请教 Lisp 怎样改opendcl 可停靠窗体的宽度

pmq · 发表于 2014-2-12 20:14:35

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

请教 Lisp 怎样改opendcl 可停靠窗体的宽度

(Dcl_Control_Setwidth Sur_sur 40)
好像只改变窗体内的控件宽度

st788796 · 发表于 2014-2-12 20:17:18

试试关闭->修改 form width ->show

pmq · 发表于 2014-2-13 14:37:01

  (Dcl_Form_close Sur_sur)
  (Dcl_Control_Setwidth Sur_sur 40)    ;;width＝40
  (dcl_Form_Show Sur_Sur )    ;;显示 Form1对话框
重新打开还是原来的宽度

现在还有一个问题，移动框架的时候，框架内的控件怎样一起移动，
(Dcl_Control_Setleft Sur_Sur_Frame1 27)    ;;Frame1 左＝27
是不是要每个控件都要写 SetPos 或 Setleft

st788796 · 发表于 2014-2-13 14:46:06

本帖最后由 st788796 于 2014-2-13 14:47 编辑

pmq 发表于 2014-2-13 14:37
(Dcl_Form_close Sur_sur)
(Dcl_Control_Setwidth Sur_sur 40) ;;width＝40
(dcl_Form_Show S ...

测试中发现，停靠的控件(ControlBar Palette)在停靠后修改 Form 宽度，有时候正确，有时候不对，CAD主窗口没有变化，将控件拖出再停靠才正确，也有时候Close后停靠区域会留下空白，但是在界面中点关闭就不会留下空白，不稳定

Form 中的控件位置如果改动都要重新 SetPos

pmq · 发表于 2014-2-14 11:57:07

是，拖出窗体显示确，停靠后又是原来的宽度了。
用OpenDCL写了一个CAD停靠窗口，下载地址：
http://pmq.ys168.com/

登录/注册后可看大图

st788796 · 发表于 2014-2-14 12:51:32

放回去是初始宽度，可以在Initialize事件中设置

st788796 · 发表于 2014-2-14 14:12:15

pmq 发表于 2014-2-14 11:57
是，拖出窗体显示确，停靠后又是原来的宽度了。
用OpenDCL写了一个CAD停靠窗口，下载地址：
http://pmq. ...

都固定了不便于增减

xyz002 · 发表于 2016-3-31 16:36:56

我也遇到这个问题了

账号		自动登录	找回密码
密码			立即注册

[求助] 请教 Lisp 怎样改opendcl 可停靠窗体的宽度

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。