Q5/ws_objects/Ew_publ903.pbl.src/m_dft_dwprint_item.srm

$PBExportHeader$m_dft_dwprint_item.srm
$PBExportComments$超级菜单
forward
global type m_dft_dwprint_item from menu
end type
type m_默认格式 from menu within m_dft_dwprint_item
end type
global type m_dft_dwprint_item from menu
m_默认格式 m_默认格式
end type
end forward

shared variables

end variables

global type m_dft_dwprint_item from menu
m_默认格式 m_默认格式
end type
global m_dft_dwprint_item m_dft_dwprint_item

type variables

end variables

forward prototypes
public subroutine f1 ()
end prototypes

public subroutine f1 ();
end subroutine

on m_dft_dwprint_item.create
m_dft_dwprint_item=this
call super::create
this.text = "m_ljerp2_main_menu_item"
this.m_默认格式=create m_默认格式
this.Item[UpperBound(this.Item)+1]=this.m_默认格式
end on

on m_dft_dwprint_item.destroy
call super::destroy
destroy(this.m_默认格式)
end on

type m_默认格式 from menu within m_dft_dwprint_item
end type

event clicked;If upperbound(item) = 0 Then
	IF  IsValid(w_curwin) THEN
		w_curwin.triggerevent('ue_viewprint',long(tag),long(tag))
	else
		w_curwin.triggerevent('ue_viewprint',0,0)
	end if
end if
end event

on m_默认格式.create
call super::create
this.text = "默认格式"
end on

on m_默认格式.destroy
call super::destroy
end on