$PBExportHeader$w_pos_zl.srw forward global type w_pos_zl from w_publ_base end type type st_msg from statictext within w_pos_zl end type type cb_1 from uo_imflatbutton within w_pos_zl end type end forward global type w_pos_zl from w_publ_base integer width = 2286 integer height = 324 boolean titlebar = false string title = "" boolean controlmenu = false boolean minbox = false windowtype windowtype = response! long backcolor = 12632256 st_msg st_msg cb_1 cb_1 end type global w_pos_zl w_pos_zl type variables decimal cur_sec end variables event open;call super::open;string ls_msg ls_msg = message.stringparm if st_msg.text<>'' then st_msg.text = ls_msg end if timer(0.1) end event on w_pos_zl.create int iCurrent call super::create this.st_msg=create st_msg this.cb_1=create cb_1 iCurrent=UpperBound(this.Control) this.Control[iCurrent+1]=this.st_msg this.Control[iCurrent+2]=this.cb_1 end on on w_pos_zl.destroy call super::destroy destroy(this.st_msg) destroy(this.cb_1) end on event timer;call super::timer;cur_sec = cur_sec + 0.1 IF cur_sec > 1 THEN Timer(0) Close(THIS) END IF end event type cb_func from w_publ_base`cb_func within w_pos_zl boolean visible = false end type type cb_exit from w_publ_base`cb_exit within w_pos_zl boolean visible = false end type type st_msg from statictext within w_pos_zl integer x = 18 integer y = 80 integer width = 2254 integer height = 176 boolean bringtotop = true integer textsize = -28 integer weight = 700 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 33554432 long backcolor = 12632256 string text = "找回:0.00" alignment alignment = center! boolean focusrectangle = false end type type cb_1 from uo_imflatbutton within w_pos_zl integer x = 1271 integer y = 444 integer taborder = 20 boolean bringtotop = true boolean default = true end type event clicked;call super::clicked;timer(0) close(parent) end event