Q5/ws_objects/xls_Billprint_win.pbl.src/u_function_list.sru

$PBExportHeader$u_function_list.sru
$PBExportComments$By PBKiller v2.5.18(http://kivens.nease.net)
forward
global type u_function_list from listview
end type
end forward

global type u_function_list from listview
integer width = 480
integer height = 300
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string pointer = "HyperLink!"
boolean border = false
boolean autoarrange = true
boolean trackselect = true
boolean twoclickactivate = true
string largepicturename[] = {"",""}
integer largepicturewidth = 32
integer largepictureheight = 32
long largepicturemaskcolor = 536870912
string smallpicturename[] = {""}
long smallpicturemaskcolor = 536870912
string statepicturename[] = {""}
long statepicturemaskcolor = 536870912
event ue_find ( string arg_str )
end type
global u_function_list u_function_list

type variables
public u_function_panel iuo_parent
end variables

forward prototypes
public subroutine of_reset ()
end prototypes

event ue_find(string arg_str);Long ll_i,handel

listviewitem l_lvi
this.setredraw( false)
FOR ll_i = 1 To This.TotalItems ( )
	handel = This.GetItem(ll_i, l_lvi)
	IF Pos(l_lvi.Label,arg_str) > 0 THEN
		l_lvi.HasFocus = True
		l_lvi.Selected = True
		This.SetItem(handel,l_lvi)
		EXIT
	END IF
NEXT

//this.resize( this.width , this.height )
this.setredraw( true)


end event

public subroutine of_reset ();deleteitems()
end subroutine

event constructor;hide()
return
end event

on u_function_list.create
end on

on u_function_list.destroy
end on

event doubleclicked;listviewitem l_lvi

getitem(index,l_lvi)
iuo_parent.is_selectedid = string(l_lvi.data)
iuo_parent.is_msg = string(l_lvi.label )

//shizy
iuo_parent.triggerevent("ue_doubleclickfunc")
return
end event

event rightclicked;m_xls_pop m_xls
 
m_xls = create m_xls_pop
m_xls.m_panel.m_expandall.enabled = false
m_xls.m_panel.m_collapseall.enabled = false
m_xls.m_panel.m_pop_panelrefresh.enabled = false
m_xls.m_panel.m_displayid.enabled = false
m_xls.iuo_parent =iuo_parent
//shizy
if iuo_parent.iuo_list[iuo_parent.ii_curgroup].view = listviewlargeicon! then
	iuo_parent.is_smallicon = "N"
else
	iuo_parent.is_smallicon = "Y"
end if

if iuo_parent.is_smallicon = "N" then
	m_xls.m_panel.m_smallicon.checked = false
else
	m_xls.m_panel.m_smallicon.checked = true
end if

m_xls.m_panel.popmenu( this.x+ iuo_parent.x+ pointerx(),this.y+pointery()  )
return
end event

event clicked;
listviewitem l_lvi

getitem(index,l_lvi)
iuo_parent.is_selectedid = string(l_lvi.data)
//shizy
iuo_parent.triggerevent("ue_clickfunc")
return
end event