【函数】ODCL的一个获得当前所有非模式对话框的代码

XDSoft

2. 
   
3. (defun $XDOB_DCL_GetCurActiveForm (/ _forms _formsl)
   
4.   (setq _forms (vl-remove-if-not 'dcl_form_isactive (apply
   
5.                                                       'append
   
6.                                                       (mapcar
   
7.                                                         'dcl_project_getforms
   
8.                                                         (dcl_getprojects)
   
9.                                                       )
   
10.                                                     )
    
11.                )
    
12.   )
    
13.   (foreach n _forms
    
14.      (if (member "VarName" (dcl_Control_GetProperties n))
    
15.         (setq _formsl (cons (list (strcase (dcl_Control_GetProperty n "VarName")) n) _formsl))
    
16.      )
    
17.   )
    
18.   (reverse _formsl)
    
19. )
    
20. (defun $XDOB_DCL_GetFloatingForm ( / _form _form1 n na)
    
21.   (setq _form ($XDOB_DCL_GetCurActiveForm))
    
22.   (foreach n _form
    
23.     (setq na (cadr n))
    
24.     (if (dcl_Form_IsFloating na)
    
25.       (setq _form1 (cons n _form1))
    
26.     )
    
27.   )
    
28.   (reverse _form1)
    
29. )
    

<br /> (defun $XDOB_DCL_GetCurActiveForm (/ _forms _formsl)<br />   (setq _forms (vl-remove-if-not 'dcl_form_isactive (apply<br />                                                       'append<br />                                                       (mapcar<br />                                                         'dcl_project_getforms<br />                                                         (dcl_getprojects)<br />                                                       )<br />                                                     )<br />                )<br />   )<br />   (foreach n _forms<br />      (if (member "VarName" (dcl_Control_GetProperties n))<br />         (setq _formsl (cons (list (strcase (dcl_Control_GetProperty n "VarName")) n) _formsl))<br />      )<br />   )<br />   (reverse _formsl)<br /> )<br /> (defun $XDOB_DCL_GetFloatingForm ( / _form _form1 n na)<br />   (setq _form ($XDOB_DCL_GetCurActiveForm))<br />   (foreach n _form<br />     (setq na (cadr n))<br />     (if (dcl_Form_IsFloating na)<br />       (setq _form1 (cons n _form1))<br />     )<br />   )<br />   (reverse _form1)<br /> )<br />

炫翔

{:soso_e179:}支持，好代码，建议弄些入门的资料或代码.
为了带动更多的爱好OPENDCL的朋友.

zyhandw

非常同意二楼版主的观点:lol