FXApp/ws_objects/plugins_publ_print.pbl.src/m_publ_preview_dnset.srm

$PBExportHeader$m_publ_preview_dnset.srm
forward
global type m_publ_preview_dnset from menu
end type
type m_main from menu within m_publ_preview_dnset
end type
type m_mxd from menu within m_main
end type
type m_- from menu within m_main
end type
type m_3 from menu within m_main
end type
type m_ from menu within m_main
end type
type m_main from menu within m_publ_preview_dnset
m_mxd m_mxd
m_- m_-
m_3 m_3
m_ m_
end type
global type m_publ_preview_dnset from menu
m_main m_main
end type
end forward

global type m_publ_preview_dnset from menu
m_main m_main
end type
global m_publ_preview_dnset m_publ_preview_dnset

on m_publ_preview_dnset.create
m_publ_preview_dnset=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_main=create m_main
this.Item[UpperBound(this.Item)+1]=this.m_main
end on

on m_publ_preview_dnset.destroy
call super::destroy
destroy(this.m_main)
end on

type m_main from menu within m_publ_preview_dnset
m_mxd m_mxd
m_- m_-
m_3 m_3
m_ m_
end type

on m_main.create
call super::create
this.text = " "
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_mxd=create m_mxd
this.m_-=create m_-
this.m_3=create m_3
this.m_=create m_
this.Item[UpperBound(this.Item)+1]=this.m_mxd
this.Item[UpperBound(this.Item)+1]=this.m_-
this.Item[UpperBound(this.Item)+1]=this.m_3
this.Item[UpperBound(this.Item)+1]=this.m_
end on

on m_main.destroy
call super::destroy
destroy(this.m_mxd)
destroy(this.m_-)
destroy(this.m_3)
destroy(this.m_)
end on

event selected;//if not w_publ_preview.dw_1.describe('mxreport.type')='report' or retrieveid=0 then  m_mxd.enabled=false  //检查是否存在名为mxreport的report没有则此功能不可以用
end event

type m_mxd from menu within m_main
end type

on m_mxd.create
call super::create
this.text = "明细网格调整"
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

event clicked;if isvalid(w_publ_preview) then w_publ_preview.wf_dowithm(1)

end event

on m_mxd.destroy
call super::destroy
end on

type m_- from menu within m_main
end type

on m_-.create
call super::create
this.text = "-"
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_-.destroy
call super::destroy
end on

type m_3 from menu within m_main
end type

on m_3.create
call super::create
this.text = "单据样式"
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

event clicked;if isvalid(w_publ_preview) then w_publ_preview.wf_dowithm(21)

end event

on m_3.destroy
call super::destroy
end on

type m_ from menu within m_main
end type

on m_.create
call super::create
this.text = "恢复默认格式"
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

event clicked;if isvalid(w_publ_preview) then w_publ_preview.wf_dowithm(22)
end event

on m_.destroy
call super::destroy
end on