Q5/ws_objects/xls_Billprint_win.pbl.src/m_xls_pop.srm

$PBExportHeader$m_xls_pop.srm
$PBExportComments$By PBKiller v2.5.18(http://kivens.nease.net)
forward
global type m_xls_pop from menu
end type
type m_panel from menu within m_xls_pop
end type
type m_查找 from menu within m_panel
end type
type m_expandall from menu within m_panel
end type
type m_collapseall from menu within m_panel
end type
type m_pop_panelrefresh from menu within m_panel
end type
type m_- from menu within m_panel
end type
type m_displayid from menu within m_panel
end type
type m_smallicon from menu within m_panel
end type
type m_panel from menu within m_xls_pop
m_查找 m_查找
m_expandall m_expandall
m_collapseall m_collapseall
m_pop_panelrefresh m_pop_panelrefresh
m_- m_-
m_displayid m_displayid
m_smallicon m_smallicon
end type
global type m_xls_pop from menu
m_panel m_panel
end type
end forward

global type m_xls_pop from menu
m_panel m_panel
end type
global m_xls_pop m_xls_pop

type variables
public u_function_panel iuo_parent
end variables

on m_xls_pop.create
m_xls_pop=this
call super::create
this.text = "m_pop"
this.m_panel=create m_panel
this.Item[UpperBound(this.Item)+1]=this.m_panel
end on

on m_xls_pop.destroy
call super::destroy
destroy(this.m_panel)
end on

type m_panel from menu within m_xls_pop
m_查找 m_查找
m_expandall m_expandall
m_collapseall m_collapseall
m_pop_panelrefresh m_pop_panelrefresh
m_- m_-
m_displayid m_displayid
m_smallicon m_smallicon
end type

on m_panel.create
call super::create
this.text = "系统模块"
this.m_查找=create m_查找
this.m_expandall=create m_expandall
this.m_collapseall=create m_collapseall
this.m_pop_panelrefresh=create m_pop_panelrefresh
this.m_-=create m_-
this.m_displayid=create m_displayid
this.m_smallicon=create m_smallicon
this.Item[UpperBound(this.Item)+1]=this.m_查找
this.Item[UpperBound(this.Item)+1]=this.m_expandall
this.Item[UpperBound(this.Item)+1]=this.m_collapseall
this.Item[UpperBound(this.Item)+1]=this.m_pop_panelrefresh
this.Item[UpperBound(this.Item)+1]=this.m_-
this.Item[UpperBound(this.Item)+1]=this.m_displayid
this.Item[UpperBound(this.Item)+1]=this.m_smallicon
end on

on m_panel.destroy
call super::destroy
destroy(this.m_查找)
destroy(this.m_expandall)
destroy(this.m_collapseall)
destroy(this.m_pop_panelrefresh)
destroy(this.m_-)
destroy(this.m_displayid)
destroy(this.m_smallicon)
end on

event clicked;if not IsValid( iuo_parent ) then return
end event

type m_查找 from menu within m_panel
end type

event clicked;if not IsValid( iuo_parent ) then return
iuo_parent.triggerevent( 'ue_getfindtext')



end event

on m_查找.create
call super::create
this.text = "查找"
end on

on m_查找.destroy
call super::destroy
end on

type m_expandall from menu within m_panel
end type

event clicked;long ll_hdl[1024]
long li_cnt = 1
if not IsValid( iuo_parent ) then return
ll_hdl[1] = iuo_parent.tv_function.finditem(roottreeitem!,0)
iuo_parent.tv_function.expanditem(ll_hdl[1])

do while ll_hdl[li_cnt] > 0
	ll_hdl[li_cnt + 1] = iuo_parent.tv_function.finditem(nexttreeitem!,ll_hdl[li_cnt])
	iuo_parent.tv_function.expanditem(ll_hdl[li_cnt])
	li_cnt ++
loop
end event

on m_expandall.create
call super::create
this.text = "展开"
end on

on m_expandall.destroy
call super::destroy
end on

type m_collapseall from menu within m_panel
end type

event clicked;long ll_hdl[1024]
long li_cnt = 1
if not IsValid( iuo_parent ) then return
ll_hdl[1] = iuo_parent.tv_function.finditem(roottreeitem!,0)
iuo_parent.tv_function.expanditem(ll_hdl[1])

do while ll_hdl[li_cnt] > 0
	ll_hdl[li_cnt + 1] = iuo_parent.tv_function.finditem(nexttreeitem!,ll_hdl[li_cnt])
	iuo_parent.tv_function.collapseitem(ll_hdl[li_cnt])
	li_cnt ++
loop
end event

on m_collapseall.create
call super::create
this.text = "收拢"
end on

on m_collapseall.destroy
call super::destroy
end on

type m_pop_panelrefresh from menu within m_panel
end type

event clicked;if not IsValid( iuo_parent ) then return
iuo_parent.ddplb_module.event selectionchanged( iuo_parent.ii_selindex)  

end event

on m_pop_panelrefresh.create
call super::create
this.text = "刷新"
this.microhelp = "刷新功能列表"
end on

on m_pop_panelrefresh.destroy
call super::destroy
end on

type m_- from menu within m_panel
end type

on m_-.create
call super::create
this.text = "-"
end on

on m_-.destroy
call super::destroy
end on

type m_displayid from menu within m_panel
end type

event clicked;if not IsValid( iuo_parent ) then return

if not checked then
	iuo_parent.is_displayid = "Y"
else
	iuo_parent.is_displayid = "N"
end if
iuo_parent.ddplb_module.event selectionchanged( iuo_parent.ii_selindex)
//iuo_parent.of_buildtreeview(iuo_parent.is_ddplb,0,false)
end event

on m_displayid.create
call super::create
this.text = "显示模块编号"
end on

on m_displayid.destroy
call super::destroy
end on

type m_smallicon from menu within m_panel
end type

event clicked;if not IsValid( iuo_parent ) then return

if not checked then
	iuo_parent.is_smallicon = "Y"
	iuo_parent.iuo_list[iuo_parent.ii_curgroup].view = listviewsmallicon!
else
	iuo_parent.is_smallicon = "N"
	iuo_parent.iuo_list[iuo_parent.ii_curgroup].view = listviewlargeicon!
end if
  

iuo_parent.of_refreshlist(iuo_parent.ii_curgroup)
iuo_parent.ids_module.setfilter("")
iuo_parent.ids_module.filter()
iuo_parent.ids_module.sort()
iuo_parent.ids_function.setfilter("")
iuo_parent.ids_function.filter()
iuo_parent.ids_function.sort()
//iuo_parent.ddplb_module.event selectionchanged( iuo_parent.ii_selindex)
end event

on m_smallicon.create
call super::create
this.text = "以小图标方式排列"
end on

on m_smallicon.destroy
call super::destroy
end on