Grid接收方向和回车键的完美解决

yxpxa

感谢 Gdlprfcu 和 XDSoft  的帮助!

表格控件 Grid 对方向和回车键的控制终于完美解决
用两个通用函数就行了，欢迎大家一起来找茬并完善。

[pcode=lisp,true]


;;******************************************************************
;; 通用函数1: Grid_OnselChanged
;; 功能: 获取当前单元格的样式、屏幕位置设置 textbox 的跟随
;; 参数:
;;   <GrName> 控件 Grid 表格对象名称
;;   <R> 表格 GrName 的当前行
;;   <C> 表格 GrName 的当前列
;;   <TxtName> 控件 TextBox 对象名称
;; 返回: 单元格符合 GrTxtstyle 的样式要求时返回 t 否则返回 nil
;; 示例:
;; (Grid_OnselChanged test_Form1_Grid1 Row Column test_Form1_TextBox1)
;; BUG: 当 grid 列宽发生改变，textbox 的位置无法同步，原因是 openDCL 未提供列宽改变事件
(defun Grid_OnselChanged(GrName R C TxtName / tem RangePosit TextPosit textPosX textPosY)
(setq *Close-Main-Windows* t)
(setq RangeStyle (nth C (dcl_Control_GetColumnStyleList GrName)))
(setq tem (assoc RangeStyle GrTxtstyle))
(if tem (progn
   (dcl_Control_SetVisible TxtName t)
   ;;输入样式的同步
   (dcl_Control_SetFilterStyle TxtName (cadr tem))
   ;;单元格 Range 位置和大小与 textbox 同步
   (setq RangePosit (dcl_Control_GetPos GrName)
         TextPosit  (dcl_Control_GetPos TxtName)
         RangeWidth (dcl_Grid_GetColumnWidth GrName C)
         textPosX (+ (car RangePosit) (Colum-list-sum GrName C))
         textPosY (+ (cadr RangePosit) (* (+ R 1) 24)))
   (dcl_Control_SetPos TxtName (+ textPosX 3) (- textPosY 3) RangeWidth 24)
   ;;单元格内容与 textbox 同步
   (dcl_Control_SetText TxtName (dcl_Grid_GetCellText GrName R C))
   (dcl_Control_SetFocus TxtName)
))
)
;;end
;;******************************************************************


;;******************************************************************
;; 通用函数2: text-control-key
;; 功能: 根据按下的方向键操作文本框和表格
;; 参数:
;;   <GrName> 控件 Grid 表格对象名称
;;   <TxtName> 控件 TextBox 对象名称
;;   <code> TextBox 接收到的按键代码
;; 返回: 无
;; 样例: (Text-Control-Key test_Form1_Grid1 test_Form1_TextBox1 Flags)
(defun Text-Control-Key(GrName TxtName code / Cmax Rmax RCrange ss tem nR nC)
  (setq Cmax (dcl_Grid_GetColumnCount GrName)
        Rmax (dcl_Grid_GetRowCount GrName)
        RCrange (dcl_Grid_GetCurCell GrName) ;;当前单元格位置
        ss (dcl_Control_GetText TxtName))
  (dcl_Grid_SetCellText GrName (car RCrange) (cadr RCrange) ss)
  (if (setq tem (assoc code KeyCode))
  (progn
     ;;以下根据方向键计算单元格新的位置
      (setq nR (+ (car RCrange)  (nth 2 tem))
            nC (+ (cadr RCrange) (nth 3 tem)))
      ;;当单元格超过表格范围时，单元格指针停止移动
      (if (>= nR (- Rmax 1))(setq nR (- Rmax 1)))
      (if (< nR 0)(setq nR 0))
      (if (>= nC Cmax)(setq nC Cmax))
      (if (< nC 1)(setq nC 1))
      ;;当textbox 内容变化时更新单元格 Range
      (dcl_Grid_SetCurCell GrName nR nC)
      (Grid_OnselChanged GrName nR nC TxtName)
  ))
)
;;end
;;******************************************************************

;;按下方向键的回调事件，需自行修改控件名
(defun c:test_Form1_TextBox1_OnKeyDown (Character RepeatCount Flags /)
  (Text-Control-Key test_Form1_Grid1 test_Form1_TextBox1 Flags) ;;通用函数2
)

;;按下回车键的回调事件，需自行修改控件名
(defun c:test_Form1_TextBox1_OnReturnPressed (/ fx)
(setq fx (dcl_ComboBox_GetCurSel test_Form1_ComboBox1))
(text-control-key test_Form1_Grid1 test_Form1_TextBox1 (car (nth fx KeyCode))) ;;通用函数2
)
[/pcode]

附件Lsp和Odcl代码下载:
[sell]

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:test.rar 
下载次数:55  文件大小:5.51 KB 
下载权限: 不限 以上  [免费赚D豆]

[/sell]

Gdlprfcu

恭喜恭喜{:soso_e196:}

Lispboy

恭喜楼主，虽然10个豆，不贵不贵。

XDSoft

楼主，能说明下具体的技巧和程序设计时候遇到的难处理的地方最后如何处理的，那样更好。

Gdlprfcu

为何不用失去焦点事件把它隐藏掉？

yxpxa

Gdlprfcu 发表于 2013-5-7 12:12

                               
登录/注册后可看大图

为何不用失去焦点事件把它隐藏掉？

感谢各位老大的关注！

因为通用函数1中的以下这两句。
29.    (dcl_Control_SetText TxtName (dcl_Grid_GetCellText GrName R C))
30.    (dcl_Control_SetFocus TxtName)
第一句是把当前单元格的内容读入 textbox ，第二句是设置 textbox 的焦点。
问题是，当鼠标单击 grid 时， 第一句执行了，第二句却不执行，百思不得其解。

所以如果用 textbox 失去焦点判断，鼠标单击时，textbox也是没有焦点的。
如果找到了这个 bug 就设置 text_OnKillFocus 时 textbox 的隐藏.

XDSoft 发表于 2013-5-7 09:22

                               
登录/注册后可看大图

楼主，能说明下具体的技巧和程序设计时候遇到的难处理的地方最后如何处理的，那样更好。

我以为，有通用函数了，有需要的人应该一看就明白。
那就再啰嗦两句:
1 在自己的程序里添加三个控件 Gride、 textbox、ComboBox
2 增加 Grid1_OnSelChanged 事件，调用通用函数1
3 增加 TextBox1_OnKeyDown 事件，调用通用函数2
4 增加 TextBox1_OnReturnPressed 事件，调用通用函数2
第三个控件 ComboBox 也不是必须的，比如可以将回车键以向下的方式固定调用，即 fx=1，如下
(text-control-key test_Form1_Grid1 test_Form1_TextBox1 (car (nth 1 KeyCode)))

Gdlprfcu

yxpxa 发表于 2013-5-7 17:45

                               
登录/注册后可看大图

感谢各位老大的关注！

因为通用函数1中的以下这两句。

看来是你用的方法不对，我刚为了证明我的想法，也写一个，完全能解决你所说的BUG，但差不多写好的时候却发现了个至命问题：当行或列超出Grid控件的时候，我没法计算到单元格的准确位置，所以这种方法只能在控件能完全显示行和列的情况下使用。

yxpxa

Gdlprfcu 发表于 2013-5-7 21:46

                               
登录/注册后可看大图

看来是你用的方法不对，我刚为了证明我的想法，也写一个，完全能解决你所说的BUG，但差不多写好的时候却发 ...

有滚动条时的确无法读取单元格的真正位置，这真是一个让人沮丧的bug ！！！
要不，到官网去问问软件的作者，看他有啥好办法。

我现在就想解决函数1 中那句得不到焦点的问题。
Gdlprfcu 兄，能个指个明路否

Gdlprfcu

yxpxa 发表于 2013-5-8 02:07

                               
登录/注册后可看大图

有滚动条时的确无法读取单元格的真正位置，这真是一个让人沮丧的bug ！！！
要不，到官网去问问软件的作 ...

其实我是来找茬的:lol，模仿想完美是不可能做到的，想真完美只能学ObjectARX啦
我不知你是怎么做的，或者你可以看下我的做法，已在你以前发的帖回复里：http://bbs.xdcad.net/forum.php?mod=viewthread&tid=667813&page=1&extra=

124803430

最近在研究GRID控件
对我很有用的资料:lol

海天风云

正在学习grid控件。

革天明

谢谢楼主分享