Q5/ws_objects/Ew_mainface.pbl.src/m_ljerp2_main_menu_item_sp1.srm

$PBExportHeader$m_ljerp2_main_menu_item_sp1.srm
$PBExportComments$超级菜单
forward
global type m_ljerp2_main_menu_item_sp1 from menu
end type
type m_temp from menu within m_ljerp2_main_menu_item_sp1
end type
global type m_ljerp2_main_menu_item_sp1 from menu
m_temp m_temp
end type
end forward

shared variables

end variables

global type m_ljerp2_main_menu_item_sp1 from menu
m_temp m_temp
end type
global m_ljerp2_main_menu_item_sp1 m_ljerp2_main_menu_item_sp1

type variables

end variables

on m_ljerp2_main_menu_item_sp1.create
m_ljerp2_main_menu_item_sp1=this
call super::create
this.text = "m_ljerp2_main_menu_item"
this.menutextcolor = 134217735
this.menubackcolor = 134217732
this.menuhighlightcolor = 134217741
this.textsize = 8
this.weight = 400
this.facename = "Tahoma"
this.titlebackcolor = 134217730
this.bitmapbackcolor = 12632256
this.menubitmaps = true
this.titlegradient = true
this.toolbartextcolor = 134217746
this.toolbarbackcolor = 67108864
this.toolbarhighlightcolor = 134217741
this.toolbargradient = true
this.bitmapgradient = true
this.m_temp=create m_temp
this.Item[UpperBound(this.Item)+1]=this.m_temp
end on

on m_ljerp2_main_menu_item_sp1.destroy
call super::destroy
destroy(this.m_temp)
end on

type m_temp from menu within m_ljerp2_main_menu_item_sp1
end type

on m_temp.create
call super::create
this.text = "Temp"
this.menutextcolor = 134217735
this.menubackcolor = 134217732
this.menuhighlightcolor = 134217741
this.textsize = 8
this.weight = 400
this.facename = "Tahoma"
this.titlebackcolor = 134217730
this.bitmapbackcolor = 12632256
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_temp.destroy
call super::destroy
end on

event clicked;//====================================================================
// 事件(Event): m_temp::clicked()
//--------------------------------------------------------------------
// 描述(Description): 菜单条触发时
//--------------------------------------------------------------------
// 参数(Arguments): (None)
//--------------------------------------------------------------------
// 返回(Returns):  (None)
//--------------------------------------------------------------------
//====================================================================

IF UpperBound(Item) = 0 THEN
	String dsEventName
	//u_Dfc_Base_Func duFunc
	//duFunc.uf_GetKeyValue(Tag, "Event")	
	dsEventName = 'ue_main_menu_commnd'
	//	If dsEventName <> "" Then
	// 如果有效				
	//		If IsValid(igoObject) Then			
	//			igoObject.TriggerEvent(dsEventName,long(Tag))
	//		Else			
	
	IF Pos(Text,'(嵌入式)') > 0 THEN
		dsEventName = 'ue_main_meun_report'
	ELSEIF Pos(Text,'(外挂)') > 0 THEN
		dsEventName = 'ue_main_meun_plugins'
	ELSE
		dsEventName = 'ue_main_menu_commnd'
	END IF
	
	
	IF IsValid(w_main_scware) THEN
		w_main_scware.TriggerEvent(dsEventName,Long(Tag),Long(Tag))
	END IF
	
//	IF IsValid(w_main_scware_biz) THEN
//		w_main_scware_biz.TriggerEvent(dsEventName,Long(Tag),Long(Tag))
//	END IF
	//		End If
	//	End If
END IF


end event