Q5/ws_objects/Ew_mrp.pbl.src/w_workprice_paste_ch.srw

$PBExportHeader$w_workprice_paste_ch.srw
forward
global type w_workprice_paste_ch from w_publ_base
end type
type cb_all from uo_imflatbutton within w_workprice_paste_ch
end type
type cb_add from uo_imflatbutton within w_workprice_paste_ch
end type
type st_1 from statictext within w_workprice_paste_ch
end type
type p_1 from picture within w_workprice_paste_ch
end type
end forward

global type w_workprice_paste_ch from w_publ_base
integer width = 1614
integer height = 384
string title = "询问"
boolean minbox = false
windowtype windowtype = response!
cb_all cb_all
cb_add cb_add
st_1 st_1
p_1 p_1
end type
global w_workprice_paste_ch w_workprice_paste_ch

type variables
int ii_type = 0 

end variables

on w_workprice_paste_ch.create
int iCurrent
call super::create
this.cb_all=create cb_all
this.cb_add=create cb_add
this.st_1=create st_1
this.p_1=create p_1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cb_all
this.Control[iCurrent+2]=this.cb_add
this.Control[iCurrent+3]=this.st_1
this.Control[iCurrent+4]=this.p_1
end on

on w_workprice_paste_ch.destroy
call super::destroy
destroy(this.cb_all)
destroy(this.cb_add)
destroy(this.st_1)
destroy(this.p_1)
end on

event close;call super::close;closewithreturn(this,ii_type)
end event

type cb_func from w_publ_base`cb_func within w_workprice_paste_ch
boolean visible = false
end type

type cb_exit from w_publ_base`cb_exit within w_workprice_paste_ch
integer x = 1056
integer y = 140
integer height = 100
string text = "取消"
end type

event cb_exit::clicked;ii_type = 0 
close(parent)
end event

type cb_all from uo_imflatbutton within w_workprice_paste_ch
integer x = 219
integer y = 140
integer taborder = 30
boolean bringtotop = true
string text = "覆盖粘贴"
end type

event clicked;call super::clicked;ii_type = 1 
close(parent)
end event

type cb_add from uo_imflatbutton within w_workprice_paste_ch
integer x = 635
integer y = 140
integer taborder = 40
boolean bringtotop = true
string text = "补充粘贴"
end type

event clicked;call super::clicked;ii_type = 2 
close(parent)
end event

type st_1 from statictext within w_workprice_paste_ch
integer x = 219
integer y = 48
integer width = 402
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 134217739
string text = "请选择粘贴方式"
boolean focusrectangle = false
end type

type p_1 from picture within w_workprice_paste_ch
integer x = 128
integer y = 48
integer width = 73
integer height = 64
boolean bringtotop = true
boolean originalsize = true
string picturename = "Help!"
boolean focusrectangle = false
end type