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

$PBExportHeader$m_publ_preview_func.srm
forward
global type m_publ_preview_func from menu
end type
type m_0 from menu within m_publ_preview_func
end type
type m_数据发送 from menu within m_0
end type
type m_筛选 from menu within m_0
end type
type m_页面设置 from menu within m_0
end type
type m_- from menu within m_0
end type
type m_上一页 from menu within m_0
end type
type m_下一页 from menu within m_0
end type
type m_0 from menu within m_publ_preview_func
m_数据发送 m_数据发送
m_筛选 m_筛选
m_页面设置 m_页面设置
m_- m_-
m_上一页 m_上一页
m_下一页 m_下一页
end type
global type m_publ_preview_func from menu
m_0 m_0
end type
end forward

global type m_publ_preview_func from menu
m_0 m_0
end type
global m_publ_preview_func m_publ_preview_func

on m_publ_preview_func.create
m_publ_preview_func=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_0=create m_0
this.Item[UpperBound(this.Item)+1]=this.m_0
end on

on m_publ_preview_func.destroy
call super::destroy
destroy(this.m_0)
end on

type m_0 from menu within m_publ_preview_func
m_数据发送 m_数据发送
m_筛选 m_筛选
m_页面设置 m_页面设置
m_- m_-
m_上一页 m_上一页
m_下一页 m_下一页
end type

on m_0.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_数据发送=create m_数据发送
this.m_筛选=create m_筛选
this.m_页面设置=create m_页面设置
this.m_-=create m_-
this.m_上一页=create m_上一页
this.m_下一页=create m_下一页
this.Item[UpperBound(this.Item)+1]=this.m_数据发送
this.Item[UpperBound(this.Item)+1]=this.m_筛选
this.Item[UpperBound(this.Item)+1]=this.m_页面设置
this.Item[UpperBound(this.Item)+1]=this.m_-
this.Item[UpperBound(this.Item)+1]=this.m_上一页
this.Item[UpperBound(this.Item)+1]=this.m_下一页
end on

on m_0.destroy
call super::destroy
destroy(this.m_数据发送)
destroy(this.m_筛选)
destroy(this.m_页面设置)
destroy(this.m_-)
destroy(this.m_上一页)
destroy(this.m_下一页)
end on

type m_数据发送 from menu within m_0
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

event clicked;if isvalid(w_publ_preview) then w_publ_preview.triggerevent("ue_sentdataout")
end event

type m_筛选 from menu within m_0
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

event clicked;if isvalid(w_publ_preview) then w_publ_preview.triggerevent("ue_filter")
end event

type m_页面设置 from menu within m_0
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

event clicked;if isvalid(w_publ_preview) then w_publ_preview.triggerevent("ue_setprintpage_value")
end event

type m_- from menu within m_0
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_上一页 from menu within m_0
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

event clicked;if isvalid(w_publ_preview) then w_publ_preview.triggerevent("ue_spp")
end event

type m_下一页 from menu within m_0
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

event clicked;if isvalid(w_publ_preview) then w_publ_preview.triggerevent("ue_snp")
end event