FXApp/ws_objects/app_cust_fx.pbl.src/m_item.srm

$PBExportHeader$m_item.srm
forward
global type m_item from menu
end type
end forward

global type m_item from menu
end type
global m_item m_item

event clicked;//
if IsNull(this.Tag) then return

if IsValid(w_main_fx) and IsValid(sys_func_pwr) then
	sys_func_pwr.SetFilter('')
	sys_func_pwr.Filter()
	
	long row, funcid
	row = sys_func_pwr.Find('objname="' + string(this.Tag) + '"', 1, sys_func_pwr.RowCount())
	if (row > 0) then
		funcid = sys_func_pwr.Object.funcid[row]
		w_main_fx.TriggerEvent('ue_main_menu_commnd', funcid, funcid)
	else
		MessageBox('提示', '请联系开发人员:ds_menu不存在窗口对象:' + string(this.Tag))
	end if
end if
end event

on m_item.create
m_item=this
call super::create
this.menustyle = contemporarymenu!
this.menutextcolor = 16777215
this.menubackcolor = 27099959
this.menuhighlightcolor = 134217731
this.textsize = -9
this.weight = 400
this.fontfamily = swiss!
this.facename = "Tahoma"
this.titlebackcolor = 134217730
this.bitmapbackcolor = 27099959
this.menubitmaps = true
this.titlegradient = true
this.toolbartextcolor = 134217746
this.toolbarbackcolor = 67108864
this.toolbarhighlightcolor = 134217741
this.toolbargradient = true
this.bitmapgradient = true
end on

on m_item.destroy
call super::destroy
end on