(XD::ODCL:GridSetHeight)设置ODCL GRID控件的高度

Lispboy · 发表于 2013-11-17 00:38:47

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

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

×

;|
设置ODCL GRID控件的高度
参数:
control --- 控件变量名（字符串）
lst --- 表
maxRow --- 有效显示行数
|;
(defun XD::ODCL:GridSetHeight (control lst maxRow / colwids ctrl h height len)
(setq ctrl (eval (read control)))
(setq h (dcl_Control_GetRowHeight ctrl))
(setq len (length lst))
(setq colwids (dcl_Control_GetColumnWidthList ctrl))
(if (> len maxRow)
(progn
(setq height (+ 2 (* h (+ 1 maxRow))))
(setq colwids (reverse (cons (- (last colwids) 0) (cdr
(reverse colwids)
)
)
)
)
(dcl_Control_SetColumnWidthList ctrl colwids)
)
(progn
(setq height (+ 2 (* h (+ 1 len))))
)
)
(dcl_Control_SetHeight ctrl height)
t
)

;| 
设置ODCL GRID控件的高度 
参数: 
   control --- 控件变量名（字符串） 
   lst     --- 表 
   maxRow  --- 有效显示行数 
|; 
(defun XD::ODCL:GridSetHeight (control lst maxRow / colwids ctrl h height len) 
  (setq ctrl (eval (read control))) 
  (setq h (dcl_Control_GetRowHeight ctrl)) 
  (setq len (length lst)) 
  (setq colwids (dcl_Control_GetColumnWidthList ctrl)) 
  (if (> len maxRow) 
    (progn 
      (setq height (+ 2 (* h (+ 1 maxRow)))) 
      (setq colwids (reverse (cons (- (last colwids) 0) (cdr 
                                                             (reverse colwids) 
                                                        ) 
                             ) 
                    ) 
      ) 
      (dcl_Control_SetColumnWidthList ctrl colwids) 
    ) 
    (progn 
      (setq height (+ 2 (* h (+ 1 len)))) 
    ) 
  ) 
  (dcl_Control_SetHeight ctrl height) 
  t 
)

gdslqs · 发表于 2015-4-22 10:46:11

这么好的东西居然没人识货，我淘到了:lol

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

[OPENDCL] (XD::ODCL:GridSetHeight)设置ODCL GRID控件的高度

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

相关帖子