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

$PBExportHeader$m_main_fx.srm
$PBExportComments$协同系统主menu
forward
global type m_main_fx from menu
end type
type m_软件 from menu within m_main_fx
end type
type m_关于 from menu within m_软件
end type
type m_退出 from menu within m_软件
end type
type m_软件 from menu within m_main_fx
m_关于 m_关于
m_退出 m_退出
end type
global type m_main_fx from menu
m_软件 m_软件
end type
end forward

global type m_main_fx from menu
m_软件 m_软件
end type
global m_main_fx m_main_fx

on m_main_fx.create
m_main_fx=this
call super::create
this.menustyle = contemporarymenu!
this.menutextcolor = 16777215
this.menubackcolor = 27099959
this.menuhighlightcolor = 134217731
this.textsize = -9
this.weight = 400
this.fontpitch = variable!
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
this.m_软件=create m_软件
this.Item[UpperBound(this.Item)+1]=this.m_软件
end on

on m_main_fx.destroy
call super::destroy
destroy(this.m_软件)
end on

type m_软件 from menu within m_main_fx
m_关于 m_关于
m_退出 m_退出
end type

on m_软件.create
call super::create
this.text = "系统"
this.menustyle = contemporarymenu!
this.menutextcolor = 16777215
this.menubackcolor = 27099959
this.menuhighlightcolor = 134217731
this.textsize = -9
this.weight = 400
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
this.m_关于=create m_关于
this.m_退出=create m_退出
this.Item[UpperBound(this.Item)+1]=this.m_关于
this.Item[UpperBound(this.Item)+1]=this.m_退出
end on

on m_软件.destroy
call super::destroy
destroy(this.m_关于)
destroy(this.m_退出)
end on

type m_关于 from menu within m_软件
end type

on m_关于.create
call super::create
this.text = "关于"
this.menustyle = contemporarymenu!
this.menutextcolor = 16777215
this.menubackcolor = 27099959
this.menuhighlightcolor = 134217731
this.textsize = -9
this.weight = 400
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_关于.destroy
call super::destroy
end on

event clicked;
if not IsValid(w_about_fx) then
	Open(w_about_fx)
end if
end event

type m_退出 from menu within m_软件
end type

on m_退出.create
call super::create
this.text = "退出"
this.menustyle = contemporarymenu!
this.menutextcolor = 16777215
this.menubackcolor = 27099959
this.menuhighlightcolor = 134217731
this.textsize = -9
this.weight = 400
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_退出.destroy
call super::destroy
end on

event clicked;//
if IsValid(w_main_fx) then
	Close(w_main_fx)
end if
end event