Q5/ws_objects/Ew_mainface.pbl.src/w_genapp_about.srw

$PBExportHeader$w_genapp_about.srw
$PBExportComments$Generated About window
forward
global type w_genapp_about from window
end type
type st_publish from statictext within w_genapp_about
end type
type st_4 from statictext within w_genapp_about
end type
type st_tele1 from statictext within w_genapp_about
end type
type cb_ok from uo_imflatbutton within w_genapp_about
end type
type cb_reg from uo_imflatbutton within w_genapp_about
end type
type st_internet from statictext within w_genapp_about
end type
type st_address from statictext within w_genapp_about
end type
type st_tele from statictext within w_genapp_about
end type
type p_1 from picture within w_genapp_about
end type
type st_copyright from statictext within w_genapp_about
end type
type st_3 from statictext within w_genapp_about
end type
type st_2 from statictext within w_genapp_about
end type
type st_1 from statictext within w_genapp_about
end type
end forward

global type w_genapp_about from window
integer x = 777
integer y = 436
integer width = 2176
integer height = 1636
boolean titlebar = true
string title = "关于"
boolean controlmenu = true
windowtype windowtype = popup!
long backcolor = 16777215
st_publish st_publish
st_4 st_4
st_tele1 st_tele1
cb_ok cb_ok
cb_reg cb_reg
st_internet st_internet
st_address st_address
st_tele st_tele
p_1 p_1
st_copyright st_copyright
st_3 st_3
st_2 st_2
st_1 st_1
end type
global w_genapp_about w_genapp_about

on w_genapp_about.create
this.st_publish=create st_publish
this.st_4=create st_4
this.st_tele1=create st_tele1
this.cb_ok=create cb_ok
this.cb_reg=create cb_reg
this.st_internet=create st_internet
this.st_address=create st_address
this.st_tele=create st_tele
this.p_1=create p_1
this.st_copyright=create st_copyright
this.st_3=create st_3
this.st_2=create st_2
this.st_1=create st_1
this.Control[]={this.st_publish,&
this.st_4,&
this.st_tele1,&
this.cb_ok,&
this.cb_reg,&
this.st_internet,&
this.st_address,&
this.st_tele,&
this.p_1,&
this.st_copyright,&
this.st_3,&
this.st_2,&
this.st_1}
end on

on w_genapp_about.destroy
destroy(this.st_publish)
destroy(this.st_4)
destroy(this.st_tele1)
destroy(this.cb_ok)
destroy(this.cb_reg)
destroy(this.st_internet)
destroy(this.st_address)
destroy(this.st_tele)
destroy(this.p_1)
destroy(this.st_copyright)
destroy(this.st_3)
destroy(this.st_2)
destroy(this.st_1)
end on

event open;environment   exerun_env
GetEnvironment(exerun_env )
THIS.Move ( (PixelsToUnits(exerun_env.ScreenWidth, XPixelsToUnits!) - THIS.Width)/2,&
	(PixelsToUnits(exerun_env.ScreenHeight, XPixelsToUnits!) - THIS.Height - 300 )/2) //

st_1.Text = '系    统：'+sys_message_title
st_2.Text = '版    本：'+sys_cur_version //sys_message_copyright_inc
st_3.Text = '用    户：'+sys_message_report_title

if sys_ifoem = 1 then 
st_publish.Text = '发 行 者：'+ProfileString ( sys_inioem, 'oem', 'publish', '立想咨询' )
st_tele.Text = '电    话：' +ProfileString ( sys_inioem, 'oem', 'tele', '0757 - 23873986 , 23635986' )
st_tele1.Text = '传    真：' +ProfileString ( sys_inioem, 'oem', 'fax', '0757 - 23635987' )

st_internet.Text = '网    站：'+ProfileString ( sys_inioem, 'oem', 'internet', 'www.longserve.com , www.longjoe.com' )
st_address.Text = ProfileString ( sys_inioem, 'oem', 'address', '佛山市顺德区龙江镇西溪工业区雄塑科技大厦二楼' )



st_copyright.text= '系统开发：'+ProfileString ( sys_inioem, 'oem', 'copyright', 'www.longserve.com , www.longjoe.com' )
	
else
	
	
st_publish.Text = '发 行 者：'+ProfileString ( sys_inifilename, 'cr', 'publish', '顺德龙嘉软件' )
st_tele.Text = '电    话：' +ProfileString ( sys_inifilename, 'cr', 'tele', '0757 - 23873986 , 23635986' )
st_tele1.Text = '传    真：' +ProfileString ( sys_inifilename, 'cr', 'fax', '0757 - 23635987' )
//st_tele2.Text = '服    务：' +ProfileString ( sys_inifilename, 'cr', 'service', '0757 - 23393986 , 23635988' )
st_internet.Text = '网    站：'+ProfileString ( sys_inifilename, 'cr', 'internet', 'www.longserve.com , www.longjoe.com' )
st_address.Text = ProfileString ( sys_inifilename, 'cr', 'address', '佛山市顺德区龙江镇西溪工业区雄塑科技大厦二楼' )
//st_copyright.Text = '发 行 者：'+ProfileString ( sys_inifilename, 'cr', 'copyright', '顺德龙嘉软件' )


st_copyright.text=st_copyright.text + char(13) +char(10) + "          www.longjoe.com"
end if

end event

type st_publish from statictext within w_genapp_about
integer x = 238
integer y = 728
integer width = 1810
integer height = 60
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 16777215
boolean enabled = false
string text = "发 行 者："
boolean focusrectangle = false
end type

type st_4 from statictext within w_genapp_about
integer x = 238
integer y = 1068
integer width = 274
integer height = 68
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 16777215
boolean enabled = false
string text = "地    址："
boolean focusrectangle = false
end type

type st_tele1 from statictext within w_genapp_about
integer x = 238
integer y = 892
integer width = 1810
integer height = 60
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 16777215
boolean enabled = false
string text = "传    真："
boolean focusrectangle = false
end type

type cb_ok from uo_imflatbutton within w_genapp_about
integer x = 864
integer y = 1352
integer width = 416
integer height = 140
integer taborder = 20
integer textsize = -10
boolean default = true
string normalpicname = "ok.bmp"
integer picsize = 16
end type

event clicked;call super::clicked;// Close "About" window

Close (parent)
end event

type cb_reg from uo_imflatbutton within w_genapp_about
boolean visible = false
integer x = 960
integer y = 1228
integer width = 329
integer height = 92
integer taborder = 10
string text = "注册信息"
end type

event clicked;call super::clicked;open(w_sys_register)
end event

type st_internet from statictext within w_genapp_about
integer x = 238
integer y = 980
integer width = 1810
integer height = 60
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 16777215
boolean enabled = false
string text = "网    站："
boolean focusrectangle = false
end type

type st_address from statictext within w_genapp_about
integer x = 517
integer y = 1068
integer width = 1531
integer height = 100
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 16777215
boolean enabled = false
boolean focusrectangle = false
end type

type st_tele from statictext within w_genapp_about
integer x = 238
integer y = 804
integer width = 1810
integer height = 60
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 16777215
boolean enabled = false
string text = "电    话："
boolean focusrectangle = false
end type

type p_1 from picture within w_genapp_about
integer width = 2167
integer height = 400
boolean originalsize = true
string picturename = "graphics\登录top.png"
borderstyle borderstyle = styleshadowbox!
boolean focusrectangle = false
end type

event doubleclicked;//if sys_if_network = 1 then return 
if not sys_power_issuper then return 
OPEN(w_set_version)

end event

type st_copyright from statictext within w_genapp_about
integer x = 233
integer y = 1196
integer width = 1810
integer height = 124
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 16777215
boolean enabled = false
string text = "系统开发：佛山市顺德区龙嘉软件有限公司"
boolean focusrectangle = false
end type

type st_3 from statictext within w_genapp_about
integer x = 238
integer y = 604
integer width = 1810
integer height = 60
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 16777215
boolean enabled = false
string text = "用    户："
boolean focusrectangle = false
end type

type st_2 from statictext within w_genapp_about
integer x = 238
integer y = 524
integer width = 1810
integer height = 60
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 16777215
boolean enabled = false
string text = "版    本：软件开发中心"
boolean focusrectangle = false
end type

type st_1 from statictext within w_genapp_about
integer x = 238
integer y = 448
integer width = 1810
integer height = 60
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 16777215
boolean enabled = false
string text = "系    统：管理系统"
boolean focusrectangle = false
end type