分享一下,树形数据窗口双击那一层自动展开或收缩(数据窗口DoubleClicked事件中处理)
来源:互联网 发布:2010年流行的网络歌曲 编辑:程序博客网 时间:2024/05/17 06:52
分享一下,树形数据窗口双击那一层自动展开或收缩(数据窗口DoubleClicked事件中处理)
//TreeView Datawindow 双击收缩
//双击那一层对象则自带收缩(不用去点 + / - )
string ls_dwProcessing,ls_band
//树型dw的展开收缩处理
ls_dwProcessing=this.describe('DataWindow.Processing')
If ls_dwProcessing='8' or ls_dwProcessing='9' Then
ls_band=this.describe(dwo.Name+".band")
//tree.level.1
//n_cst_string
If pos(ls_band,'tree.level.') >0 Then
n_cst_string lstr_c
string ls_parstr[],ls_bandrow[]
int li_level
long ll_row
lstr_c.of_parsetoarray(ls_band,'.',ls_parstr)//PFC 对象 把字串 分配成数组(也可以自行写)
If upperbound(ls_parstr[])>=3 Then
If isnumber(ls_parstr[3])Then
li_level=integer(ls_parstr[3])
//describe("evaluate(' first( getrow() for group 1 )',"+string(getrow())+")")
//describe("evaluate(' first( getrow() for group 1 )',"+first( getrow() for group 1 )+")")
//ll_row= this.getrow()//long(describe("evaluate(' first( getrow() for group "+string(li_level)+" )',compute_3)"))
//取双击的所在 band 的行
ls_band=GetBandAtPointer()
lstr_c.of_parsetoarray(ls_band,'~t',ls_bandrow)
If upperbound(ls_bandrow[])>=2 Then
ll_row=long(ls_bandrow[2])
If ll_row=0 Then ll_row= this.getrow()
Else
ll_row= this.getrow()
End If
If this.isexpanded( ll_row, li_level) Then
this.CollapseAllChildren(ll_row,li_level)
//this.CollapseAll()
Else
this.ExpandAllChildren(ll_row,li_level)
//this.ExpandAll()
End If
End If
End If
End If
//TreeView Datawindow 双击收缩
//双击那一层对象则自带收缩(不用去点 + / - )
string ls_dwProcessing,ls_band
//树型dw的展开收缩处理
ls_dwProcessing=this.describe('DataWindow.Processing')
If ls_dwProcessing='8' or ls_dwProcessing='9' Then
ls_band=this.describe(dwo.Name+".band")
//tree.level.1
//n_cst_string
If pos(ls_band,'tree.level.') >0 Then
n_cst_string lstr_c
string ls_parstr[],ls_bandrow[]
int li_level
long ll_row
lstr_c.of_parsetoarray(ls_band,'.',ls_parstr)//PFC 对象 把字串 分配成数组(也可以自行写)
If upperbound(ls_parstr[])>=3 Then
If isnumber(ls_parstr[3])Then
li_level=integer(ls_parstr[3])
//describe("evaluate(' first( getrow() for group 1 )',"+string(getrow())+")")
//describe("evaluate(' first( getrow() for group 1 )',"+first( getrow() for group 1 )+")")
//ll_row= this.getrow()//long(describe("evaluate(' first( getrow() for group "+string(li_level)+" )',compute_3)"))
//取双击的所在 band 的行
ls_band=GetBandAtPointer()
lstr_c.of_parsetoarray(ls_band,'~t',ls_bandrow)
If upperbound(ls_bandrow[])>=2 Then
ll_row=long(ls_bandrow[2])
If ll_row=0 Then ll_row= this.getrow()
Else
ll_row= this.getrow()
End If
If this.isexpanded( ll_row, li_level) Then
this.CollapseAllChildren(ll_row,li_level)
//this.CollapseAll()
Else
this.ExpandAllChildren(ll_row,li_level)
//this.ExpandAll()
End If
End If
End If
End If
End If
- 分享一下,树形数据窗口双击那一层自动展开或收缩(数据窗口DoubleClicked事件中处理)
- 用代码触发数据窗口的双击事件
- 数据窗口中最常用的事件
- 自动展开的窗口
- PB 数据窗口通用双击复制代码
- DELPHI: TTreeView 中禁止双击事件展开或关闭节点.
- Delphi图像处理 -- 获取窗口或设备的图像数据
- 下拉数据窗口事件捕获
- 数据窗口控件常用事件
- CTreeView CTreectrl 双击不展开或收缩节点的办法。
- 数据窗口数据列自动折行
- 数据窗口数据列自动折行
- 在数据窗口itemchanged事件中改变自身值
- 数据窗口控件ItemError事件中必需的编程
- 关于数据窗口事件中DWO的解释
- 数据窗口事件中DWO的解释说明
- MFC窗口的部分展开与收缩按钮响应函数
- flex 中子窗口通过事件刷新父窗口中的数据
- VS2010中设置字符集不使用Unicode
- android组件之Content Provider
- 在Struts2使用集合对象保存表单提交参数
- VxWorks下Shell调试总结
- C++标准库简介(转)
- 分享一下,树形数据窗口双击那一层自动展开或收缩(数据窗口DoubleClicked事件中处理)
- 获取网络图片更新ui
- Linux 2.6内核新变化
- Android设置透明的Activity
- 为所有实体关闭延迟加载
- 关于<rich:popupPanel>中的<h:inputText>不能正确修改后台的值 的问题
- 显式加载关联实体
- 几个模式识别领域的期刊和会议
- jpa 表生成器@ TableGenerator .