FXApp/ws_objects/plugins_publ.pbl.src/m_dfc_control_popupmenu_item.srm

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

shared variables

end variables

global type m_dfc_control_popupmenu_item from menu
m_temp m_temp
end type
global m_dfc_control_popupmenu_item m_dfc_control_popupmenu_item

type variables
GraphicObject igoObject
end variables

on m_dfc_control_popupmenu_item.create
m_dfc_control_popupmenu_item=this
call super::create
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_dfc_control_popupmenu_item.destroy
call super::destroy
destroy(this.m_temp)
end on

type m_temp from menu within m_dfc_control_popupmenu_item
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)
//--------------------------------------------------------------------
// 作者:	董伟勇		日期: 2003.05.15
//--------------------------------------------------------------------
// 修改历史: 
//	
//--------------------------------------------------------------------
// 1998-2003 上海亿用软件有限公司 | DongSoft Team
//====================================================================

If upperbound(item) = 0 Then
	String dsEventName
	String dsMenuText
	String dsParmContent
	u_Dfc_Base_Func duFunc
	dsMenuText = duFunc.uf_GetKeyValue(Tag, "Text")
	dsEventName = duFunc.uf_GetKeyValue(Tag, "Event")	
	dsParmContent = duFunc.uf_GetKeyValue(Tag, "Parm")	
	If dsEventName <> "" Then
		IF dsParmContent = "ControlEvent" THEN
			If IsValid(igoObject) Then			
				igoObject.TriggerEvent(dsEventName)
			Else			
				ParentWindow.TriggerEvent(dsEventName)
			End If
		ELSE
			//File_Way = dsMenuText
			ParentWindow.TriggerEvent (dsEventName,0,dsParmContent)
		END IF

		//ParentWindow.TriggerEvent(dsEventName)
		// 如果有效				
//		If IsValid(igoObject) Then			
//			igoObject.TriggerEvent(dsEventName)
//		Else			
//		   ParentWindow.TriggerEvent(dsEventName)
//		End If
	End If
End If

end event