$PBExportHeader$w_quote_mxdo.srw forward global type w_quote_mxdo from w_publ_base end type type cb_1 from uo_imflatbutton within w_quote_mxdo end type type rb_1 from radiobutton within w_quote_mxdo end type type rb_2 from radiobutton within w_quote_mxdo end type end forward global type w_quote_mxdo from w_publ_base integer width = 1257 integer height = 544 string title = "选择" boolean minbox = false windowtype windowtype = response! cb_1 cb_1 rb_1 rb_1 rb_2 rb_2 end type global w_quote_mxdo w_quote_mxdo type variables int ii_rst = 0 end variables on w_quote_mxdo.create int iCurrent call super::create this.cb_1=create cb_1 this.rb_1=create rb_1 this.rb_2=create rb_2 iCurrent=UpperBound(this.Control) this.Control[iCurrent+1]=this.cb_1 this.Control[iCurrent+2]=this.rb_1 this.Control[iCurrent+3]=this.rb_2 end on on w_quote_mxdo.destroy call super::destroy destroy(this.cb_1) destroy(this.rb_1) destroy(this.rb_2) end on event close;call super::close;CloseWithReturn(This,ii_rst) end event type cb_func from w_publ_base`cb_func within w_quote_mxdo integer x = 242 integer y = 896 end type type cb_exit from w_publ_base`cb_exit within w_quote_mxdo integer x = 681 integer y = 276 string text = "取消" end type event cb_exit::clicked;ii_rst = 0 Close(Parent) end event type cb_1 from uo_imflatbutton within w_quote_mxdo integer x = 224 integer y = 276 integer width = 311 integer height = 96 integer taborder = 10 boolean bringtotop = true string normalpicname = "ok.bmp" end type event clicked;call super::clicked;IF rb_1.Checked THEN ii_rst = 1 ELSE ii_rst = 2 END IF Close(Parent) end event type rb_1 from radiobutton within w_quote_mxdo integer x = 251 integer y = 112 integer width = 402 integer height = 60 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 33554432 long backcolor = 134217739 string text = "当前行" boolean checked = true end type type rb_2 from radiobutton within w_quote_mxdo integer x = 709 integer y = 108 integer width = 402 integer height = 60 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 33554432 long backcolor = 134217739 string text = "所有行" end type