Q5/ws_objects/Ew_axmswinsock.pbl.src/w_waitforreconnect.srw

$PBExportHeader$w_waitforreconnect.srw
forward
global type w_waitforreconnect from window
end type
type p_1 from picture within w_waitforreconnect
end type
type st_1 from statictext within w_waitforreconnect
end type
type cb_cancel from commandbutton within w_waitforreconnect
end type
type st_msg from statictext within w_waitforreconnect
end type
end forward

global type w_waitforreconnect from window
integer width = 1815
integer height = 356
windowtype windowtype = response!
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
p_1 p_1
st_1 st_1
cb_cancel cb_cancel
st_msg st_msg
end type
global w_waitforreconnect w_waitforreconnect

type variables
string ins_ori_msg
decimal ins_cursec=3
end variables

on w_waitforreconnect.create
this.p_1=create p_1
this.st_1=create st_1
this.cb_cancel=create cb_cancel
this.st_msg=create st_msg
this.Control[]={this.p_1,&
this.st_1,&
this.cb_cancel,&
this.st_msg}
end on

on w_waitforreconnect.destroy
destroy(this.p_1)
destroy(this.st_1)
destroy(this.cb_cancel)
destroy(this.st_msg)
end on

event open;st_msg.text=string(ins_cursec)+' '+'秒后关闭'
timer(1)
end event

event timer;ins_cursec=ins_cursec - 1

st_msg.text=string(ins_cursec)+' '+'秒后关闭'

if ins_cursec<=0 then
	timer(0)
	close(this)
end if
end event

type p_1 from picture within w_waitforreconnect
integer width = 1829
integer height = 160
string picturename = "graphics\jdt_banner.jpg"
boolean focusrectangle = false
end type

type st_1 from statictext within w_waitforreconnect
integer x = 59
integer y = 216
integer width = 585
integer height = 76
integer textsize = -9
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
long backcolor = 67108864
string text = "连接已断开,请重新登录!"
boolean focusrectangle = false
end type

type cb_cancel from commandbutton within w_waitforreconnect
integer x = 1495
integer y = 208
integer width = 265
integer height = 92
integer taborder = 10
integer textsize = -9
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
string text = "取消"
end type

event clicked;close(parent)
end event

type st_msg from statictext within w_waitforreconnect
integer x = 663
integer y = 216
integer width = 315
integer height = 76
integer textsize = -9
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
string pointer = "HourGlass!"
long textcolor = 33554432
long backcolor = 67108864
boolean focusrectangle = false
end type